Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Sorting-algorithms-Bubble-sort/Modula-2/sorting-algorithms-bubble-sort.mod2
+++ b/Task/Sorting-algorithms-Bubble-sort/Modula-2/sorting-algorithms-bubble-sort.mod2
@ -0,0 +1,19 @@
+PROCEDURE BubbleSort(VAR a: ARRAY OF INTEGER);
+  VAR
+    changed:        BOOLEAN;
+    temp, count, i: INTEGER;
+BEGIN
+  count := HIGH(a);
+  REPEAT
+    changed := FALSE;
+    DEC(count);
+    FOR i := 0 TO count DO
+      IF a[i] > a[i+1] THEN
+        temp := a[i];
+        a[i] := a[i+1];
+        a[i+1] := temp;
+        changed := TRUE
+      END
+    END
+  UNTIL NOT changed
+END BubbleSort;