18 lines
375 B
Plaintext
18 lines
375 B
Plaintext
print "binomial (5,1) = "; binomial(5, 1)
|
|
print "binomial (5,2) = "; binomial(5, 2)
|
|
print "binomial (5,3) = "; binomial(5, 3)
|
|
print "binomial (5,4) = "; binomial(5,4)
|
|
print "binomial (5,5) = "; binomial(5,5)
|
|
end
|
|
|
|
function binomial(n,k)
|
|
coeff = 1
|
|
for i = n - k + 1 to n
|
|
coeff = coeff * i
|
|
next i
|
|
for i = 1 to k
|
|
coeff = coeff / i
|
|
next i
|
|
binomial = coeff
|
|
end function
|