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

ReadLn(A [i,j]);

End;

clrscr;

WriteLn('Исходная матрица');

For i: =1 To m Do Begin

For j: =1 To n Do Begin

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

end;

writeln;

end;

End;

{Процедура суммирования элементов массива, граничных с текущим}

procedure obrab1(var A: Mat; var C: Mat; m,n: integer);

var i,j: byte;

begin

for i: =2 to m-1 do

for j: =2 to n-1 do

C [i,j]: =A [i-1,j-1] +A [i,j-1] +A [i+1,j-1] +A [i-1,j] +A [i+1,j] +A [i-1,j+1] +A [i,j+1] +A [i+1,j+1] ;

for j: =1 to n do begin

C [1,j]: =A [1,j] ;

C [m,j]: =A [m,j]

end;

for i: =2 to m-1 do begin

C [i,1]: =A [i,1] ;

C [i,n]: =A [i,n]

end;

end;

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

procedure vyvod2 (C: Mat; m,n: integer);