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;