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