home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / spencer_2bsd.tar.gz / 2bsd.tar / src / pascal / tests / sort.p < prev    next >
Text File  |  1980-02-17  |  335b  |  11 lines
  1. program bench1(output);
  2.     const size = 300;
  3.     var i,j,t: integer; a: array[1..size] of integer;
  4. begin for i := 1 to size do a[i] := size + 1 - i;
  5.     for i := size-1 downto 1 do
  6.     for j := i to size-1 do
  7.         if a[j] > a[j+1] then
  8.         begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end;
  9.     { for i := 1 to size do writeln(a[i]) }
  10. end.
  11.