57 lines
796 B
Plaintext
57 lines
796 B
Plaintext
|
// This program is a simple test of while loops, counting down from 19 to 0
|
||
|
|
// and skipping 10 (if continue is implemented)
|
||
|
|
|
||
|
|
func while_test ()
|
||
|
|
begin
|
||
|
|
var a, b
|
||
|
|
a := 20
|
||
|
|
|
||
|
|
b := test_while()
|
||
|
|
|
||
|
|
print a
|
||
|
|
|
||
|
|
|
||
|
|
if a > 0 then print "foobar"
|
||
|
|
while a > 0 do
|
||
|
|
begin
|
||
|
|
if a = 10 then
|
||
|
|
begin
|
||
|
|
a -= 1
|
||
|
|
print "Skip..."
|
||
|
|
continue
|
||
|
|
end
|
||
|
|
else
|
||
|
|
a -= 1
|
||
|
|
print a
|
||
|
|
end
|
||
|
|
return 0
|
||
|
|
end
|
||
|
|
|
||
|
|
func test_while()
|
||
|
|
begin
|
||
|
|
var n, m
|
||
|
|
|
||
|
|
n := 4
|
||
|
|
m := 21
|
||
|
|
|
||
|
|
while n > 0 do
|
||
|
|
begin
|
||
|
|
n -= 1
|
||
|
|
if n = 2 then
|
||
|
|
continue
|
||
|
|
|
||
|
|
while m > 0 do
|
||
|
|
begin
|
||
|
|
m -= 1
|
||
|
|
|
||
|
|
if m = 10 then
|
||
|
|
continue
|
||
|
|
|
||
|
|
print n, m
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
end
|
||
|
|
|
||
|
|
return 0
|
||
|
|
end
|