home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / turbopas / pas_sci.arc / TSTSORT.PAS < prev   
Pascal/Delphi Source File  |  1985-08-01  |  1KB  |  62 lines
  1. program tstsort;        { -> 172 }
  2. { test speed of sorting routine }
  3.  
  4. label exit;
  5.  
  6. const    max    = 1000;
  7.  
  8. type    ary    = array[1..300] of real;
  9.  
  10. var    x    : ary;
  11.     n,i    : integer;
  12.     seed    : real;
  13.     first    : boolean;
  14.  
  15.  
  16. procedure print;
  17. var    i     : integer;
  18.  
  19. begin
  20.   writeln;
  21.   for i:=1 to n do
  22.     begin
  23.       write(x[i]:7:2);
  24.       if (i mod 10)=0 then writeln
  25.     end
  26. end;
  27.  
  28. {$I sort-q-n.lib}
  29.  
  30. begin        { MAIN program }
  31.  
  32.   ClrScr;
  33.   repeat
  34.     repeat
  35.       writeln;
  36.       write('How many points? ');
  37.       readln(n);
  38.       if n<=0 then goto exit
  39.     until n<=max;
  40.     if first then first:=false else ClrScr;
  41.     for i:=1 to n do
  42.       x[i]:=100*Random;
  43.     print;
  44.     write(chr(7));
  45.     sort(x,n);        { random numbers }
  46.     write(chr(7));
  47.     print;
  48.     writeln(' random ');
  49.     write(chr(7));
  50.     sort(x,n);        { sorted numbers }
  51.     write(chr(7));
  52.     print;
  53.     writeln(' sorted ');
  54.     for i:=1 to n do
  55.       x[i]:=n+1-i;
  56.     write(chr(7));
  57.     print;
  58.     writeln(' reversed ');
  59.   until n<5;
  60.   exit: writeln(' tstsort terminated.')
  61. end.
  62.