Anonymous user
Loops/While: Difference between revisions
Modula-3
No edit summary |
(Modula-3) |
||
Line 180:
Invoking it
|make -f while.mk MAX=1024
=={{header|Modula-3}}==
The usual module code and imports are omitted.
<pre>
PROCEDURE DivBy2() =
VAR i: INTEGER := 1024;
BEGIN
WHILE i > 0 DO
IO.PutInt(i);
IO.Put("\n");
i := i DIV 2;
END;
END DivBy2;
</pre>
=={{header|Oberon-2}}==
The usual module code and imports are ommited.
<pre>
PROCEDURE DivBy2*();
| |||