OberonCore

Я открыт к таким предложениям.

смущает разброс разночтений

Тестовый модуль в ББ компилируется:


Ofront+ выдаёт ошибку: 16:10 err 78 dereferenced object is not a variable

MODULE Test;

TYPE
T1 = ARRAY 5 OF REAL;
T2 = ARRAY 5 OF T1;

PROCEDURE Do4 ( IN x:ARRAY OF ARRAY OF REAL );
BEGIN
END Do4;

PROCEDURE Do3 ( IN x:ARRAY OF T1 );
BEGIN
Do4( x );
END Do3;

END Test.

MODULE Test;

IMPORT
C:=Console;

VAR
x:ARRAY 3,3 OF INTEGER;
i,j:INTEGER;

PROCEDURE Sum (IN x:ARRAY OF INTEGER): INTEGER;
(* Сумма элементов массива *)
VAR
result:INTEGER;
j:INTEGER;
BEGIN
result:=0;
FOR j:=0 TO LEN(x)-1 DO
result:=result+x[j]
END;
RETURN result
END Sum;

PROCEDURE Sum1 (IN x:ARRAY OF ARRAY OF INTEGER): INTEGER;
(* Сумма элементов подмассива x[1] *)
BEGIN
RETURN Sum(x[1])
END Sum1;

BEGIN
(* Инициализируем массив x *)
FOR i:=0 TO LEN(x)-1 DO
FOR j:=0 TO LEN(x,1)-1 DO
x[i,j]:=i+j;
END;
END;

(* Выводим элементы массива x на экран, чтобы убедиться, что всё в порядке *)
FOR i:=0 TO LEN(x)-1 DO
FOR j:=0 TO LEN(x,1)-1 DO
C.Int(x[i,j],5);
END;
C.Ln();
END;
C.Ln;
C.Ln;

(* Сумма элементоа подмассива x[1]. Выводится 6, - это правильный результат *)
C.Int(Sum(x[1]),0); C.Ln();
C.Ln;
C.Ln;

(* Сумма элементоа подмассива x[1]. Выводится 4, - это неправильный результат *)
C.Int(Sum1(x),0); C.Ln();
END Test.