12 lines
336 B
Text
12 lines
336 B
Text
100 CLS
|
|
110 N = 15
|
|
120 DIM T(N+2)
|
|
130 T(1) = 1
|
|
140 PRINT "The first 15 Catalan numbers are: "; CHR$(10)
|
|
150 FOR I = 1 TO N
|
|
160 FOR J = I TO 1 STEP -1 : T(J) = T(J) + T(J-1) : NEXT J
|
|
170 T(I+1) = T(I)
|
|
180 FOR J = I+1 TO 1 STEP -1 : T(J) = T(J) + T(J-1) : NEXT J
|
|
190 PRINT USING "###: #########";I; T(I+1) - T(I)
|
|
200 NEXT I
|
|
210 END
|