June 2018 Update

Task/Floyds-triangle/Modula-2/floyds-triangle.mod2

@@ -0,0 +1,37 @@
+MODULE FloydTriangle;
+FROM FormatString IMPORT FormatString;
+FROM Terminal IMPORT WriteString,WriteLn,ReadChar;
+
+PROCEDURE WriteInt(n : INTEGER);
+VAR buf : ARRAY[0..9] OF CHAR;
+BEGIN
+    FormatString("%4i", buf, n);
+    WriteString(buf)
+END WriteInt;
+
+PROCEDURE Print(r : INTEGER);
+VAR n,i,limit : INTEGER;
+BEGIN
+    IF r<0 THEN RETURN END;
+
+    n := 1;
+    limit := 1;
+    WHILE r#0 DO
+        FOR i:=1 TO limit DO
+            WriteInt(n);
+            INC(n)
+        END;
+        WriteLn;
+
+        DEC(r);
+        INC(limit)
+    END
+END Print;
+
+BEGIN
+    Print(5);
+    WriteLn;
+    Print(14);
+
+    ReadChar
+END FloydTriangle.