matrix.out

来自「this is a lp0 compilator new」· OUT 代码 · 共 59 行

::::::::::::::
test/matrix.pas
::::::::::::::
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.
::::::::::::::
compx.sym
::::::::::::::


Symbol Table for Pascal source code...
-----------------------------------
0(undefined)
1(undefined)
10(undefined)
3(undefined)
5(undefined)
i(variable)
integer(undefined)
j(variable)
k(variable)
matrix(program)
matrix1(variable)
matrix2(variable)
result(variable)
sum(variable)
x(constant)
y(constant)
z(constant)

::::::::::::::
compx.mpl
::::::::::::::
assign ( rsolve ( f(n)=1+1+sum (1+1+sum (1+1+1+1+sum (1+1+1+1+1+1+1+1, k=1..y)+1+1+1+1, j=1..z), i=1..x), f(n) ) );