langs a-z

Task/Loops-Nested/XPL0/loops-nested.xpl0

@@ -0,0 +1,26 @@
+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);
+]