Hallo liebe Community,
Dies ist mein erster Post hier, also lasst bitte Nachsicht walten
.
Ich bin leider noch ein ziemlicher Anfänger bei Delphi und stehe nun vor
meinem ersten "schier unlösbaren Problem".
Und zwar bin ich gerade dabei einen simplen Gleichungslöser für quadratische
Gleichungen der allgemeinen Form 0=ax²+bx+c zu basteln (a ungleich 0). Dabei soll mir
das Programm die Lösungsformel für quadr. Gleichungen ( (-p/2)+-Wurzel((p/2)²-q) )
benutzen und die zwei Ergebnisse (x1; x2) in zwei separaten Edit-Feldern ausgeben.
Delphi sagt mir in meinem Quellcode seien keine Fehler enthalten, dennoch erscheint,
wenn ich das Programm starte und Werte eingebe folgende Fehlermeldung:
Exception-Klasse EInvalid OP mit Meldung 'ungültige Gleitkommaoperation'
Hier ist mein Quellcode:
Delphi-Quellcode:
procedure TForm3.Button2Click(Sender: TObject);
var a,b,c,d,f:real;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
c:=strtofloat(edit3.text);
d:=((b/a)/2)+sqrt(((b/a)/2)*((b/a)/2)-c/a);
Edit4.Text:=FloatToStr(d);
f:=((b/a)/2)-sqrt(((b/a)/2)*((b/a)/2)-c/a);
Edit5.Text:=FloatToStr(f);
end;
Woran könnte das liegen?, bzw. welchen Fehler habe ich gemacht?
Ich danke euch schon einmal im Voraus für jede Antwort!