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 |