March 2014 update

2014-04-02 16:56:35 +00:00 · 2014-04-02 16:56:35 +00:00 · a25938f123
commit a25938f123
parent 09687c4926
1846 changed files with 21876 additions and 5203 deletions
--- a/Task/Arithmetic-Complex/COBOL/arithmetic-complex-1.cobol
+++ b/Task/Arithmetic-Complex/COBOL/arithmetic-complex-1.cobol
@ -0,0 +1,14 @@
+      $SET SOURCEFORMAT "FREE"
+$SET ILUSING "System"
+$SET ILUSING "System.Numerics"
+class-id Prog.
+method-id. Main static.
+procedure division.
+    declare num as type Complex = type Complex::ImaginaryOne()
+    declare results as type Complex occurs any
+    set content of results to ((num + num), (num * num), (- num), (1 / num), type Complex::Conjugate(num))
+    perform varying result as type Complex thru results
+        display result
+    end-perform
+end method.
+end class.
--- a/Task/Arithmetic-Complex/COBOL/arithmetic-complex-2.cobol
+++ b/Task/Arithmetic-Complex/COBOL/arithmetic-complex-2.cobol