Контрольная работа: Программирование на Турбо Паскале

else begin{рекурсивнаяветвь}

Writeln('│','Вход ',k:7,'│',0:26,'│',' a[',i,',',j,']=',a[i,j]:7,'│');

tsum:=sum2(n,m,i,j+1,k+1,a)+a[i,j];

sum2:=tsum;

Writeln('│','Выход ',k:6,'│',tsum:26,'│',' a[',i,',',j,']=',a[i,j]:7,'│')

end; {рекурсивная ветвь}

end;{нисходящая рекурсия}

begin

ClrScr;

c:='Y';

while (UpCase(c)='Y') do

begin

Write('Введитечислострок:');Readln(n); {Вводданных}

Write('Введите число столбцов:');Readln(m);

Writeln('Введите матрицу:'); {Ввод матрицы}

for i:=1 to n do

begin

for j:=1 to m do

begin

Write('a[',i,',',j,']=');Read(a[i,j]);

end;

Writeln;

end;

show_matrix(n,m,a); {Эхо-выводматрицы}

Writeln(verh);Writeln(inc1);Writeln(cent1);

Writeln('│','Восходящая':12,'│ │ │');

sum:=sum1(n,m,1,1,0,1,a); {Вызоврекурсии}

Writeln(niz);

Writeln('СУММА:',sum:51);Writeln;