Add Baklava in Modula2 (#4126)

TheRenegadeCoder · Dec 24, 2024 · 71346ac · 71346ac
1 parent 662ff1e
commit 71346ac
Showing 1 changed file with 26 additions and 0 deletions.
diff --git a/archive/m/modula2/Baklava.mod b/archive/m/modula2/Baklava.mod
@@ -0,0 +1,26 @@
+MODULE Baklava;
+
+FROM StrIO IMPORT WriteString, WriteLn;
+
+PROCEDURE WriteRepeatString(s: ARRAY OF CHAR; n: CARDINAL);
+VAR i: CARDINAL;
+BEGIN
+    FOR i := 1 TO n DO
+        WriteString(s);
+    END
+END WriteRepeatString;
+
+VAR
+    n: INTEGER;
+    numSpaces: CARDINAL;
+    numStars: CARDINAL;
+
+BEGIN
+    FOR n := -10 TO 10 DO
+        numSpaces := ABS(n);
+        numStars := 21 - 2 * numSpaces;
+        WriteRepeatString(' ', numSpaces);
+        WriteRepeatString('*', numStars);
+        WriteLn;
+    END;
+END Baklava.