|
Die Fakultät zu einer Zahl (mathematische
Darstellung: "n!", wird gesprochen: "n
Fakultät") ist das Produkt der natürlichen, d.h.
ganzzahlig, positiven Zahlen von 1 bis n.
Dabei gilt:
0! = 1
1! = 1
n! = n * (n - 1)!
Die höchste Zahl, deren Fakultät sich in Visual Basic ohne
Kunstgriffe zur Emulation eines größeren Wertebereichs berechnen
lässt, ist 170. Sie können die Fakultät innerhalb
einer Funktion in einer Schleife berechnen:
Public Function Fakultaet(Zahl As Long) As Double
Dim l As Long
Dim nFak As Double
Select Case Zahl
Case 2 To 170
nFak = 1
For l = 1 To Zahl
nFak = nFak * CDbl(l)
Next
Fakultaet = nFak
Case 1
Fakultaet = 1
End Select
End Function
oder eine rekursive Funktion verwenden:
Public Function FakultaetR(Zahl As Double) As Double
Select Case Zahl
Case 2 To 170
FakultaetR = Zahl * FakultaetR(Zahl - 1)
Case 1
FakultaetR = 1
End Select
End Function
|