ggt und kgV von 3 Zahlen[PLEASE HELP]

[Relicted]

Hi,

erstmal willkommen in der DP.
Direkt eine Anmerkung: Bitte nicht den Zitat Knopf, sondern den Delphi-Code-Knopf verwenden.

Die Suche in der DP ergab folgendes:

Delphi-Quellcode:

(*
  GGT & KGV:
    Sollte der Zurückgegebene Wert -1 sein,
    dann ist ein Fehler aufgetreten.
  by c113plpbr
*)

function GGT(a, b : integer) : integer;
var
  c, f : integer;
begin
  Result := -1;
  c := 1;
  try
    while not (c = 0) do
    begin
      f := a div b;
      c := a - b * f;
      if not (c = 0) then
      begin
        a := b;
        b := c;
      end;
    end;
  except
    //Ein Fehler ist aufgetreten
    exit;
  end;
  result := b;
end;

function KGV(a, b : integer) : integer;
var
  c : integer;
begin
  Result := -1;
  c := GGT(a, b);
  if not (c = -1) then
    Result := a * b div c;
end;

aus diesem Thread: http://www.delphipraxis.net/internal...=285532#285532

Gruß
Reli