Trailing-Edge
-
PDP-10 Archives
-
decus_20tap1_198111
-
decus/20-0020/binomc.prb
There are 2 other files named binomc.prb in the archive. Click here to see a list.
100' NAME--BINOMC
110'
120' DESCRIPTION--COMPUTES BINOMIAL COEFFICIENTS : N THINGS TAKEN
130' I AT A TIME.
140'
150' SOURCE--UNKNOWN
160'
170' INSTRUCTIONS--ENTER DATA STARTING IN 900 THE PAIRS
180' OF NUMBERS N,I
190'
200'
210' * * * * * * * * * MAIN PROGRAM * * * * * * *
220'
230 PRINT " N", " I", "N THINGS I AT A TIME"
240 PRINT
250 READ N, I
260 IF I < 0 THEN 9999
270 LET B = 1
280 FOR J = 1 TO I
290 LET B = B*(N-J+1)/J
300 NEXT J
310 PRINT N, I, B
320 GOTO 250
900 DATA 10,5, 30,7, 20,0, 20,20
9998 DATA -1,-1
9999END