用sas软件求1-1000的质数

落日1991

6582

收藏 2014-04-14

data xx;
do i=1 to 1000;
do j=1 to i-1;
if mod(i,j)=0 then leave;
else continue;
end;
drop j;
run;
proc print;
run;
帮忙看哪里出现问题，运行不了

扫码加我拉你入群

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

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

全部回复

DMIRROR

2014-7-31 21:40:03

扫码加我拉你入群

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

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

ermutuxia

2014-8-4 15:53:08

data tmp(drop=i);
n=2;
output;
do n=3 to 10000 by 2;
do i=2 to n-1;
if mod(n,i)=0 and i^=n-1 then leave;
if i=n-1 then output;
end;
end;
run;
proc print;
run;

扫码加我拉你入群

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

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

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群