57 lines
786 B
ObjectPascal
57 lines
786 B
ObjectPascal
|
program main;
|
||
|
|
|
||
|
|
var
|
||
|
|
a,b,res: array[1..100, 1..100] of integer;
|
||
|
|
n1, m1, n2, m2, i, j, k: integer;
|
||
|
|
|
||
|
|
procedure matrix_multiply;
|
||
|
|
begin
|
||
|
|
for i := 1 to m1 do
|
||
|
|
begin
|
||
|
|
for j := 1 to n2 do
|
||
|
|
begin
|
||
|
|
for k := 1 to n1 do
|
||
|
|
begin
|
||
|
|
res[i][j] := res[i][j] + a[i][k] * b[k][j];
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function getint: integer;
|
||
|
|
begin
|
||
|
|
read(getint);
|
||
|
|
end;
|
||
|
|
|
||
|
|
begin
|
||
|
|
m1 := getint;
|
||
|
|
n1 := getint;
|
||
|
|
for i := 1 to m1 do
|
||
|
|
begin
|
||
|
|
for j := 1 to n1 do
|
||
|
|
begin
|
||
|
|
a[i][j] := getint;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
m2 := getint;
|
||
|
|
n2 := getint;
|
||
|
|
for i := 1 to m2 do
|
||
|
|
begin
|
||
|
|
for j := 1 to n2 do
|
||
|
|
begin
|
||
|
|
b[i][j] := getint;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
matrix_multiply;
|
||
|
|
|
||
|
|
for i := 1 to m1 do
|
||
|
|
begin
|
||
|
|
for j := 1 to n2 do
|
||
|
|
begin
|
||
|
|
write(res[i][j]);
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
end.
|