Zitat von
pete_knightde:
if sqrt((p^2/4)-q)<0
then begin
EdKommentar.text:='Keine Lösung';
das habe ich doch berücksichtigt
An dieser Stelle rechnest du ja bereits mit der Wurzel. Vorher müsste so etwas stehen:
Delphi-Quellcode:
if (sqr(p)/4-q) >= 0 then
//Rechnung
else
//keine Rechnung