查人人中国名人网中国总裁军:编程输出扬挥三角形
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/27 21:02:59
我用C编写一个玩玩：
main()
{
int a[10][20],i,j;
clrscr();
for(i=1;i<10;i++)
{
for(j=0;j<=i;j++)
if(j==0||i==j)
{
a[i][j]=1;
printf("%4d",a[i][j]);
}
else
{
a[i][j]=a[i-1][j-1]+a[i-1][j];
printf("%4d",a[i][j]);
}
printf("\n");
}
}
VB的代码,输出11行的:
Dim a(11, 11) As Long
Dim b(11) As String
Dim i As Byte
Dim j As Byte
a(0, 0) = 1
For i = 1 To 11
For j = 1 To 11
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
If a(i, j) <> 0 Then
b(j) = b(j - 1) & " " & a(i, j)
End If
Next j
Print b(i)
Next i
END