Реферат: Пояснительная записка к курсовой работе

end;

procedure vvod(var m:matr;t:char; Ni1,Nj1:integer);

{ввод матрицы}

var i1,j1:integer;

begin

assign (s,'A:\Факториал.txt');

rewrite(s);

Writeln ('Разроботал студент гр.ТМДу-21 Кондратьев В.В.');

Writeln ('Составить алгоритм и программу вычисления функции сиспользованием нестандартных функций');

Writeln (s,'Разроботал студент гр.ТМДу-21 Кондратьев В.В.');

Writeln (s,'Составить алгоритм и программу вычисления функции сиспользованием нестандартных функций');

writeln('Ввод матрицы ',t);

for i1:=1 to Ni1 do

for j1:=1 to Nj1 do

begin

write ('Введите ',j1,' -элемент ',i1,' строки:');

readln(m[i1,j1]);

end;

end;

procedure trans(var mt:matr; m:matr; N1:integer);

var i1,j1:integer;

begin

for i1:=1 to N1 do

for j1:=1 to N1 do

mt[i1,j1]:=m[j1,i1];

end;

procedure summ(var m:matr; p,l:matr; Ni1,Nj1:integer);

{сумма матриц}

var i1,j1:integer;