57 lines
857 B
ObjectPascal
57 lines
857 B
ObjectPascal
|
program MatrixMultiplication;
|
||
|
|
|
||
|
|
var
|
||
|
|
M, N, L: integer;
|
||
|
|
i, x: integer;
|
||
|
|
a0, a1, a2, b0, b1, b2, c0, c1, c2: array[0..2] of integer;
|
||
|
|
|
||
|
|
|
||
|
|
function MultiplyMatrices: integer;
|
||
|
|
var
|
||
|
|
i: integer;
|
||
|
|
begin
|
||
|
|
for i := 0 to M - 1 do
|
||
|
|
begin
|
||
|
|
c0[i] := a0[0] * b0[i] + a0[1] * b1[i] + a0[2] * b2[i];
|
||
|
|
c1[i] := a1[0] * b0[i] + a1[1] * b1[i] + a1[2] * b2[i];
|
||
|
|
c2[i] := a2[0] * b0[i] + a2[1] * b1[i] + a2[2] * b2[i];
|
||
|
|
end;
|
||
|
|
MultiplyMatrices := 0;
|
||
|
|
end;
|
||
|
|
|
||
|
|
begin
|
||
|
|
N := 3;
|
||
|
|
M := 3;
|
||
|
|
L := 3;
|
||
|
|
|
||
|
|
for i := 0 to M - 1 do
|
||
|
|
begin
|
||
|
|
a0[i] := i;
|
||
|
|
a1[i] := i;
|
||
|
|
a2[i] := i;
|
||
|
|
b0[i] := i;
|
||
|
|
b1[i] := i;
|
||
|
|
b2[i] := i;
|
||
|
|
end;
|
||
|
|
|
||
|
|
MultiplyMatrices;
|
||
|
|
|
||
|
|
for i := 0 to N - 1 do
|
||
|
|
begin
|
||
|
|
x := c0[i];
|
||
|
|
write(x);
|
||
|
|
end;
|
||
|
|
|
||
|
|
for i := 0 to N - 1 do
|
||
|
|
begin
|
||
|
|
x := c1[i];
|
||
|
|
write(x);
|
||
|
|
end;
|
||
|
|
|
||
|
|
for i := 0 to N - 1 do
|
||
|
|
begin
|
||
|
|
x := c2[i];
|
||
|
|
write(x);
|
||
|
|
end;
|
||
|
|
end.
|