杨辉三角

算法 | 2015-11-20 02:40:50 | 阅读 1942 次 | 评论(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条
游客请输入验证码
浏览234097次
最新评论
  • cstdio:ooooooo
  • sdta:从VFP入手也不错
  • yuanhouwen:尊敬的sdta大神:作为一个编程外行,看到你关于操控EXCEL的编程程序我觉得特别神奇,想向你...