关闭

用集合筛选法求200以内的素数;

181人阅读 评论(0) 收藏 举报
分类:
program a;
const n=200;
var s,p:set of 2..n;
    nxt,j,t:integer;
begin
 s:=[2..n];p:=[];
 nxt:=2;t:=0;
 repeat
   while not(nxt in s) do
      nxt:=succ(nxt);
   p:=p+[nxt];j:=nxt;
   while j<=n do begin
                   s:=s-[j];inc(j,nxt);
                 end;
   if nxt in p then begin
                       inc(t);write(nxt:6);
                    end;
   until s=[];
 end.
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:15045次
    • 积分:108
    • 等级:
    • 排名:千里之外
    • 原创:91篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档