如何做出杨辉三角

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请问一下有人知道
如何用SAS做出杨辉三角
并在log视窗呈现
         1
        11
      1 2 1
     1 3 3 1
    1 4 6 4 1
1 5 10 10 5 1

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：杨辉三角 如何用 Log 如何 杨辉三角

呵呵，这个有点意思，多年前用C做过。

1. %let lvl=12;
   
2. data _null_;
   
3.         array _x $ x1-x%eval(&lvl*2-1);
   
4.         do i=0 to %eval(&lvl-1);
   
5.                 do j=1 to %eval(&lvl*2-1);
   
6.                         _x[j]="";
   
7.                 end;
   
8.                 do j=1 to i+1;
   
9.                         _x[(&lvl-i)+(j-1)*2]=comb(i,i+1-j);
   
10.                 end;
    
11.                 put x1-x%eval(&lvl*2-1);
    
12.         end;
    
13. run;

复制代码

多了貌似对不齐，求优化改进

謝謝您的幫忙 不過還是有很多地方我看了不是很懂
像是
%let lvl 和
%eval
另外在問一下 是不是可以
只用array就做出
楊輝三角呢

cloudfreud 发表于 2011-12-23 18:26
謝謝您的幫忙 不過還是有很多地方我看了不是很懂
像是
%let lvl 和

1. proc format;
   
2. value pfmt 0 =' ' other =[best.];
   
3. run;
   
4. data _null_;
   
5.    array x[6] (6*0);array s[6] _temporary_;
   
6.    do i =1 to 6;
   
7.       x[i] =1; *fixed head and tail;
   
8.       if i>2 then do k =2 to i-1;
   
9.          x[k] =s[k] +s[k-1];
   
10.       end;
    
11.       *remember x- array last round;
    
12.       do j =1 to 6;
    
13.          s[j] =x[j];
    
14.       end;
    
15.       put x{*}(pfmt.);
    
16.    end;
    
17. run;

复制代码

试试。也无法测试。而且也没有想到简单的方法输出要求的格式。
祝大家节日快乐！！！
京剧

jingju11 发表于 2011-12-24 13:12
试试。也无法测试。而且也没有想到简单的方法输出要求的格式。
祝大家节日快乐！！！
京剧

謝謝你