programm fehler (pq-formel) - numerische datentypen

[mirage228]

Du musst vorher prüfen, ob der Ausdruck unter Wurzel bzw. in sqrt() kleiner als Null ist.

Delphi-Quellcode:

var
  Num: Real;
begin
  Num := Sqr(P)/4 - q;´
  if Num >= 0 then
  begin
    // jetzt mit sqrt() weitermachen.
  end;
end;

mfG
mirage228