用sas编写1到1000的质数。

木英hello

6690

收藏 2014-04-14

dataxx(drop=i);count=0;

do i=1 to 1000;

doj=1 to i;

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

ifcount=2 then output ;

end;

run;

proc print;

run;

自己编的程序好像有问题，求高人指点。

扫码加我拉你入群

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

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

全部回复

biyanyidao

2014-4-14 10:20:18

data a;
do i=3 to 1000;
do j=2 to i-1;
if mod(i,j)=0 then leave;
else continue;
end;
if j=i-1 then output;
end;
drop j;
run;
proc print;run;

扫码加我拉你入群

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

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

biyanyidao

2014-4-14 10:22:02

我这个程序也不太对，不知道哪里错了。j=i-1条件有问题，将之改为j<i+1，倒是可以得到1-1000的所有合数

扫码加我拉你入群

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

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

biyanyidao

2014-4-14 10:31:07

data xx;
do i=1 to 1000;
count=0;
do j=1 to i;
if mod(i,j)=0 then count+1;
end;
if count=2 then output;
end;
drop count j;
run;
proc print;
run;
程序改成这样可以运行

扫码加我拉你入群

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

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

木英hello

2014-4-14 10:34:57

biyanyidao 发表于 2014-4-14 10:31
data xx;
do i=1 to 1000;
count=0;

谢谢啦，果然可以！

扫码加我拉你入群

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

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

biyanyidao

2014-4-14 10:35:56

前面那个程序不知道哪里出问题了，找不到原因，很郁闷

扫码加我拉你入群

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

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

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群