26 lines
449 B
Text
26 lines
449 B
Text
PROGRAM "Pascal's triangle"
|
|
VERSION "0.0000"
|
|
|
|
|
|
DECLARE FUNCTION Entry ()
|
|
|
|
|
|
FUNCTION Entry ()
|
|
N = 15
|
|
DIM T[N+2]
|
|
T[1] = 1
|
|
|
|
PRINT "The first 15 Catalan numbers are: "; CHR$(10)
|
|
FOR I = 1 TO N
|
|
FOR J = I TO 1 STEP -1
|
|
T[J] = T[J] + T[J-1]
|
|
NEXT J
|
|
T[I+1] = T[I]
|
|
FOR J = I+1 TO 1 STEP -1
|
|
T[J] = T[J] + T[J-1]
|
|
NEXT J
|
|
PRINT FORMAT$("###",I); ": "; FORMAT$("#########",(T[I+1] - T[I]))
|
|
NEXT I
|
|
|
|
END FUNCTION
|
|
END PROGRAM
|