ggT kurz und knackig Euklidscher Algorithmus zum Ermitteln des größten gemeinsamen Teilers zweiter Zahlen als rekursive Funktion
Autor:   Thomas Jank	Bewertung:     [ Jetzt bewerten ]	Views:  14.501
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: 29 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.8 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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