ggT und KgV von 2 Zahlen berechnen - absolut keine Ahnung

[Connor Temple]

So, hab nochmal ne halbe Stunde dran rumprobiert, jetzt klappts endlich:

Delphi-Quellcode:

procedure TForm1.TeilButtonClick(Sender: TObject);
var a,b,c :Real ;
begin
a := StrToFloat (Zahl1.Text);
b := StrToFloat (Zahl2.Text);



If b <> 0 then c := a/b ;
Ausgabe.Caption := FloatToStr (c);
If b = 0 Then Ausgabe.Caption :='Man kann auch im Jahr 2010 immer noch nicht durch null teilen.';

end;

Das ist mein Code.