24 lines
415 B
Plaintext
24 lines
415 B
Plaintext
10 REM BINOMIAL COEFFICIENTS
|
|
20 REM COMMODORE BASIC 2.0
|
|
30 REM 2021-08-24
|
|
40 REM BY ALVALONGO
|
|
100 Z=0:U=1
|
|
110 FOR N=U TO 10
|
|
120 PRINT N;
|
|
130 FOR K=Z TO N
|
|
140 GOSUB 900
|
|
150 PRINT C;
|
|
160 NEXT K
|
|
170 PRINT
|
|
180 NEXT N
|
|
190 END
|
|
900 REM BINOMIAL COEFFICIENT
|
|
910 IF K<Z OR K>N THEN C=Z:RETURN
|
|
920 IF K=Z OR K=N THEN C=U:RETURN
|
|
930 P=K:IF N-K<P THEN P=N-K
|
|
940 C=U
|
|
950 FOR I=Z TO P-U
|
|
960 C=C/(I+U)*(N-I)
|
|
980 NEXT I
|
|
990 RETURN
|