Sync

2013-10-27 22:24:23 +00:00 · 2013-10-27 22:24:23 +00:00 · 776bba907c
commit 776bba907c
parent 6f050a029e
3887 changed files with 59894 additions and 7280 deletions
--- a/Task/Flow-control-structures/COBOL/flow-control-structures-1.cobol
+++ b/Task/Flow-control-structures/COBOL/flow-control-structures-1.cobol
@ -0,0 +1,8 @@
+       PROGRAM-ID. Go-To-Example.
+
+       PROCEDURE DIVISION.
+       Foo.
+           DISPLAY "Just a reminder: GO TOs are evil."
+
+           GO TO Foo
+           .
--- a/Task/Flow-control-structures/COBOL/flow-control-structures-2.cobol
+++ b/Task/Flow-control-structures/COBOL/flow-control-structures-2.cobol
@ -0,0 +1,4 @@
+       GO TO First-Thing Second-Thing Third-Thing
+           DEPENDING ON Thing-To-Do
+
+*      *> Handle invalid thing...
--- a/Task/Flow-control-structures/COBOL/flow-control-structures-3.cobol
+++ b/Task/Flow-control-structures/COBOL/flow-control-structures-3.cobol
@ -0,0 +1,13 @@
+           EVALUATE Thing-To-Do
+               WHEN 1
+*                  *> Do first thing...
+
+               WHEN 2
+*                  *> Do second thing...
+
+               WHEN 3
+*                  *> Do third thing...
+
+               WHEN OTHER
+*                  *> Handle invalid thing...
+           END-EVALUATE
--- a/Task/Flow-control-structures/COBOL/flow-control-structures-4.cobol
+++ b/Task/Flow-control-structures/COBOL/flow-control-structures-4.cobol
@ -0,0 +1,23 @@
+       PROGRAM-ID. Perform-Example.
+
+       PROCEDURE DIVISION.
+       Main.
+           PERFORM Moo
+           PERFORM Display-Stuff
+           PERFORM Boo THRU Moo
+
+           GOBACK
+           .
+
+       Display-Stuff SECTION.
+       Foo.
+           DISPLAY "Foo " WITH NO ADVANCING
+           .
+
+       Boo.
+           DISPLAY "Boo " WITH NO ADVANCING
+           .
+
+       Moo.
+           DISPLAY "Moo"
+           .
--- a/Task/Flow-control-structures/MATLAB/flow-control-structures.m
+++ b/Task/Flow-control-structures/MATLAB/flow-control-structures.m
@ -0,0 +1,5 @@
+try
+   % do some stuff
+catch
+   % in case of error, continue here
+end
--- a/Task/Flow-control-structures/REXX/flow-control-structures-3.rexx
+++ b/Task/Flow-control-structures/REXX/flow-control-structures-3.rexx
@ -13,16 +13,11 @@ signal off lostdigits
 signal off notready
 signal off novalue
 signal off syntax
- ∙
- ∙
- ∙
+...
 signal on novalue
- ∙
- ∙
+...
 x=oopsay+1
- ∙
- ∙
- ∙
+...
 novalue: say
 say '*** error! ***'
 say
@ -34,6 +29,4 @@ say 'REXX source statement is:'
 say sourceline(sigl)
 say
 exit 13
- ∙
- ∙
- ∙
+...
--- a/Task/Flow-control-structures/REXX/flow-control-structures-4.rexx
+++ b/Task/Flow-control-structures/REXX/flow-control-structures-4.rexx
@ -4,9 +4,7 @@
  say 'negative j=' -j
  end
 say 'end of the DO loop for j.'
- ∙
- ∙
- ∙
+...
 ouch=60
 sum=0

--- a/Task/Flow-control-structures/REXX/flow-control-structures-5.rexx
+++ b/Task/Flow-control-structures/REXX/flow-control-structures-5.rexx
@ -7,9 +7,7 @@ sum=0

           /*shows sum of 1k numbers except those divisible by 3 or 7.*/
 say 'sum='sum
- ∙
- ∙
- ∙
+...
 numeric digits 5000
 prod=0

--- a/Task/Flow-control-structures/REXX/flow-control-structures-6.rexx
+++ b/Task/Flow-control-structures/REXX/flow-control-structures-6.rexx
@ -1,7 +1,5 @@
 numeric digits 1000               /*prepare for some gihugeic numbers.*/
- ∙
- ∙
- ∙
+...
 n=4
 call factorial n
 say n'!=' result
--- a/Task/Flow-control-structures/REXX/flow-control-structures-7.rexx
+++ b/Task/Flow-control-structures/REXX/flow-control-structures-7.rexx
@ -1,14 +1,10 @@
- ∙
- ∙
- ∙
+...
 prod=1
 a=7               /*or somesuch.*/
 b=3               /*  likewise. */

 op='**'           /*or whatever.*/
- ∙
- ∙
- ∙
+...
  select
  when op=='+'         then  r=a+b           /*add.                   */
  when op=='-'         then  r=a-b           /*subtract.              */