Vladimir_S |
03.06.2012 16:49 |
Цитата:
Сообщение от levsha1993
(Сообщение 743232)
С клавиатуры вводится натуральное число n. Вычислить:
|
Что, совсем лень проклятущая детинушку загрызла - с такими детскими задачками вылезать на форумы приходится? Ах она, негодная... Ну да ладно, побалуем ее, любимую:
Код:
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.
|