Методические указания по программированию на языке Pascal. Юшков С.А - 12 стр.

UptoLike

ВУЗ: 

СамГУПС | Самара

Составители: 

Рубрика: 

if Max[i]<Elem[i,k] then Max[i]:=Elem[i,k];
end;
for k:=1 to 9 do
begin
Min[k]:=Elem[1,k];
for i:=1 to 9 do
if Min[k]>Elem[i,k] then Min[k]:=Elem[i,k];
end;
for i:=1 to 9 do
begin
for k:=1 to 9 do
write (LM,Elem[i,k]:5:1);
writeln (LM,Max[i]:9:1);
end;
writeln (LM);
for k:=1 to 9 do
write (LM,Min[k]:5:1);
writeln (LM);
Close(LM);
end.
Результат
Открываем файл Matr.txt, находящийся в корневом каталоге диска D
0.8 0.9 0.1 -0.8 -1.0 -0.3 0.7 1.0 0.4 -0.5 -1.0 -0.5 0.4 1.0 0.7 1.0
1.7 1.8 0.3 -1.5 -1.9 -0.6 1.3 2.0 0.8 -1.1 -2.0 -1.1 0.8 2.0 1.3 2.0
2.5 2.7 0.4 -2.3 -2.9 -0.8 2.0 3.0 1.2 -1.6 -3.0 -1.6 1.3 3.0 2.0 3.0
3.4 3.6 0.6 -3.0 -3.8 -1.1 2.6 4.0 1.6 -2.2 -4.0 -2.1 1.7 4.0 2.6 4.0
4.2 4.5 0.7 -3.8 -4.8 -1.4 3.3 4.9 2.1 -2.7 -5.0 -2.7 2.1 5.0 3.3 5.0
5.0 5.5 0.8 -4.5 -5.8 -1.7 3.9 5.9 2.5 -3.3 -6.0 -3.2 2.5 5.9 3.9 5.9
5.9 6.4 1.0 -5.3 -6.7 -2.0 4.6 6.9 2.9 -3.8 -7.0 -3.8 2.9 6.9 4.6 6.9
6.7 7.3 1.1 -6.1 -7.7 -2.2 5.3 7.9 3.3 -4.4 -8.0 - 4.3 3.4 7.9 5.2 7.9
7.6 8.2 1.3 -6.8 -8.6 -2.5 5.9 8.9 3.7 -4.9 -9.0 - 4.8 3.8 8.9 5.9 8.9
8.4 9.1 1.4 -7.6 -9.6 -2.8 6.6 9.9 4.1 -5.4 -10.0 -5.4 4.2 9.9 6.5 9.9
9.3 10.0 1.6 -8.3 -10.5 -3.1 7.2 10.9 4.5 -6.0 -11.0 -5.9 4.6 10.9 7.2 10.9
10.1 10.9 1.7 -9.1 -11.5 -3.4 7.9 11.9 4.9 -6.5 -12.0 -6.4 5.0 11.9 7.8 11.9
10.9 11.8 1.8 -9.8 -12.5 -3.6 8.5 12.9 5.4 -7.1 -13.0 -7.0 5.5 12.9 8.5 12.9
11.8 12.7 2.0 -10.6 -13.4 -3.9 9.2 13.9 5.8 -7.6 -14.0 -7.5 5.9 13.9 9.1 13.9
12.6 13.6 2.1 -11.4 -14.4 -4.2 9.9 14.8 6.2 -8.2 -15.0 -8.0 6.3 14.9 9.8 14.9
0.8 0.9 0.1 -11.4- 14.4 -4.2 0.7 1.0 0.4 -8.2 -15.0 -8.0 0.4 1.0 0.7

Страницы