matrix.pas

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

{**********************************************************************
 *                                                                    *
 *   Gerald Carter                                                    *
 *   matrix.pas                                                       *
 *   November 30, 1995                                                *
 *                                                                    *
 *   Simple matrix multiplication driver and funciton.                *
 *                                                                    *
 **********************************************************************}
PROGRAM Matrix (input, output)
CONST
   row1 = 10

TYPE
   MatrixType1 = array [1..row1, 1..col1] of integer;
   MatrixType2 = array [1..row2, 1..col2] of integer;
   MatrixType3 = array [1..row1, 1..col2] of integer;





BEGIN

END.