Feedback

VB - Größten gemeinsamen Teiler berechnen

Veröffentlicht von am 14.11.2006
(1 Bewertungen)
Dieser kleine Algorithmus gibt den größten gemeinsamen Teiler (ggT) von 2 Zahlen zurück.
Public Function ggT(ByVal A As Integer, ByVal B As Integer) As Integer
    While B <> 0
        If A > B Then
            A -= B
        Else
            B -= A
        End If
    End While
    Return A
End Function
Abgelegt unter Mathe.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!