Evaluate binomial coefficients: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: added/changed comments, changed output, added whitespace, added subroutine fences. -- ~~~~) |
(Added XPL0) |
||
Line 1,296: | Line 1,296: | ||
output: |
output: |
||
<pre><10,118264581564861424></pre> |
<pre><10,118264581564861424></pre> |
||
=={{header|XPL0}}== |
|||
<lang XPL0>code ChOut=8, CrLf=9, IntOut=11; |
|||
func Binomial(N, K); |
|||
int N, K; |
|||
int M, B, I; |
|||
[M:= K; |
|||
if K>N/2 the M:= N-K; |
|||
B:=1; |
|||
for I:= 1 to M do |
|||
B:= B*(N-M+I)/I; |
|||
return B; |
|||
]; |
|||
int N, K; |
|||
[for N:= 0 to 9 do |
|||
[for K:= 0 to 9 do |
|||
[if N>=K then IntOut(0, Binomial(N,K)); |
|||
ChOut(0, 9\tab\); |
|||
]; |
|||
CrLf(0); |
|||
]; |
|||
] \Mr. Pascal's triangle!</lang> |
|||
Output: |
|||
<pre> |
|||
1 |
|||
1 1 |
|||
1 2 1 |
|||
1 3 3 1 |
|||
1 4 6 4 1 |
|||
1 5 10 10 5 1 |
|||
1 6 15 20 15 6 1 |
|||
1 7 21 35 35 21 7 1 |
|||
1 8 28 56 70 56 28 8 1 |
|||
1 9 36 84 126 126 84 36 9 1 |
|||
</pre> |