Fehler beim KGV berechnen

[tomsel]

Endlosschleife!

Die Funktion KGV ist irgendwie eigenartig. Ich wette, das Programm hängt sich genau dann weg, wenn z1 nicht durch z2 teilbar ist?

[ScrollbarKopf]

Ja und wie behebe ich das proplem

[ULIK]

Debug doch mal die Werte von sum.

Grüße,
Uli

[ScrollbarKopf]

habe den fehler sum:= z1*i nciht mal 1

[himitsu]

könne man den Titel denn nicht doch "aussagekräftiger" anlegen?

[Fussball-Robby]

Zitat:

Zitat von ScrollbarKopf

habe den fehler sum:= z1*i nciht mal 1

Darauf wurde in #5 schon hingewiesen :?

[ScrollbarKopf]

Hab es aber nicht überriesen :wall: :wall: :wall: :wall:

[bluesbear]

Zitat:

Zitat von himitsu

könne man den Titel denn nicht doch "aussagekräftiger" anlegen?

[OT] Ich finde, der passt perfekt :mrgreen: [/OT]

[ScrollbarKopf]

Noch ne frage habe hier nen code fürn ggt der mir aber nach kgt vorkommt weiß nicht was von den beiden er jetzt si bitte um aussagen

Delphi-Quellcode:

function ggT(a, b : Integer) : Integer;
VAR r : integer;
begin
  if b = 0 then
  begin
    result := 0;
    exit;
  end;

  while b > 0 do
  begin
    r := a mod b;
    a := b;
    b := r;
  end;

  result := a;
end;

[ULIK]

So, und das Ganze nun bitte in verständlichem Deutsch! Soviel Zeit muß sein.

Gruß, Uli