Question

Помогите умножить матрицы в паскале

Answer 1

begin
writeln((4*1)+(2*2),' ',(4*2)+(2*4),' ',(4*3)+(2*6),' ',(4*4)+(2*7));
writeln((1*1)+(2*2),' ',(1*2)+(2*4),' ',(1*3)+(2*6),' ',(1*4)+(2*7));
writeln((3*1)+((-6)*2),' ',(3*2)+((-6)*4),' ',(3*3)+((-6)*6),' ',(3*4)+((-6)*7));
end.

Answer 2

$\displaystyle C_{ij}=\sum_{k=1}^n A_{i,k}\times B_{kj}$

const

 l=3;

 m=4;

 n=2;

var

 A:array[1..l,1..n] of integer:=((4,2),(1,2),(3,-6));

 B:array[1..n,1..m] of integer:=((1,2,3,4),(2,4,6,7));

 C:array[1..l,1..m] of integer;

 i,j,k:integer;

begin

 for i:=1 to l do

   for j:=1 to m do

   begin

     C[i,j]:=0;

     for k:=1 to n do

       C[i,j]:=C[i,j]+A[i,k]*B[k,j]

   end;

 for i:=1 to l do

 begin

   for j:=1 to m do

     Write(C[i,j]:4);

   Writeln

 end

end.

Во вложении дано сравнение результата с онлайн-калькулятором