Problem: 'ungültige Gleitkommaoperation'

[DeddyH]

Ich würde ja noch 2 weitere Variablen einführen, nennen wir sie g und h, um bei der merkwürdigen Benennung zu bleiben. Das spart Wiederholungen und somit Berechnungen ein und lässt sich im Vorfeld leichter überprüfen.

Delphi-Quellcode:

var
  a, b, c, d, f, g, h: real;
begin
  a := strtofloat(edit1.text);
  b := strtofloat(edit2.text);
  c := strtofloat(edit3.text);
  g := b / a / 2;
  h := sqr(g) - c / a;
  if h < 0 then
    ShowMessage('Nicht lösbar')
  else
    begin
      d := g + sqrt(h);
      f := g - sqrt(h);
      Edit4.text := FloatToStr(d);
      Edit5.text := FloatToStr(f);
    end;
end;