Home » Tutorials » Object Pascal/RTL » Das Überladen von Operatoren
Das Überladen von Operatoren
Anhang
Hier nur noch die versprochene ggT-Funktion. Sie ist eher simpel gehalten, zumal es sich um die einfachste Form handelt. Es gibt bessere Verfahren (der Verbesserte Euklidische Algorithmus oder auch der Stein’sche Algorithmus etwa), aber derartige Dinge seien dann dem geneigten Leser (oder besser: Programmierer) überlassen.
function ggT(a, b: Int64): Int64; begin if a = 0 then begin Result := b; end else begin while b <> 0 do begin if a > b then begin a := a - b; end else begin b := b - a; end; end; Result := a; end; end;