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

var i1,j1,k1:integer;

begin

for i1:=1 to Ni do

for k1:=1 to Nk do

begin

m[i1,k1]:=0;

for j1:=1 to Nj do

m[i1,k1]:=m[i1,k1]+p[i1,j1]*l[j1,k1];

end;

end;

procedure proizvedenie2(var m:matr; p,l:matr);

var i1,j1,k1:integer;

begin

for i1:=1 to Ni do

for j1:=1 to Nj do

begin

m[i1,j1]:=0;

for k1:=1 to Nk do

m[i1,j1]:=m[i1,j1]+p[i1,k1]*l[k1,j1];

end;

end;

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

var i1,j1:integer;

begin

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

for i1:=1 to Ni1 do

for j1:=1 to Nj1 do

begin

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