Evaluate binomial coefficients: Difference between revisions
add gwbasic
(Add Commodore BASIC solution) |
(add gwbasic) |
||
Line 1,205:
{{Out}}
<pre>10</pre>
=={{header|GW-BASIC}}==
<lang gwbasic>10 REM BINOMIAL CALCULATOR
20 INPUT "N? ", N
30 INPUT "P? ", P
40 GOSUB 70
50 PRINT C
60 END
70 C = 0
80 IF N < 0 OR P<0 OR P > N THEN RETURN
90 IF P < N\2 THEN P = N - P
100 C = 1
110 FOR I = N TO P+1 STEP -1
120 C=C*I
130 NEXT I
140 FOR I = 1 TO N-P
150 C=C/I
160 NEXT I
170 RETURN</lang>
=={{header|Haskell}}==
| |||