36 lines
607 B
Plaintext
36 lines
607 B
Plaintext
Section Header
|
|
|
|
+ name := TEST_LOOP_NESTED;
|
|
|
|
- external := `#include <time.h>`;
|
|
|
|
Section Public
|
|
|
|
- main <- (
|
|
+ a : ARRAY2[INTEGER];
|
|
+ i, j: INTEGER;
|
|
|
|
`srand(time(NULL))`;
|
|
a := ARRAY2[INTEGER].create(0, 0) to (9, 9);
|
|
0.to 9 do { ii : INTEGER;
|
|
0.to 9 do { jj : INTEGER;
|
|
a.put (`rand()`:INTEGER % 20 + 1) to (ii, jj);
|
|
};
|
|
};
|
|
{ i < 10 }.while_do {
|
|
j := 0;
|
|
{ j < 10 }.while_do {
|
|
' '.print;
|
|
a.item(i, j).print;
|
|
(a.item(i, j) = 20).if {
|
|
i := 999;
|
|
j := 999;
|
|
};
|
|
j := j + 1;
|
|
};
|
|
i := i + 1;
|
|
'\n'.print;
|
|
};
|
|
'\n'.print;
|
|
);
|