广告：
网页制作参考
千千学园
雨路开发频道
雨路技术文档
技术问答
编程技术

（一）杨辉三角形

                            1

                          1   1

                        1   2   1

                      1   3   3   1

                    1   4   6   4   1

                  1  5   10   10  5   1

这是我国宋朝数学家杨辉在公元1261年著书《详解九章算法》里画的一张图，这便是著名的杨辉三角形。

（二）程序设计

由笔算过程已经分析出算法，可利用循环控制变量算出。我们除掉最上层仅有一个数字的1，其下算做第一行，依次可递推至任意N行。可随机输入要算的N行数字置入数组M（15）中，而后赋给数组IM（90）。输出数组IM（90）时，形象地打印出三角形的层次和各行各位的数字，并打印汉语拼音“杨辉三角形”。本程序设计最多为12行。

FORTRAN语言源程序：

        INTEGER M(15),IM(90)

        WRITE (*,10)

10                      FORMAT(10X,22HYang-Hui San Jiao Xing/5X,’N

READ(*,20)N

20      FORMAT(I2)

JJ=0

DO 44 I=1,N

  DO 30 L=1,N

    M(L)=0

30                        CONTINUE

  K=1

  M(1)=1

  L=I+1

  DO 50 J=1,L

    K=K*(I-J+1)/J

    M(J+1)=K

50                        CONTINUE

  DO 40 IJ=1,L

    JI=JJ+IJ

    IM(JI)=M(IJ)

40                        CONTINUE

  JJ=JJ+L

44                      CONTINUE

WRITE(5,60) (IM(I),I=1,JJ)

60                      FORMAT(33X,2I6/,30X,3I6/,28X,4I6/,25X,5I6/,22X,6I6/,

1         19X,7I6/,16X,8I6/,13X,9I6/,10X,10I6/,7X,11I6/,4X,12I6/,

2         1X,13I6/)

END

BASIC语言源程序：

10  DIM m(15): DIM im(90)

20  PRINT "Yang-Hui San Jiao Xing"

30  INPUT n

40  jj = 0

50  FOR i = 1 TO n

60    FOR l = 1 TO n

70      m(l) = 0

80    NEXT l

90    k = 1: m(1) = 1

100   l = i + 1

110   FOR j = 1 TO l

120     k = k * (i - j + 1) / j

130     m(j + 1) = k

140   NEXT j

150   FOR ij = 1 TO l

160     ji = jj + ij

170     im(ji) = m(ij)

180   NEXT ij

190   jj = jj + l

200 NEXT i

210 j = 1

220 FOR i = 1 TO n

230   FOR k = 1 TO i + 1

240     PRINT TAB(30 - i * 3 + k * 6); im(j);

250     j = j + 1

260   NEXT k

270   PRINT

280 NEXT i