Курсовая работа: Автоматизированная система обработки структур данных

end

end

end;

{Процедура перестановки соседних двух строк и соседних двух столбцов местами}

procedure perestanovka(var A1: Matr; n1,k1,l1: integer);

var t: real; i,j: byte;

begin

if (k1<>1) then

for j: =1 to n1 do begin

t: =A1 [1,j] ;

A1 [1,j]: =A1 [k1,j] ;

A1 [k1,j]: =t;

end;

if (l1<>1) then

for i: =1 to n1 do begin

t: =A1 [i,1] ;

A1 [i,1]: =A1 [i,l1] ;

A1 [i,l1]: =t

end

end;

{Процедура вывода на экран преобразованной матрицы}

procedure vyvod1 (A1: Matr; n1: integer);

var i,j: byte;

begin

writeln('Преобразованная матрица');

for i: =1 to n1 do begin

for j: =1 to n1 do

write(A1 [i,j]: 5: 4,' ');

writeln