杨辉三角

FUNCTION YH()

PARAMETER A

CLEAR

IF EMPTY(A)

  ? 0

  RETURN

ELSE

  IF A<2

   ? 0

   RETURN

  ELSE

   X=A

  ENDIF

ENDIF

DECLARE ARR(A,A)

ARR=0

IF A=2

  ARR(1,1)=1

  ARR(1,2)=1

ELSE

  FOR I=1 TO A-1

   ARR(I,1)=1

   ARR(I,I+1)=1

   FOR J=2 TO I+1

    IF ARR(I,J)=0

     ARR(I,J)=ARR(I-1,J-1)+ARR(I-1,J)

    ENDIF

   NEXT J

  NEXT I

ENDIF

FOR I=1 TO A-1

  FOR J=1 TO A

   IF ARR(I,J)<>0

    ?? ARR(I,J)

   ENDIF

  NEXT J

  ?

NEXT I

ENDFUNC