Программирование операций чтения из файлов и записи в файлы, страница 2

Программа:

Program Sortirovka;

Type    Matrix=array [1..8,1..7] of real;

Var     a: Matrix;

        R: Real;

        k,i,j: integer;

Begin

for i:=1 to 8 do

for j:=1 to 7 do

a[i,j]:=1/2*i+sqr(j)*j; {Вычисленяем элементы массива}

{Печатаем массив в виде таблицы}

Writeln('Матрица A');

for i:=1 to 8 do begin

for j:=1 to 7 do

            write(a[i,j]:6:3,'  ');  {Вывод на экран массива А}

Writeln;         end;

Writeln;   {Пропуск пустой строки}

for i:=2 to 8 do

for j:= 6 downto i do

if int(a[j+1,6])<int(a[j,6]) then

for k:= 1 to 7 do {Перестановка строк}

  begin    R:=a[j-1,k];

           a[j-1,k]:=A[j,k];

           a[j,k]:=R;

  end;

Writeln('Отсортированная матрица А имеет вид');

for i:=1 to 6 do

for j:=1 to 7 do begin

write(a[i,j]:6:3,'  '); {Вывод на экран отсортированного массива А}

writeln;

        end;

End.

Результаты:

126.500 217.500 344.500

 3.000 10.000 29.000

66.000 127.000 218.000

345.000  3.500 10.500

29.500 66.500127.500 

218.500 345.500 4.000

11.000 30.000 67.000

128.000 219.000 346.000