aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Task/Flow-control-structures/Pop11/flow-control-structures-1.pop11 Normal file
View file

@ -0,0 +1,7 @@
while condition1 do
while condition2 do
if condition3 then
quitloop(2);
endif;
endwhile;
endwhile;

8
Task/Flow-control-structures/Pop11/flow-control-structures-2.pop11 Normal file
View file

@ -0,0 +1,8 @@
while condition1 do
while condition2 do
if condition3 then
goto l;
endif;
endwhile;
endwhile;
l:;

16
Task/Flow-control-structures/Pop11/flow-control-structures-3.pop11 Normal file
View file

@ -0,0 +1,16 @@
state1:
DO_SOMETHING();
if condition1 then
goto state1;
elseif condition2 then
goto state2;
....
else
goto stateN;
endif;
state2:
....
...
...
stateN:
....

10
Task/Flow-control-structures/Pop11/flow-control-structures-4.pop11 Normal file
View file

@ -0,0 +1,10 @@
define outer();
define inner(n);
if n = 0 then
goto final;
endif;
inner(n - 1);
enddefine;
inner(5);
final:;
enddefine;

1
Task/Flow-control-structures/Pop11/flow-control-structures-5.pop11 Normal file
View file

@ -0,0 +1 @@
go_on expression to lab1, lab2, ..., labN else elselab ;

1
Task/Flow-control-structures/Pop11/flow-control-structures-6.pop11 Normal file
View file

@ -0,0 +1 @@
return;

1
Task/Flow-control-structures/Pop11/flow-control-structures-7.pop11 Normal file
View file

@ -0,0 +1 @@
return(val1, val2, val3);

1
Task/Flow-control-structures/Pop11/flow-control-structures-8.pop11 Normal file
View file

@ -0,0 +1 @@
chain proc2(x1, x2, x3);