桶排序

var
  arr:array[0..10] of integer;
  arr2:array[0..5] of integer;
  i,j:integer;
begin
  for i:=0 to 10 do
     arr[i]:=0;

  arr2[0]:=2;
  arr2[1]:=3;
  arr2[2]:=7;
  arr2[3]:=1;
  arr2[4]:=3;
  arr2[5]:=9;
  for i:=0 to 5 do
  begin
     arr[arr2[i]]:=arr[arr2[i]]+1;
  end;
  for i:=0 to 10 do
     for j:=0 to arr[i]-1 do
        memo1.Lines.Add(inttostr(i));
end;

结果

1
2
3
3
7
9