[Eine Seite zurück] [Übersicht] [Eine Seite vor]

Benutzung auf eigene Gefahr !
Keine Garantie für garnichts !

Kombinationen

Sprache / Programm: VBA
Beschreibung

Das Programm berechnet Kombinationen (n über k) zweier Zahlen. Dabei ist der Aufbau so ausgelegt, dass möglichst kleine ganze Zahlen verarbeitet werden, ohne dass eine zu große Zahl entsteht, die im Rechenregister nicht mehr untergebracht werden kann.

VBA-Quelltext
Public Function Kombinationen(n As Long, k As Long) As Double
    Dim i As Long
    Kombinationen = 1
   
    If (n = 0) Or (k = 0) Or (n = k) Then Exit Function
    If k + k > n Then k = n - k
    n = n + 1
    For i = 1 To k
        If (n - i) Mod i = 0 Then
            Kombinationen = Kombinationen * ((n - i) / i)
        Else
            Kombinationen = (Kombinationen / i) * (n - i)
        End If
    Next i

End Function
Argumente der Funktion/Prozedur

n

Ganze positive  Zahl

k

Ganze positive Zahl, die nicht größer als n sein darf

Rückgabewert

Kombinatonswert.

Anwendungsbeispiel(e)...

Kombinationen(49, 12) = 92.263.734.836

Kombinationen(49, 6) =  13.983.816