杨辉三角是一个由数字排列成的三角形数表，一般形式如下： 

         1 

        1 1 

       1 2 1 

      1 3 3 1 

    1 4 6 4 1 

  1 5 10 10 5 1 

1 6 15 20 15 6 1 

...................................................... 
杨辉三角最本质的特征是，它的两条斜边都是由数字1组成的，而其余的数则是等于它肩上的两个数之和。 

cls
input n
dim a(n,n)
for i=1 to n
a(i,1)=1:a(i,i)=1
for j=2 to i-1
a(i,j)=a(i-1,j-1)+a(i-1,j)
next j,i
for i=1 to n:?tab((n+1-i)*3-2);
for j=1 to i
?using"###";a(i,j);
next j:?
next i
end
这是杨辉三角的程序.................