Hallo,
Ich bin neu hier im Forum und habe direkt ein Problem.
Wir haben in Info als Hausaufgabe auf, ein Programm zur Lösung quadratischer Gleichungen zu programmieren.
Mein Programm:
Delphi-Quellcode:
...
var p,q,l1,l2,v : real;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
p:=StrToFloat(PEdit.Text);
q:=StrToFloat(QEdit.Text);
if sqrt((p/2)*(p/2)-q)<0 then
begin
LEdit.Text:='Keine Lösung';
end
else if
sqrt((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.
Fehler :
Im Projekt1337.exe ist eine
Exception der Klasse EInvalidOp aufgetreten. Meldung 'Ungültige Gleitkommaoperation'. Prozess wurde angehalten. ...
Wo liegt das Problem?
DANKE IM VORAUS!!