Delphi-Quellcode:
p:=StrToFloat(PEdit.Text);
q:=StrToFloat(QEdit.Text);
if ((p/2)*(p/2)-q)<0 then
begin
LEdit.Text:='Keine Lösung';
L1Edit.Text:='';
L2Edit.Text:='';
end
else if
((p/2)*(p/2)-q)=0 then
begin
LEdit.Text:='1 Lösung';
l1:=-(p / 2) + sqrt((p/2)*(p/2) - q)
end
else
begin
LEdit.Text:='Zwei Lösungen';
l1:=-(p / 2) + sqrt((p/2)*(p/2) - q);
l2:=-(p / 2) - sqrt((p/2)*(p/2) - q);
end;
L1Edit.Text:=FloatToStr(l1);
L2Edit.Text:=FloatToStr(l2);
end;
end.
Das ist mein aktuelles Programm und ich komme nicht drauf, was an der Zeile
Delphi-Quellcode:
if ((p/2)*(p/2)-q)<0 then
falsch sein soll...