| Rubrik: Variablen/Strings · Algorithmen/Mathematik | VB-Versionen: VB2010 | 03.01.11 |
 Fakultät einer natürlichen Zahl größer als 20Fakultät mit dem Datentyp BigInteger berechnen (ab VB2010, FW 4) | ||
Autor:  Manfred Bohn | Bewertung:   | Views: 9.752 |
| ohne Homepage | System: Win2k, WinXP, Win7, Win8, Win10, Win11 |  Beispielprojekt auf CD |
Ab VB2010 FW 4.0 steht im Namespace "System.Numerics" der Datentyp "BigInteger" zur Verfügung, durch den beliebig große Ganzzahlen darstellbar sind. Er eignet sich zur exakten Berechnung der Fakultät von Zahlen > 20.
''' <summary> ''' Berechnet die Fakultät einer natürlichen Zahl auch größer als 20. ''' </summary> Public Function Fakultät(ByVal number As Short) As System.Numerics.BigInteger If number < 0S Then Throw New ArgumentException("Fakultät: Argument kleiner 0") ElseIf number = 0S Then Return System.Numerics.BigInteger.One Else Dim vl As New System.Numerics.BigInteger(1L) For i As System.Numerics.BigInteger = System.Numerics.BigInteger.One To number vl *= i Next i Return vl End If End Function
Hinweis:
Sollte beim Zugriff auf System.Numerics.BigInteger ein Fehler auftreten, müssen Sie Ihrem Projekt noch zusätzlich den Verweis System.Numerics hinzufügen.
