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

TOTO只是爱拍照

2188

收藏 2014-04-14

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;

扫码加我拉你入群

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

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

全部回复

playmore

2014-4-14 20:16:51

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;

扫码加我拉你入群

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

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

TOTO只是爱拍照

2014-4-14 20:36:25

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

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

扫码加我拉你入群

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

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

jingju11

2014-4-15 05:23:19

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

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

复制代码

will significantly improve the efficiency.

JingJu

扫码加我拉你入群

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

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

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群