Anonymous user
Sorting algorithms/Bubble sort: Difference between revisions
Added Modula-2
(Added Modula-2) |
|||
Line 1,393:
1H XOR $255,$255,$255
TRAP 0,Halt,0 % exit(0)</lang>
=={{header|Modula-2}}==
<lang modula2>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;</lang>
=={{header|Modula-3}}==
| |||