25 lines
382 B
Plaintext
25 lines
382 B
Plaintext
MODULE LoopMArrays;
|
|
IMPORT
|
|
Out;
|
|
VAR
|
|
x,y: ARRAY 3 OF CHAR;
|
|
z: ARRAY 3 OF INTEGER;
|
|
|
|
PROCEDURE DoLoop;
|
|
VAR
|
|
i: INTEGER;
|
|
BEGIN
|
|
i := 0;
|
|
WHILE i < LEN(x) DO
|
|
Out.Char(x[i]);Out.Char(y[i]);Out.LongInt(z[i],0);Out.Ln;
|
|
INC(i)
|
|
END
|
|
END DoLoop;
|
|
|
|
BEGIN
|
|
x[0] := 'a';y[0] := 'A';z[0] := 1;
|
|
x[1] := 'b';y[1] := 'B';z[1] := 2;
|
|
x[2] := 'c';y[2] := 'C';z[2] := 3;
|
|
DoLoop
|
|
END LoopMArrays.
|