Da es keine .NET interne Funktion dafür gibt, hab ich selber eine geschrieben:Visual Basic: [code] Private Function Fak(ByVal Number As Byte) As Double If Number = 0 Then Return 1 ElseIf Number > 170 Then Return -1 End If Dim j As Double = 1 For i As Byte = 1 To Number j = j * i Next Return j End Function[/code]Aufruf ...
Verfasst am: 20.04.2008, 17:10 Aufrufe: 1634
Habe bereits diese beiden Funktionen gefunden:
Private Function FakIter(ByVal n As Integer) As Integer
Dim Temp As Integer = 1 'die Fakultät von 0 als Ausgangspunkt
Dim Crnt As Integer = 0 'zurzeit berechnen wir die Fakultät von 0 (Crnt = Current = zurzeit)
Do While Crnt < n 'die gewünschte Fakultät ist noch nicht erreicht
Crnt += 1 'wir be ...
[ Time: 6.4229s ][ Queries: 64 (6.3308s) ][ GZIP on - Debug on ]