home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPTC16.ZIP / SIEVE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-01-04  |  792 b   |  41 lines
  1.  
  2. program Sieve;
  3.  
  4. (*
  5.    Sieve of Eratosthenes
  6. *)
  7.  
  8. const
  9.   Size = 8190;
  10. var
  11.   Flags : array[0..Size] of Boolean;
  12.   Prime, K, Count : Integer;
  13.   Inter, I : Integer;
  14.  
  15. begin
  16.   WriteLn('Sieve of Eratosthenes...');
  17.   Write('50 iterations');
  18.   WriteLn;
  19.   for Inter := 1 to 50 do
  20.     begin
  21.       Count := 0;
  22.       for I := 0 to Size do
  23.         Flags[I] := True;
  24.       for I := 0 to Size do
  25.         begin
  26.           if (Flags[I]) then
  27.             begin
  28.               Prime := I+I+3;
  29.               K := I+Prime;
  30.               while (K <= Size) do
  31.                 begin
  32.                   Flags[K] := False;
  33.                   K := K+Prime;
  34.                 end;
  35.               Count := Count+1;
  36.             end;
  37.         end;
  38.     end;
  39.   WriteLn(Count, ' primes');
  40. end.
  41.