Ein kleinstes gemeinsames Vielfaches - Erechnugsprogramm ers

[c113plpbr]

Na dann wollen wir mal nicht so sein ...

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;

Wenn man das alles verstehen will, sollte man beachten, dass hier integer variablen zum einsatz kommen, die spielen hierbei eine sehr große rolle.
Wie man hier sehen kann, lässt sich das KGV aus dem GGT ableiten, daher hier beide funktionen.
Den rest, musst du allerdings selber machen ...

nun stellt sich nurnoch die frage, bist du in der 5. klasse, oder hast du das 5.jahr informatik ...

ciao, Philipp