Bubble sort
From Lazarus wiki
Bubble sort is a simple sorting algorithm.
Features
- Very slow
- Suitable only for small quantities sorting
- Fast only when the array is nearly sorted
unit UBubbleSort.pas
unit UBubbleSort;
interface
type
// data type
TItemBubbleSort=integer;
procedure BubbleSort( var a: array of TItemBubbleSort );
implementation
procedure swap( var a, b:TItemBubbleSort );
var
temp : TItemBubbleSort;
begin
temp := a;
a := b;
b := temp;
end;
procedure BubbleSort( var a: array of TItemBubbleSort );
var
n, newn, i:integer;
begin
n := high( a );
repeat
newn := 0;
for i := 1 to n do
begin
if a[ i - 1 ] > a[ i ] then
begin
swap( a[ i - 1 ], a[ i ]);
newn := i ;
end;
end ;
n := newn;
until n = 0;
end;
end.
Example of the use
uses
UBubbleSort
...
var
a: array[0..100] of integer;
begin
...
BubbleSort( a );