Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
 
RegistrierenRegistrieren  LoginLogin
 
Informationen über fakultät
 Fakultät
Verfasst am: 01.08.2008, 16:59  Aufrufe: 1702 


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 ...

 Mit sehr großen Zahlen rechnen?
Verfasst am: 21.05.2008, 14:54  Aufrufe: 2540 



 Mit sehr großen Zahlen rechnen?
Verfasst am: 21.05.2008, 13:37  Aufrufe: 2540 



 Fakultät
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 ]