计算1到1000中的质数 下面的程序运行不了 求修改

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

data LJX;

do i=1 to 1000;

count=0;

m=sqrt(i);

do j=1 to m;

if mod(i,j)=0 then count+1;

end;

if count=1;

output;

run;

proc print;

run;

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：output Count outpu print Then 程序

data LJX;
        do i=1 to 1000;
                count=0;
                do j=1 to int(sqrt(i));
                        if mod(i,j)=0 then count+1;
                end;
                if count=1 then output;
        end;
run;

playmore 发表于 2014-4-14 20:16
data LJX;
        do i=1 to 1000;
                count=0;

谢谢 非常感谢  琢磨了半天 原来没用取整函数 还少了个end

TOTO只是爱拍照 发表于 2014-4-14 20:36
谢谢 非常感谢  琢磨了半天 原来没用取整函数 还少了个end

More than, when the number is large, inserting a sentence into the inner loop like

1. if count >1 then leave;

复制代码

will significantly improve the efficiency.

JingJu