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