home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AMIGA PD 1
/
AMIGA-PD-1.iso
/
Programme_zum_Heft
/
Programmieren
/
Kurztests
/
PascalPCQ
/
Examples
/
Sieve.p
< prev
next >
Wrap
Text File
|
1991-03-27
|
717b
|
38 lines
Program Sieve;
{
This is the same old sieve program. According to the docs for
Sozobon-C, Manx C runs this in about 7 seconds, and ZC takes about
five. PCQ takes about 15 seconds.
}
const
Size = 8190;
SizePL = Size + 1;
Var
Flags : Array [0..SizePL] of Boolean;
i, prime,
k, count,
iter : Integer;
begin
Writeln('10 iterations');
for iter := 1 to 10 do begin
count := 0;
for i := 0 to Size do
flags[i] := true;
for i := 0 to Size do begin
if flags[i] then begin
prime := i+i+3;
k := i + prime;
while k <= size do begin
flags[k] := false;
k := k + prime;
end;
Inc(count);
end;
end;
end;
Writeln(Count, ' primes');
end.