求助，多次整除并重新编号

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

1-50，所有数除2，然后余数再重新排列，再除，直到只剩一个数，再输出。

该怎么写啊，我大致想到了用mod（n，2）和循环语句，加个判定条件最后数小于2就停止循环

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：循环语句 Mod

什么意思，余数不是0就是1

jg.sas 发表于 2020-7-13 13:33
什么意思，余数不是0就是1

意思就是1到50，首先把能除不尽2的全删掉，剩下的排序，然后再删掉不能整除2的，如此往复直到只剩一个观测值，然后得到该观测值的具体数。


就是把这个用sas写出来
1～50 号运动员按顺序排成一排。教练下令：“单数运动员出列！”剩下的运动员重新排队编号。教练又下令：“单数运动员出列！”如此下去，最后只剩下一个人，他是几号运动员？

求求大神教我一下，确实不会

1. %macro lastone(maxpop=);
   
2.         data test;
   
3.                 do aa= 1 to &maxpop.;
   
4.                         output;
   
5.                 end;
   
6.         run;
   
7.         %global ObsNo;
   
8.         %let obsno=0;
   
9.         %do %until(&obsno=1);
   
10.                 data test;
    
11.                         set test;
    
12.                         if mod(_n_,2)=1 then output;
    
13.                 run;
    
14.                   data _null_;
    
15.                     set test nobs=count;
    
16.                     call symput('obsno',left(put(count,8.)));
    
17.                     stop;
    
18.                   run;
    
19.         %end;
    
20. %mend;
    
21. %lastone(maxpop=50);

复制代码

剩下的运动员重新排队编号，怎么重新编号

jg.sas 发表于 2020-7-13 14:47
剩下的运动员重新排队编号，怎么重新编号

比如1到十，奇数出列，剩下来2，4，6，8，10，然后把这5位编成1-5号，再继续奇数出列，然后剩下2，4，也就是原来的4，8号，然后再编成1.2号，到最后剩下的就是原来的8号。

jg.sas 发表于 2020-7-13 14:45

这个要调用宏吗？

我一丢进sas就无限错误。。。

1. %macro lastone(maxpop=);
   
2.         data test;
   
3.                 do aa= 1 to &maxpop.;
   
4.                         output;
   
5.                 end;
   
6.         run;
   
7.         %global ObsNo;
   
8.         %let obsno=0;
   
9.         %do %until(&obsno=2 or &obsno=3);
   
10.                 data test;
    
11.                         set test;
    
12.                         if mod(_n_,2)=1 then output;
    
13.                 run;
    
14.                   data _null_;
    
15.                     set test nobs=count;
    
16.                     call symput('obsno',left(put(count,8.)));
    
17.                     stop;
    
18.                   run;
    
19.         %end;
    
20.         data lastone;
    
21.                 set test;
    
22.                 if _n_=2;
    
23.         run;
    
24. %mend;
    
25. %lastone(maxpop=50);

复制代码

程序修改了一下，你看下

jg.sas 发表于 2020-7-13 15:14
程序修改了一下，你看下

提示这个
MPRINT(LASTONE):   ? ? ? ? ? ? ? ? run;
NOTE: 由调用宏“LASTONE”生成行。
124    ? ? ? ? ? ? ? ? run;

-

180

ERROR 180-322: 语句无效或未按正确顺序使用。