Diskriminant

[Yermek]

Здраствуйте дикриминант не высчитывает
x1:=(-b-(sqrt(d)))/(2*a);
x2:=(-b+(sqrt(d)))/(2*a); - вот эти формулы выводят не правильные цифры
Подскажите в чём ошибка?
procedure TForm1.Button1Click(Sender: TObject);
var
a:real;
b:real;
c:real;
d:real;
x1:real;
x2:real;
x3:real;

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)+floa ttostr(x2));
if d<0 then
memo1.Lines.Add('menshe 0');
if d=0 then
memo1.Lines.Add(floattostr(x3));
end;

[Pedro]

Может потому что вычисление дискриминанта нужно сделать перед вычислением корней.

[Yermek]

Так я уже пробавал не выходит вообще
а так какие цыфры выходят но неправильные

[puporev]

Писать надо так, чтобы компьютер на каждом шаге знал, что ему делать, а если Вы пишите все не по порядку, не указывая что делать, то и ответы такие будут. Напишите так:

procedure TForm1.Button1Click(Sender: TObject);
var
a:real;
b:real;
c:real;
d:real;
x1:real;
x2:real;
x3:real;
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
c:=strtofloat(edit3.Text);
d:=(sqr(b))-(4*a*c);
if d>0 then
begin
x1:=(-b-sqrt(d))/(2*a);
x2:=(-b+sqrt(d))/(2*a);
memo1.Lines.Add('x1='+floattostr(x1)+'  x2='+floattostr(x2));
end
else if  d<0 then memo1.Lines.Add('menshe 0')
else  if d=0 then
begin
x3:=-b/2*a;
memo1.Lines.Add('x1=x2='+floattostr(x3));
end;
end;

[Alter]

и ещё один случай, если "a"=0