Data commit

Task/Pascal-matrix-generation/Ring/pascal-matrix-generation.ring

@@ -0,0 +1,73 @@
+# Project : Pascal matrix generation
+
+load "stdlib.ring"
+res = newlist(5,5)
+
+see "=== Pascal upper matrix ===" + nl
+result = pascalupper(5)
+showarray(result)
+
+see nl + "=== Pascal lower matrix ===" + nl
+result = pascallower(5)
+showarray(result)
+
+see nl + "=== Pascal symmetrical matrix ===" + nl
+result = pascalsymmetric(5)
+showarray(result)
+
+func pascalupper(n)
+    for m=1 to n
+          for p=1 to n
+               res[m][p] = 0
+          next
+    next
+    for p=1 to n
+         res[1][p] = 1
+    next
+    for i=2 to n
+        for j=2 to i
+            res[j][i] = res[j][i-1]+res[j-1][i-1]
+        end
+    end
+    return res
+
+func pascallower(n)
+        for m=1 to n
+              for p=1 to n
+                   res[m][p] = 0
+              next
+        next
+       for p=1 to n
+             res[p][1] = 1
+       next
+       for i=2 to n
+            for j=2 to i
+                 res[i][j] = res[i-1][j]+res[i-1][j-1]
+            next
+        next
+        return res
+
+func pascalsymmetric(n)
+        for m=1 to n
+              for p=1 to n
+                   res[m][p] = 0
+              next
+        next
+        for p=1 to n
+              res[p][1] = 1
+              res[1][p] = 1
+        next
+        for i=2 to n
+             for j = 2 to n
+                  res[i][j] = res[i-1][j]+res[i][j-1]
+             next
+        next
+        return res
+
+func showarray(result)
+        for n=1 to 5
+              for m=1 to 5
+                   see "" + result[n][m] + " "
+              next
+             see nl
+        next