Hallo, ich habe ein Programm geschrieben, dass den ggt und den kgV zweier Zahlen berechnet:
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??