Rubrik: Variablen/Strings · Algorithmen/Mathematik | VB-Versionen: VB4, VB5, VB6 | 29.12.04 |
ggT kurz und knackig Euklidscher Algorithmus zum Ermitteln des größten gemeinsamen Teilers zweiter Zahlen als rekursive Funktion | ||
Autor: Thomas Jank | Bewertung: | Views: 14.519 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Der bereits vorhandene Tip, mittels des euklidschen Algorithmus den größten gemeinsamen Teiler zweier Zahlen zu ermitteln, lässt sich noch verkürzen. Durch Rekursion ist ein anfängliches Ordnen der Zahlen nicht nötig. Schaut es euch einfach mal an.
Public Function ggT(ByVal tmpZahl1 As Long, ByVal tmpZahl2 As Long) As Long Dim intRest As Long Dim intErgebnis As Long intErgebnis = tmpZahl1 Mod tmpZahl2 If (intErgebnis = 0) Then intErgebnis = tmpZahl2 Else intErgebnis = ggT(tmpZahl2, intErgebnis) End If ggT = intErgebnis End Function