12 lines
242 B
Text
12 lines
242 B
Text
|
WRITE(Messagebox) BinomCoeff( 5, 3) ! displays 10
|
||
|
|
|
||
|
|
FUNCTION factorial( n )
|
||
|
|
factorial = 1
|
||
|
|
DO i = 1, n
|
||
|
|
factorial = factorial * i
|
||
|
|
ENDDO
|
||
|
|
END
|
||
|
|
|
||
|
|
FUNCTION BinomCoeff( n, k )
|
||
|
|
BinomCoeff = factorial(n)/factorial(n-k)/factorial(k)
|
||
|
|
END
|