Binomialkoeffizienten berechnen

Sprache / Programm: Access ab Version 97 · Excel ab Version 97 · JavaScript ab Version 1.1

Beschreibung

Das Programm berechnet den Binomialkoeffizienten n über k

VBA-Quelltext

'*** Code In VBA:

Public Function BinomialKoeffizient(ByVal n As Long, ByVal k As Long) As Double
Dim i As Integer
' Symmetrie nutzen um Berechnung zu beschleunigen
If k + k > n Then k = n - k
BinomialKoeffizient = 0
If k >= 0 Then
BinomialKoeffizient = 1
n = n + 1 ' Operation aus der Schleife herausnehmen
For i = 1 To k
BinomialKoeffizient = BinomialKoeffizient * (n - i) / i
Next i
End If
End Function

'*** Code In JavaScript:

Function BinomialKoeffizient(n, k) {
If (k + k > n) { k = n - k }
If (k < 0) { Return 0 }
Else {
var Ergebnis = 1
For (i=0;i Return Ergebnis
}
}

Argumente der Funktion/Prozedur

n: Ganze Zahl, n>0
k: Ganze Zahl, 0<=n<=k