Вопрос по отладке(паскаль)

[aslanbek999]

Я написал программу(Если максимальный элемент квадратной матрицы находится выше главной диагонали, транспонировать матрицу, иначе определить сумму элементов строки и столбца с номерами, равными индексам максимального элемента.) Преподаватель требует вывести ее на 3 уровень корректности. Я знаю что такое отладка(заглушки, счетчики). Когда я доводил программу до ума, я ставил счетчики в конце каждой подпрограммы. Но я не пойму что значит вывести на третий уровень корректности.

Program Tipovik_v_12;
const nn=50;
type
.  Matrix = array [1..nn, 1..nn] of real;
var
.  matr: Matrix;
.  Nmatr: Matrix;
.  n,i,j,im,jm : integer;
.  F1,F2:text;

procedure MaxMatrix(var M: Matrix);
var
.  max: real;
.  i, j: integer;
begin
. max:=Matr[1,1];
.  for i:=1 to n do
.    for j:=1 to n do
.      if Max<Matr[i,j] then
.       begin
.        max := M[i,j];
.        im:=i;
.        jm:=j;
.       end;
end;


function sum(M: Matrix): real;
var
.  S,L,F: real;
.  i, j: integer;
begin
.  L:=0;
.  F:=0;
.  i:=im;
.  for j:=1 to n do
..   L:=L+M[i,j];
.  j:=jm;
.  for i:=1 to 5 do
..   F:=F+M[i,j];
.  i:=im;
.  j:=jm;
.  S:=F+L-M[i,j];
.  sum:=S;
end;

procedure transmatrix(var Matr,N: Matrix);
var
.  i,j: integer;
begin
.  for i:=1 to 5 do begin
..    for j:=1 to 5 do
...      Nmatr[j,i]:=Matr[i,j];
.  end;
end;

begin
. assign(F1,'isdan.pas');
. assign(F2,'vdan.pas');
. reset(f1);
. rewrite(f2);
. read(f1,n);
. readln(f1);
..  for i:=1 to n do
...   begin
....    for j:=1 to n do
.....     read(f1,Matr[i,j]);
....    readln(f1);
...   end;
. writeln(f2,’rezultati’);
. MaxMatrix(Matr);
. if im<=jm then writeln(f2,'summa ravna',sum(matr))
. else
..  transmatrix(Matr,Nmatr);
. if im>jm then
..   for i:=1 to n do
...    for j:=1 to n do
....     writeln(f2,Nmatr[i,j]);
. close(f1);
. close(f2);
end.

[Stilet]

Я бы на твоем месте подушил препода чтоб он рассказал что это такое...

[aslanbek999]

Совет конечно дельный, но уже до меня пробовали. Ничего не получилось.