Hallo, ich habe ein Programm geschrieben, dass den ggt und den kgV zweier Zahlen berechnet:

zusammenfalten · markieren

Delphi-Quellcode:

var
  Form1: TForm1;
  zahl1, Zahl2,a,b,r,kgv,ggt: integer;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

// Einlesen der Zahlen
Zahl1:=strtoint(edit1.text);
Zahl2:=strtoint(edit2.text);
if Zahl1>Zahl2 then begin
a:=Zahl1; b:=Zahl2 end
else begin b:=Zahl1; a:=Zahl2; end;

// Berechnung des ggt
repeat
r:= a mod b;
a:=b;
b:=r
until (r=0);

ggt:=a;


label3.caption:='Der ggt ist ' + inttostr(ggt);
end;



procedure TForm1.Button2Click(Sender: TObject);

begin
// Berechnung des kgV
kgv:=a*b div ggt;
label3.caption:=' Der kgV ist ' + inttostr(kgv);


end;

end.

Nun habe ich das Problem, dass zwar die ggt-Berechnung klappt, aber bei der kgV-Berechnung jedesmal 0 rauskommt. Ich habe a*b auch schon in Klammern gesetzt, aber das hat auch nichts geholfen. Fällt euch vllt. was auf??

Zitat von cobralord:

markieren

Delphi-Quellcode:

repeat
r:= a mod b;
a:=b;
b:=r
until (r=0);

Du wiederholst die Schleife so lange, bis r 0 ist und weist b den Wert von r zu. Daraus folgt, dass b auch 0 ist. Wenn Du a mit b multiplizierst, wird da also auch 0 draus.

Stimmt, das hatte ich ganz übersehen.
Vielen Dank ^^