Fakultät großer Zahlen Ein Beispiel, wie man die Fakultät großer Zahlen berechnen kann.
Autor:   Zardoz	Bewertung:     [ Jetzt bewerten ]	Views:  14.498
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 11 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.8 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Es wurde schon öfters gefragt, wie man die Fakultät von großen Zahlen berechnen kann.

Nachfolgend eine Möglichkeit:

' Fakultät großer Zahlen berechnen
Public Function Fakultaet(ByVal N As Double) As String
  Dim i As Double
  Dim Summe As Double
  Dim Mant As Double
  Dim Expo As Double
  Dim Prod As Double
 
  If N < 170 Then
    Prod = 1
    For i = 1 To N
      Prod = Prod * i
    Next i
    Fakultaet = Trim$(Str$(Prod))
  Else
    Summe = 0
    For i = 1 To N
      Summe = Summe + Log(i)
    Next i
    Summe = Summe / Log(10)
    Expo = Int(Summe)
    Mant = 10 ^ (Summe - Expo)
    Fakultaet = Mant & " E+" & Expo
  End If
End Function

Beispiel:

Dim N As Double
N = Val(InputBox("Fakultät von ?", "Fakultät großer Zahlen", 0))
MsgBox N & " ! = " & Fakultaet(N), vbOKOnly + vbInformation, "Ergebnis"