Предмет: Информатика,
автор: Elechka123456
Паскаль.Двумерные массивы.Не смогли бы исправить ошибку, там при умножении квадратной матрицы на матрицу у меня формула неверная чуть-чуть)
Приложения:
Ответы
Автор ответа:
0
Умножение квадратных матриц делается так:
const n=5;
type ar=array[1..n,1..n] of integer;
procedure p3(var m1,m2,m3:ar);
var i,j,k,s:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
s:=0;
For k := 1 to n do s:=s+m1[i,k]*m2[k,j];
m3[i,j]:=s;
end;
end;
const n=5;
type ar=array[1..n,1..n] of integer;
procedure p3(var m1,m2,m3:ar);
var i,j,k,s:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
s:=0;
For k := 1 to n do s:=s+m1[i,k]*m2[k,j];
m3[i,j]:=s;
end;
end;
Автор ответа:
0
не смогли бы вы мне там отредактировать?
Похожие вопросы
Предмет: Литература,
автор: semenengel4
Предмет: Обществознание,
автор: kamillalove07
Предмет: Алгебра,
автор: avakovadaha
Предмет: Алгебра,
автор: nikita211299