Implemented control constructs

This commit is contained in:
Dmitry Boulytchev 2018-03-20 20:30:58 +03:00
commit a60a491e73
23 changed files with 487 additions and 9 deletions

20
regression/test015.expr Normal file
View file

@ -0,0 +1,20 @@
s := 0;
read (n);
p := 2;
while n > 0 do
c := 2;
f := 1;
while c*c <= p && f do
f := (p % c) != 0;
c := c + 1
od;
if f != 0 then
if n == 1 then write (p) else skip fi;
n := n - 1
else skip fi;
p := p + 1
od