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

for j:=1 to Nj do

begin

write (At[i,j]:7:2,' ');

write (F,At[i,j]:7:2,' ');

end;

writeln;

writeln(F);

end;

summa(CD,C,D,Nk,Nj);

writeln ('Сумма матриц C и D:');

writeln (F,'Сумма матриц C и D:');

for k:=1 to Nk do

begin

for j:=1 to Nj do

begin

write (CD[k,j]:7:2,' ');

write (F,CD[k,j]:7:2,' ');

end;

writeln;

writeln(F);

end;

proizvedenie1(AtB,At,B);

writeln ('Произведение матриц At и B:');

writeln (F,'Произведение матриц At и B:');

for i:=1 to Ni do

begin

for k:=1 to Nk do

begin

write (AtB[i,k]:7:2,' ');