wie genau programmier i das GGT?

[Christian S.]

Hallo!

Hiermit berechnest Du den ggT mittels des Euklidischen Algorithmus. Du musst Dir lediglich noch Gedanken drüber machen, was passiert, wenn Zähler oder Nenner kleiner Null sind.

Delphi-Quellcode:

function ggT(zaehler, nenner : Integer) : Integer;
VAR r : INTEGER;
begin
  if nenner = 0 then
  begin
    result := 0;
    exit;
  end;

  while nenner > 0 do
  begin
    r := zaehler mod nenner;
    zaehler := nenner;
    nenner := r;
  end;

  result := zaehler;
end;

MfG
Peter