x1:=(-b-(sqrt(d)))/(2*a);
x2:=(-b+(sqrt(d)))/(2*a); -вот эти формулы выводят не реальные цифры
подскажите в чём ошибка
Код:
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
c:=strtofloat(edit3.Text);
x1:=(-b-(sqrt(d)))/(2*a);
x2:=(-b+(sqrt(d)))/(2*a);
d:=(sqr(b))-(4*a*c);
x3:=-b/2*a;
if d>0 then
memo1.Lines.Add(floattostr(x1));
if d<0 then
memo1.Lines.Add('menshe 0');
if d>0 then
memo1.Lines.Add(floattostr(x2));
if d=0 then
memo1.Lines.Add(floattostr(x3));
end;