杨辉(Pascal)三角形的输出问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

用以下代码生成杨辉三角形：

1. Pascal <- function(n) {
   
2.   Pas <- list()
   
3.   for (ij in 1:(n+1)) {
   
4.     Pas[[ij]] <- rep(1,ij)
   
5.   }
   
6.   if (n > 1) {
   
7.     for (i in 3:(n+1)){
   
8.       for (j in 2:(length(Pas[[i]])-1)){
   
9.         Pas[[i]][j] <- Pas[[i-1]][j-1] + Pas[[i-1]][j]
   
10.       }
    
11.     }
    
12.   }
    
13.   
    
14.   return(Pas)
    
15. }
    
16. 
    
17. n <- 12
    
18. for (i in 1:(n+1)){
    
19.   for (j in 1:i){
    
20.     cat(format(Pascal(n)[[i]][j], width = 5))
    
21.   }
    
22.   cat("\n")
    
23. }

复制代码

生成结果如下

    1    1    1    1    2    1    1    3    3    1    1    4    6    4    1    1    5   10   10    5    1    1    6   15   20   15    6    1    1    7   21   35   35   21    7    1    1    8   28   56   70   56   28    8    1    1    9   36   84  126  126   84   36    9    1    1   10   45  120  210  252  210  120   45   10    1    1   11   55  165  330  462  462  330  165   55   11    1    1   12   66  220  495  792  924  792  495  220   66   12    1
想要如下的输出形式，不知如何修改代码，




谢谢！

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：pas 三角形 杨辉三角 三角形

包你满意

1. yhsj<-function(n){
   
2. J<-array(0,dim=c(n,2*n-1))
   
3. for(i in 1:n)
   
4.    J[i,c(n+1-i,i+n-1)]<-1
   
5. if(n>2)
   
6.    for(i in 3:n)
   
7.     for(j in seq(n+3-i,n-3+i,2))
   
8.      J[i,j]<-J[i-1,j-1]+J[i-1,j+1]
   
9. I<-ceiling(nchar(as.character(max(J)))/2)
   
10. s<-""
    
11. for(i in 1:I)
    
12.    s<-paste(s,"","")
    
13. J[which(J==0)]<-s
    
14. for(i in 1:n)
    
15.    cat(s,format(J[i,],justify="centre"),"\n")
    
16. }
    
17. yhsj(20)

复制代码

实在感谢！！

asdasdaseee 发表于 2015-9-2 02:06
包你满意

您好，可以解释一下吗？有点看不懂这个步骤，谢谢