ggT und KgV von 2 Zahlen berechnen - absolut keine Ahnung

[Bummi]

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 
begin
   c := a/b ;
  Ausgabe.Caption := FloatToStr (c);
end
else Ausgabe.Caption :='Man kann auch im Jahr 2010 immer noch nicht durch null teilen.';

end;

In Deinem Beispiel gibst Du c aus das als Stackvariable nicht initialisiert ist, da kann sonstwas drin stehen, außerdem gibt es ja nicht anzuzeigen.