[Eine Seite zurück] [Übersicht] [Eine Seite vor] | Benutzung auf eigene Gefahr ! |
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 |
|
Rückgabewert |
Kombinatonswert. |
Anwendungsbeispiel(e)... |
Kombinationen(49, 12) = 92.263.734.836 Kombinationen(49, 6) = 13.983.816 |