第2个回答 2006-02-03
Delphi写的超快速求质数表
program prime;
{$APPTYPE CONSOLE}
procedure hkeprime(n:integer);
type mytype=array[1..200000] of integer;
var t:mytype;
i:integer;
a:integer;
k:integer;
isp:boolean;
begin
t[1]:=2;
K:=1;
writeln(2);
for i:=2 to n do
begin
isp:=true;
a:=1;
while a<=k do
begin
if i mod t[a] =0 then
begin
isp:=false;
break;
end;
if t[a]*t[a]>i then break;
a:=a+1;
end;
if isp then
begin
k:=K+1;
t[k]:=i;
writeln(i);
end;
end;
end;
begin
hkeprime(10000);
readln;//暂停Dos程序
end.
太长了
Dos程序可能显示不完
你可以存到文件里