September 2017 Update

2017-09-23 10:01:46 +02:00 · 2017-09-23 10:01:46 +02:00 · ba8067c3b7
commit ba8067c3b7
parent bba7bfd280
14570 changed files with 153136 additions and 63871 deletions
--- a/Task/Flow-control-structures/ALGOL-W/flow-control-structures.alg
+++ b/Task/Flow-control-structures/ALGOL-W/flow-control-structures.alg
@ -0,0 +1,18 @@
+begin
+    integer i;
+    integer procedure getNumber ;
+    begin
+        integer n;
+        write( "n> " );
+        read( i );
+        if i< 0 then goto negativeNumber;
+        i
+    end getNumber ;
+
+    i := getNumber;
+    write( "positive or zero" );
+    go to endProgram;
+negativeNumber:
+    writeon( "negative" );
+endProgram:
+end.