杨辉三角

算法 | 2015-11-20 02:40:50 | 1323次阅读 | 0评
clear
input "输入行数:"  to n 
dime a(n,n) 
for i=1 to n 
    ?space((n-i)/2*5)  
    for j=1 to i 
        if j=1 or i=j   
            a(i,j)=1 
        else 
            a(i,j)=a(i-1,j-1)+a(i-1,j) 
        endif 
        ??str(a(i,j),5) 
    endfor 
    ? 
endfor
博友评论,共0条
浏览156265次