Rubrik: Variablen/Strings · Algorithmen/Mathematik | VB-Versionen: VB2005, VB2008 | 21.12.10 |
Fakultät einer natürlichen Zahl Berechnet die Fakultät einer natürlichen Zahl | ||
Autor: Dieter Otter | Bewertung: | Views: 7.840 |
www.tools4vb.de | System: Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Mit nachfolgender Funktion lässt sich die Fakultät einer natürlichen Zahl berechnen.
Beispiel: Fakultät von 5 = 5 * 4 * 3 * 2 * 1 = 120
''' <summary> ''' Berechnet die Fakultät einer natürlichen Zahl ''' </summary> Public Function Fakultaet(ByVal zahl As Short) As Double If zahl > 1 Then Return zahl * Fakultaet(zahl - 1) Else Return 1 End If End Function