Оберон-клуб «ВЄДАsoft»

PROCEDURE MultiplicationMatrix;
VAR Matrix3 = ARRAY LEN(Matrix1,1), LEN(Matrix2,0) OF INTEGER;
BEGIN
     IF LEN(Matrix1,1)=LEN(Matrix2,0) THEN
           Line1=0;
          Column1:=0;
          Line2:=0;
          Column2:=0;
          Line3:=0;
          Column3:=0
          REPEAT
                    REPEAT
                              REPEAT
                                        Matrix3[Line3, Column3] := Matrix3[Line3, Column3] + Matrix1[Line1, Column1] * Matrix2[Line2, Column2];
                                        Column1 := Column1 + 1;
                                        Line2 := Column1
                              UNTIL Column1 = LEN(Matrix1, 1)
                              Column2 := Column2 + 1;
                              Column3 := Column2;
                              Line2 := 0;
                              Column1 := 0
                    UNTIL Column2 = LEN(Matrix2,1)
                    Line1 := Line1 + 1;
                    Line3 := Line1;
                    Column2 := 0;
                    Column3 := 0
          UNTIL Line1 = LEN(Matrix1, 0)
     END
END MultiplicationMatrix

PROCEDURE MultiplicationMatrix (VAR Matrix1, Matrix2: ARRAY OF ARRAY OF INTEGER);
...

VAR Matrix3: ARRAY LEN(Matrix1,1), LEN(Matrix2,0) OF INTEGER;

ARRAY OF RECORD x, y, z: INTEGER END;

VAR Matrix3: ARRAY LEN(Matrix1,1), LEN(Matrix2,0) OF INTEGER;

VAR matrix3: POINTER TO ARRAY OF ARRAY OF INTEGER;
BEGIN
NEW(matrix3, LEN(matrix1,1), LEN(matrix2,0));

PROCEDURE Abc1* (VAR result: ARRAY OF INTEGER);

PROCEDURE Abc2* (): POINTER TO ARRAY OF INTEGER;

MODULE Program0;
	IMPORT  Log, Strings;
VAR matrix1, matrix2: ARRAY 2 OF ARRAY 3 OF INTEGER;
		line1, column1 : INTEGER;
		c:POINTER TO ARRAY OF CHAR;
 
PROCEDURE hMatrix (VAR matrixF: ARRAY OF ARRAY OF INTEGER):POINTER TO ARRAY OF ARRAY OF INTEGER;
BEGIN
	RETURN matrixF;
END hMatrix;
 
BEGIN
	matrix1[0,0] := 1;
	matrix1[0,1] := 2;
	matrix1[0,2] := 3;
	matrix1[1,0] := 5;
	matrix1[1,1] := 4;
	matrix1[1,2] := -5;
	matrix2 := hMatrix(matrix1);
	line1 := 0;
	column1 := 0;
	REPEAT
		REPEAT
			Strings.IntToString(matrix2[line1, column1],c);
			Log.String(c);
			Log.String(' ');
			column1 := column1 + 1;
		UNTIL column1 = LEN(matrix1,0);
		Log.Ln;
		column1 := 0;
		line1 := line1 + 1;
	UNTIL line1 = LEN(matrix1,1);
END Program0.

PROCEDURE hMatrix (VAR matrixF: ARRAY OF ARRAY OF INTEGER):POINTER TO ARRAY OF ARRAY OF INTEGER;
BEGIN
	RETURN matrixF;
END hMatrix;
 
matrix2 := hMatrix(matrix1);