27 lines
614 B
Plaintext
27 lines
614 B
Plaintext
include c:\cxpl\codes; \intrinsic 'code' declarations
|
|
def Size=10;
|
|
|
|
proc Nest(A); \Display 2-dimensional array A contents until 20 is found
|
|
int A;
|
|
int I, J, K;
|
|
[for J:= 0 to Size-1 do
|
|
for I:= 0 to Size-1 do
|
|
[K:= A(I,J);
|
|
IntOut(0, K); ChOut(0, ^ );
|
|
if K = 20 then return; \there is no 'goto' instruction
|
|
];
|
|
]; \Nest
|
|
|
|
proc Fill(A); \Fill 2-dimensional array A with random numbers 1..20
|
|
int A;
|
|
int I, J;
|
|
[for J:= 0 to Size-1 do
|
|
for I:= 0 to Size-1 do
|
|
A(I,J):= Ran(20)+1;
|
|
]; \Fill
|
|
|
|
int Array(Size,Size);
|
|
[Fill(Array);
|
|
Nest(Array);
|
|
]
|