TOPS-20 PASCAL Language Manual - Bitsavers

PASCAL DATA TYPES
To assign values to a two-dimensional array in the executable section,
you can use two nested FOR statements to increment the two indices, as
shown in the following example:
CON~:>T Zf.~ ro :::: ;
VAR Table: ARRAY [1 •• 10,1 •• 5J OF INTEGER;
i n (.l f:·~ >~ .... 1 , i :1".' (i (.:~ >( .... 2 : I NT E G E R ;
BEGIN
F (] F~ i n d f:~ ~.( .... 1 : :::: :I. T () :l ° DO
FOR index_2 := :l TO 5 DO
Table[index_:l,index_2] := Zero;
END~
Array_Example is :lefined to be a two-dimensional array of type
INTEGER.
The nested FOR statements assign the value of Zero (which has been
assigned the value of "0" in the CaNST section) to each component in
the array.
To initialize a two-dimensional array in the VAR section, specify a
constructor for each row, in parentheses. The following example shows
a two-dimensional array that is initialized in the VAR section:
VAR Table ARRAY [1 •• 10,1 •• 5] OF INTEGER := (10 OF (5 OF 0»;
To assign values to arrays of three or more dimensions in the
executable section, use three or more nested FOR statements:
CONST Zero:::: 0,
VAR Table: ARRAY [1 •• 5,1 •• 3,1 •• 2J OF INTEGER,
index_l"index_2,index_3 : INTEGER;
BEGIN
FOR index_1 := 1 TO 5 DO
FOR index_2 := 1 TO 3 DO
FOR index_3 := 1 TO 2 DO
TableCindex_l,index_2] := Zero;
END;
This example shows the initialization of a
The value of· Zero is assigned to each
Table[l,l,l] to Table(5,3,2].
three-dimensional array.
element in Table, from
To initialize an array of three or more dimensions in the VAR section,
specify a constructor for each row. The following example shows a
three-dimensional array being initialized in the VAR section~
VAR Table: ARRAY [1 •• 5,1 •• 3,1 •• 2] OF INTEGER :=
(5 OF (3 OF (2 OF ' '»);
2-13