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

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 summa(var m:matr; p,l:matr; Ni1,Nj1:integer);

var i1,j1:integer;

begin

for i1:=1 to Ni1 do

for j1:=1 to Nj1 do m[i1,j1]:=p[i1,j1]+l[i1,j1];

end;

begin

clrscr;

Assign (F,'A:\3.Dat');

rewrite (F);

writeln ('Вычисление матрицы S=At*B*(C+D) ');

writeln (F,'Вычисление матрицы S=At*B*(C+D) ');

vvod(A,'A',Nj,Ni);

vvod(B,'B',Nj,Nk);

vvod(C,'C',Nk,Nj);

vvod(D,'D',Nk,Nj);

trans(At,A,Nj);

writeln ('Транспонированная матрица At:');

writeln (F,'Транспонированная матрица At:');

for i:=1 to Ni do