home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / PASCAL / IOSTUFF.ZIP / PRIME.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-12-28  |  723 b   |  35 lines
  1. {$debug-}
  2. program prime(output);
  3. procedure time(var s:string); extern;
  4.  
  5. const    size = 8190;
  6.  
  7. var    flags : array[0..size] of boolean;
  8.     i,prime,k,count,iter : integer;
  9.     start_time,end_time : string(8);
  10.  
  11. begin
  12.     writeln('10 iterations');
  13.     time(start_time);
  14.     writeln('Started at ',start_time);
  15.     for iter := 1 to 10 do begin
  16.       count := 0;
  17.       for i := 0 to size do
  18.          flags[i] := true;
  19.       for i := 0 to size do
  20.          if flags[i] then begin
  21.         prime := i+i+3;
  22.         {writeln(prime);}
  23.         k := i+prime;
  24.         while k <= size do begin
  25.            flags[k] := false;
  26.            k := k + prime;
  27.         end;
  28.         count := count+1;
  29.          end;
  30.     end;
  31.     time(end_time);
  32.     writeln('Finished at ',end_time);
  33.     writeln(count,' Primes')
  34. end.
  35.