求助 关于杨辉三角形
求助关于杨辉三角形的编程
怎样通过数组来完成
1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1
以下是引用purana在2006-12-18 9:04:21的发言：
Dim I as integer,j as integer
Dim Mat(10,10) as integer
For I = 1 to 10
Mat(I,I) = 1
For j = 1 to I
If j = 1 then
Mat(I,j) = 1
Else
Mat(I,j) = Mat(I-1,j-1) + Mat(I-1,j)
End if
Next
Next
For I = 1 to 10
For j = 1 to I
Print Mat(I,j) & “ “;
Next
Print
Next
Dim I as integer,j as integer
Dim Mat(10,10) as integer
For I = 1 to 10
Mat(I,I) = 1
For j = 1 to I
If j = 1 then
Mat(I,j) = 1
Else
Mat(I,j) = Mat(I-1,j-1) + Mat(I-1,j)
End if
Next
Next
For I = 1 to 10
For j = 1 to I
Print Mat(I,j) & “ “;
Next
Next
原来这个三角形的规律是这样的，刚开始没有找到规律所以无从下手
谢谢，已经运行正常