matrix.pas

来自「this is a lp0 compilator new」· PAS 代码 · 共 27 行

PROGRAM Matrix;

CONST
	X = 3;
	Y = 10;
	Z = 5;

VAR
   Matrix1      : ARRAY [1..X,1..Y] OF INTEGER;
   Matrix2      : ARRAY [1..Y,1..Z] OF INTEGER;
   Result       : ARRAY [1..X,1..Z] OF INTEGER;
   I, J, K      : INTEGER;
   Sum          : INTEGER;

BEGIN { Matrix }

   FOR I := 1 TO X DO
      FOR J := 1 TO Z DO
         BEGIN
            Sum := 0;
            FOR K := 1 TO Y DO
               Sum := Sum + ( Matrix1[I,K] * Matrix2[K,J] );
            Result[I,J] := Sum;
         END;

END.