30 lines
474 B
Text
30 lines
474 B
Text
|
module MatrixOps;
|
||
|
|
type
|
||
|
|
Matrix = array {math} *,* of integer;
|
||
|
|
|
||
|
|
|
||
|
|
procedure WriteMatrix(x: array {math} *,* of integer);
|
||
|
|
var
|
||
|
|
i,j: integer;
|
||
|
|
begin
|
||
|
|
for i := 0 to len(x,0) - 1 do
|
||
|
|
for j := 0 to len(x,1) - 1 do
|
||
|
|
write(x[i,j]);
|
||
|
|
end;
|
||
|
|
writeln;
|
||
|
|
end
|
||
|
|
end WriteMatrix;
|
||
|
|
|
||
|
|
procedure Multiplication;
|
||
|
|
var
|
||
|
|
a,b: Matrix;
|
||
|
|
begin
|
||
|
|
a := [[1,2],[3,4],[5,6],[7,8]];
|
||
|
|
b := [[1,2,3],[4,5,6]];
|
||
|
|
WriteMatrix(a * b);
|
||
|
|
end Multiplication;
|
||
|
|
|
||
|
|
begin
|
||
|
|
Multiplication;
|
||
|
|
end MatrixOps.
|