home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / bix / sbench.pas < prev    next >
Pascal/Delphi Source File  |  1986-08-04  |  819b  |  36 lines
  1. {TITLE: Pascal Sieve BenchMark}
  2.  
  3. (*$i-*)
  4. program sieve;
  5.  
  6. const size=8190;
  7.  
  8. var flags:array[0..size] of boolean;
  9.     i,prime,k,count,iter:integer;
  10.  
  11. begin
  12.      write('Press return to start: '); readln;
  13.  
  14.      writeln('Size of flags: ',sizeof(flags));
  15.      writeln('10 iterations');
  16.      for iter:=1 to 10 do
  17.      begin
  18.           count:=0;
  19.           for i:=0 to size do flags[i]:=TRUE;
  20.           for i:=0 to size do
  21.           if flags[i] then
  22.           begin
  23.                prime := i+i+3;
  24.                k := i+prime;
  25.                while k<=size do
  26.                begin
  27.                     flags[k] := false;
  28.                     k := k+prime;
  29.                end;
  30.                count := count+1;
  31.           end;
  32.      end;
  33.      writeln(count, ' primes.');
  34.      writeln('Finished.');
  35. end.
  36.