Diese Funktion berechnet iterativ den größten gemeinsamen Teiler(ggT) zweier ganzen Zahlen a & b.
Verglichen mit einer rekursiven Methode, ist der iterative Weg um einiges schneller.
Function ggT(ByVal a As Integer, ByVal b As Integer) As Integer
While b > 0
ggT = a Mod b
a = b
b = ggT
End While
Return a
End Function
7 Kommentare zum Snippet