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

9
regression/test021.expr Normal file
View file

@ -0,0 +1,9 @@
read (n);
f := 1;
for skip, n >= 1, n := n-1
do
f := f * n
od;
write (f)