杨辉三角

作者在 2015-11-20 02:40:50 发布以下内容
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
算法 | 阅读 2561 次
文章评论,共0条
游客请输入验证码
浏览376987次