Feedback

VB - Binomialkoeffizient

Veröffentlicht von am 24.03.2010
(1 Bewertungen)
Diese Funktion berechnet iterativ den Binomialkoeffizienten von n über k. Weitere Informationen zu diesem Thema finden Sie hier:

http://de.wikipedia.org/wiki/Binomialkoeffizient
GFU-Schulungen  [Anzeige]

Visual Studio Team Foundation Server 2017/2015 (TFS) - Komplett 

Visual Studio Team Foundation Server 2017/2015 (TFS) für Entwickler - Kompakt

Nach Teilnahme an dieser Schulung kennen Sie alle wesentlichen Funktionen des TFS für Entwickler. Sie setzen Software-Entwicklung mit dem Visual Studio Team Foundation Server erfolgreich um.

Function nCk(ByVal n As Short, ByVal k As Byte) As Integer
    If (k << 1) > n Then k = n - k
    nCk = n

    For t As Byte = 1 To k - 1
        nCk = nCk * (n - t) \ (t + 1)
    Next
End Function

1 Kommentare zum Snippet

Klemens Nanni schrieb am 21.12.2010:
Ist 2k > n so gilt: nCk(n,k) = nCk(n,n-k)
Diese Gesetzmäßigkeit spart so manche Rechenzeit.
 

Logge dich ein, um hier zu kommentieren!