ne, math brauchst du für power und min/max. sqrt is noch in system.
eine Möglichkeit die fehler abzufangen:
Delphi-Quellcode:
var
a,b,c,d:extended;
begin
a:=StrToFloat(Ea.Text);
b:=StrToFloat(Eb.Text);
c:=StrToFloat(
Ec.Text);
d:=b*b-4*a*c;
if d<0
then begin
messagedlg('
Radikant kleiner Null -> keine schnittstellen');
exit;
end;
if d=0
then begin
showmessage('
Eine Schnittstelle: '+floattostr(-b / (2 * c)));
exit;
end;
if d>0
then begin
showmessage('
2 Schnittstellen: '#13'
1. = '+floattostr(( (-b) + (sqrt( (b*b) - (4 * a * c))) ) / (2 * c))+#13'
2. = '+floattostr(( (-b) - (sqrt( (b*b) - (4 * a * c))) ) / (2 * c)));
end;