Sorting algorithms/Bubble sort: Difference between revisions
Content added Content deleted
Line 560: | Line 560: | ||
<lang modula3>MODULE Bubble; |
<lang modula3>MODULE Bubble; |
||
PROCEDURE |
PROCEDURE Sort(VAR a: ARRAY OF INTEGER) = |
||
VAR sorted: BOOLEAN; |
VAR sorted: BOOLEAN; |
||
temp, len: INTEGER := LAST(a); |
temp, len: INTEGER := LAST(a); |
||
Line 576: | Line 576: | ||
END; |
END; |
||
END; |
END; |
||
END |
END Sort; |
||
END Bubble.</lang> |
END Bubble.</lang> |
||