Anonymous user
Loops/Nested: Difference between revisions
Add Seed7 example
(Add Seed7 example) |
|||
Line 1,860:
(display " ")(display (car b))
(loop2 (cdr b)))))))</lang>
=={{header|Seed7}}==
<lang seed7>$ include "seed7_05.s7i";
const proc: main is func
local
var integer: i is 0;
var integer: j is 0;
var array array integer: a is 10 times 10 times 0;
const EXCEPTION: FOUND20 is enumlit;
begin
for i range 1 to 10 do
for j range 1 to 10 do
a[i][j] := rand(1, 20);
end for;
end for;
block
for i range 1 to 10 do
for j range 1 to 10 do
write(a[i][j] lpad 2 <& ", ");
if a[i][j] = 20 then
raise FOUND20;
end if;
end for;
writeln;
end for;
exception
catch FOUND20: writeln;
end block;
end func;</lang>
{{out}}
<pre>
15, 10, 5, 9, 10, 13, 1, 9, 11, 10,
5, 6, 10, 13, 4, 13, 11, 12, 2, 4,
4, 16, 20,
</pre>
=={{header|Smalltalk}}==
| |||