home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOL_INC.ZIP / BSORT.INC < prev    next >
Encoding:
Text File  |  1988-01-29  |  511 b   |  30 lines
  1.  
  2. (*
  3.  * bsort.inc - generic bubble sort
  4.  *
  5.  * #define SORT_COUNT      number of items to sort
  6.  * #define SORT_REVERSED   returns true if %1 > %1+1
  7.  * #define SORT_SWAP       exchange %1 and %1+1
  8.  *
  9.  *)
  10.  
  11. procedure sort;
  12. var
  13.    i: integer;
  14.    swapped: boolean;
  15. begin
  16.    repeat
  17.       swapped := false;
  18.       for i := 1 to SORT_COUNT do
  19.          if SORT_REVERSED(i) then
  20.          begin
  21.             SORT_SWAP(i);
  22.             swapped := true;
  23.          end;
  24.    until not swapped;
  25. end;
  26.  
  27.  
  28.  
  29.  
  30.