14 lines
322 B
Plaintext
14 lines
322 B
Plaintext
100 PROGRAM "Binomial.bas"
|
|
110 PRINT "Binomial (5,3) =";BINOMIAL(5,3)
|
|
120 DEF BINOMIAL(N,K)
|
|
130 LET R=1:LET D=N-K
|
|
140 IF D>K THEN LET K=D:LET D=N-K
|
|
150 DO WHILE N>K
|
|
160 LET R=R*N:LET N=N-1
|
|
170 DO WHILE D>1 AND MOD(R,D)=0
|
|
180 LET R=R/D:LET D=D-1
|
|
190 LOOP
|
|
200 LOOP
|
|
210 LET BINOMIAL=R
|
|
220 END DEF
|