home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Programmer's Library 1.3 / Microsoft-Programers-Library-v1.3.iso / sampcode / pascal / primes.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-11  |  688 b   |  29 lines
  1. { Prime number generator }
  2. { Generates all the primes between 0 and 10000 }
  3. program primes(output);
  4.  
  5.   var
  6.     prime:      integer;
  7.     rprime:     real4;
  8.     i:          integer;
  9.     sqrtp:      integer;
  10.     notprime:   boolean;
  11.  
  12.   begin
  13.     writeln('      2');
  14.     writeln('      3');
  15.     prime := 5;
  16.     repeat
  17.       rprime := prime;
  18.       sqrtp := trunc(sqrt(rprime) + 1.0);
  19.       i := 1;
  20.       notprime := false;
  21.       while (i < sqrtp) and (not notprime) do
  22.         begin
  23.           i := i + 2;
  24.           notprime := (prime mod i = 0);
  25.         end;
  26.       if (not notprime) then writeln(prime:6);
  27.       prime := prime + 2;
  28.     until (prime > 10000);
  29.   end.