Question

怎样用 vfp 程序设计输出杨辉三角？急急急

Answer 1

我给出的图形是靠左侧对齐的。已经上机验证过了。

clear
input "输入行数：" to n
dime a(n,n)
for i=1 to n
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),3)
endfor
?
endfor
cancel

追问

我只要前五行的，该怎么弄？谢谢，不胜感激

追答

clear
dime a(5,5)
for i=1 to 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),3)
endfor
?
endfor
cancel

Answer 2

上面那个回答实在太差了,看看我的,居中对齐
input "输入杨辉三角的行数" to a
dimension t(a,a)
for i =1 to a
?space(2*a-i*2)
for j=1 to i
t(i,j)=1
if not(j=1 or i=j)
t(i,j)=t(i-1,j-1)+t(i-1,j)
endif
??allt(str(t(i,j)))+space(3)
endfor
endfor