用sas编写1到1000的质数。

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

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;

end;

run;

proc print;

run;

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

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：output Count 求高人指点 print outpu count 程序

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;

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

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;
程序改成这样可以运行

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

谢谢啦，果然可以！

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