12 lines
251 B
Text
12 lines
251 B
Text
10 HOME : REM 10 CLS for Chipmunk Basic/QBasic
|
|
20 DIM c(15)
|
|
30 c(0) = 1
|
|
40 PRINT 0, c(0)
|
|
50 FOR n = 0 TO 14
|
|
60 c(n + 1) = 0
|
|
70 FOR i = 0 TO n
|
|
80 c(n + 1) = c(n + 1) + c(i) * c(n - i)
|
|
90 NEXT i
|
|
100 PRINT n + 1, c(n + 1)
|
|
110 NEXT n
|
|
120 END
|