Реферат: Програмирование на языке Паскаль

i:integer;{счётчик }

k:integer;

begin{обнуляем массив }

for i:=1 to 2*N+2*M do

per[i]:=0;

k:=1;

fori:=m_1 tom_2 do {выбираем элементы столбца периметра }

begin

per[k]:=Mxx[n_1,i];

per[k+1]:=Mxx[n_2,i];

inc(k,2)

end;

fori:=(n_1+1) to (n_2-1) do {выбираем элементы строк периметра }

begin

per[k]:=Mxx[i,m_1];

per[k+1]:=Mxx[i,m_2];

inc(k,2)

end;

dec(k,2);

l:=k;

inc(l);

end;

{_______________________________________________}

procedure PrintSubMatrix(n_1,m_1,n_2,m_2:integer); {выводим в окно результирующую матрицу }

var

i,j,k,l:integer;

r:trect;

s,sr:string;

begin