UC知道Pascal筛法求1~N（N≤100000）内的质数
来源：百度知道 编辑：UC知道 时间：2024/05/28 15:29:27
如题。
我要具体的一些分析（希望使自己的见解，不要网上搜，我没搜到好的才来问的），最重要的是，要最终的、完整、正确的程序！还有优化，包括如何优化的分析和优化的程序。
谢谢各位大虾！
我要具体的一些分析（希望使自己的见解，不要网上搜，我没搜到好的才来问的），最重要的是，要最终的、完整、正确的程序！还有优化，包括如何优化的分析和优化的程序。
谢谢各位大虾！
N:=100000;
FILLCHAR(F,SIZEOF(F),TRUE);
FOR I:= 2 TO TRUNC(SQRT(N)) DO
IF F[I] THEN
FOR J:= 2 TO (N DIV I) DO
F[J*I]:=FALSE;
数组F中为TRUE的数既为素数
var
a,b,c,d:longmit;
begin
read(n);
for b:=2 to a-1 do
begin
d:=0;
for c:=2 to b do
if b mod c=0 then d:=1;
if d=1 then write(b,' ');
end;
end.