|
MODULE WriteMatrix(matrix: ARRAY OF ARRAY OF REAL; width: LONGINT); VAR i, j: INTEGER; BEGIN i := 0; WHILE i < LEN(matrix, 0) DO j := 0; WHILE j < LEN(matrix, 1) DO Write.Real(matrix[i, j], width); INC(j); END; Write.Ln; INC(i); END; END WriteMatrix; |
Im Gegensatz zu Modula-2 unterstützt Oberon
mehrdimensionale offene Feld-Parameter.
| |
Der Operator HIGH(array) in Modula-2,
der den höchstzulässigen Index eines Feldes zurücklieferte,
wurde in Oberon durch LEN(array, dim) ersetzt,
der die Anzahl der Elemente eines Feldes in der
dim-ten Dimension zurückliefert,
wobei dim ab 0 gezählt wird.
| |
LEN(array) ist eine Kurzform für
LEN(array, 0).
|
Copyright © 1999 Andreas Borchert, in HTML konvertiert am 29.06.1999 |