home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c081_7 / 7.ddi / TFEXMPL.ZIP / PRIME0PA.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-13  |  1008 b   |  48 lines
  1. { Copyright (c) 1990, Borland International }
  2. program Prime0PA;
  3.  
  4. const
  5.   MaxPrimes = 1000;
  6.  
  7. type
  8.   PrimeArray = array[1..1000] of Integer;
  9.  
  10. var
  11.   Primes              : PrimeArray;
  12.   CurPrime, LastPrime : Integer;
  13.   J                   : Integer;
  14.   GetOut              : Boolean;
  15.  
  16. begin
  17.   Primes[1] := 2;
  18.   Primes[2] := 3;
  19.   LastPrime := 2;
  20.   CurPrime  := 3;
  21.  
  22.   Writeln('Prime 1 = ', Primes[1]);
  23.   Writeln('Prime 2 = ', Primes[2]);
  24.  
  25.   while CurPrime < MaxPrimes do
  26.   begin
  27.     GetOut := False;
  28.     J := 1;
  29.     while (J <= LastPrime) and (not GetOut) do
  30.     begin
  31.       if (CurPrime mod Primes[J]) = 0 then
  32.       begin
  33.         CurPrime := CurPrime + 2;
  34.         GetOut := True;
  35.       end
  36.       else
  37.         Inc(J);
  38.     end; { while }
  39.     if J > LastPrime then
  40.     begin
  41.       Inc(LastPrime);
  42.       Writeln('Prime ', LastPrime, ' = ', CurPrime);
  43.       Primes[LastPrime] := CurPrime;
  44.       CurPrime := CurPrime + 2;
  45.     end; { if }
  46.   end; { while }
  47. end. { Prime0 }
  48.