很久之前的一道题，今天没事弄出来

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

有一列队编号从1至50，取出编号是奇数的，从新排队，继续取出奇数号，直至最后留一位，请问最后一位的编号是多少？公布了用IML实现的结果，看看DATA步怎么实现？
%let xx=50;
proc iml;
x=j(1,&xx,0);
do i =1 to &xx;
x[1,i]=i;
end;
z=ncol(x);
do while (z>=2);
x=x[1,2*(1:int(z/2))];
z=ncol(x);
end;
print x;
quit;
/*上面是过程，下面是计算公式*/
y=2**(int(log10(&XX)/log10(2)));
print y;

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：print while data步 Data quit

学习学习，谢谢楼主！

6由50对数底数2求出，不过求num步有些问题，其他都ok

1. data a;
   
2. do while (x<50);
   
3. x+1;
   
4. output;
   
5. end;
   
6. run;
   
7. 
   
8. %macro aa(donnee,num);
   
9. 
   
10. %do i=1 %to %eval(&num);
    
11. data &donnee;
    
12. set &donnee;
    
13. if mod(_n_,2)=1;
    
14. run;
    
15. %end;
    
16. 
    
17. %mend aa;
    
18. 
    
19. /*%let num=%sysevalf(int(log(50)/log(2))+1);*/
    
20. 
    
21. %aa(a,6)

复制代码

凑个数：

1. 不凑了

复制代码

京剧

其实这个题目也没有意思了。直接用那个公式算不就行了。2往下乘一直到50之前的那个最大的乘积。京剧

1.    
   
2. run;

复制代码