03.06.2012, 14:21 | #1 (permalink) |
Новичок
Регистрация: 03.06.2012
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Работа в Паскале
|
03.06.2012, 14:21 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Просмотрите содержимое этих ссылок, может быть что то найдете Моя вторая работа Моя первая работа |
03.06.2012, 16:49 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Что, совсем лень проклятущая детинушку загрызла - с такими детскими задачками вылезать на форумы приходится? Ах она, негодная... Ну да ладно, побалуем ее, любимую:
Код:
Var n,k:Byte; Sum:Real; Begin Repeat Write('Enter n ("0" to quit): '); Readln(n); If n>0 then begin Sum:=0; For k:=1 to n do Sum:=Sum+Exp((k+1/k)*Ln((k+1)/Sqrt(2*k-1))); Writeln('Sum = ',Sum:0:8); end; Until n=0; End. Код:
Const N0=20; Type Vector=Array[1..N0] of Byte; Var n,i,j,Imin,Imax,Min,Max:Byte; M:Array[1..N0] of Vector; V:Vector; f:Text; Begin Min:=200; Max:=0; Assign(f,'Matr.txt'); Rewrite(f); Writeln(f,'Initial matrix:'); Write('n (<',N0,')= '); Readln(n); Randomize; For i:=1 to n do begin For j:=1 to n do begin M[i][j]:=Random(100); Write(f,M[i][j]:4); If M[i][j]<Min then begin Min:=M[i][j]; Imin:=i; end; If M[i][j]>Max then begin Max:=M[i][j]; Imax:=i; end; end; Writeln(f); end; Writeln(f); Writeln(f,'Minimal element equal to ',Min,' is in line N',Imin); Writeln(f,'Maximal element equal to ',Max,' is in line N',Imax); Writeln(f); Writeln(f,'Changed matrix:'); V:=M[Imin]; M[Imin]:=M[Imax]; M[Imax]:=V; For i:=1 to n do begin For j:=1 to n do Write(f,M[i][j]:4); Writeln(f); end; Close(f); End. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|