38 lines
967 B
Plaintext
38 lines
967 B
Plaintext
100 ROWS = 15
|
|
110 M$ = CHR$(13)
|
|
120 N = ROWS: GOSUB 500
|
|
130 PRINT "FIRST FIFTEEN BELL NUMBERS:"
|
|
140 FOR I = 1 TO ROWS
|
|
150 BR = I: BC = 0: GOSUB 350
|
|
160 PRINT RIGHT$(" " + STR$(I),2); ": "; BV; MID$(M$,1,2)
|
|
170 T = T + 1 - (T = 2) * 3
|
|
180 NEXT I
|
|
190 PRINT
|
|
200 PRINT "THE FIRST 10 ROWS OF BELL'S TRIANGLE:";
|
|
210 FOR I = 1 TO 10
|
|
220 BR = I: BC = 0: GOSUB 350
|
|
230 PRINT M$: PRINT BV;
|
|
240 FOR J = 1 TO I - 1
|
|
250 IF I - 1 >= J THEN BR = I: BC = J: GOSUB 350: PRINT BV;
|
|
260 NEXT J, I
|
|
270 END
|
|
300 BI = BR * (BR-1) / 2 + BC
|
|
310 RETURN
|
|
350 GOSUB 300
|
|
360 BV = TRI(BI)
|
|
370 RETURN
|
|
400 GOSUB 300
|
|
410 TRI(BI) = BV
|
|
420 RETURN
|
|
500 DIM TRI(N * (N+1) / 2)
|
|
510 BR = 1: BC = 0: BV = 1: GOSUB 400
|
|
520 FOR I = 2 TO N
|
|
530 BR = I - 1: BC = I - 2: GOSUB 350
|
|
540 BR = I: BC = 0: GOSUB 400
|
|
550 FOR J = 1 TO I - 1
|
|
560 BR = I: BC = J - 1: GOSUB 350: V = BV
|
|
570 BR = I - 1: BC = J - 1: GOSUB 350
|
|
580 BR = I: BC = J: BV = V + BV: GOSUB 400
|
|
590 NEXT J, I
|
|
600 RETURN
|