[Back to SORTING SWAG index]  [Back to Main SWAG index]  [Original]

{
> Does anyone know of a routine or code that would allow for
> a alphbetical sort in pascal?  If so could you mail or
> Write it in this base?  Thanks!

I know of a couple but this is the best and fastest one that I know of

Bubble Sort
}

Type
  StArray = Array [1..10] of String;

Procedure bubble_sort(Var names : StArray);
Var
  i,
  last,
  latest : Integer;
  temp : String;
  exchanged : Boolean;
begin
  last := max_names - 1;
  Repeat
    i := 1;
    exchanged := False;
    latest    := last;
    Repeat
      if names[i] > names[i+1] then
      begin
        temp := names[i];
        names[i] := names[i+1];
        names[i+1] := temp;
        exchanged := True;
        latest := i;
      end;
      inc(i);
    Until not (i <= last);
    last := latest;
  Until not ((last >= 2) and exchanged);
end;

[Back to SORTING SWAG index]  [Back to Main SWAG index]  [Original]