Дискриминант

[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;

[pu4koff]

может сначала нужно считать d, а потом на его основе x1 и x2?

[Noor]

Попробуй так

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d,x1,x2,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+x2))
else if d<0 then
memo1.Lines.Add('Menshe 0')
else if d=0 then
memo1.Lines.Add(floattostr(x3));
end;
end.

Вот полный исходник....сверял с реализайией в Excel. Результат совпадает, но вот только знак значения Х3 отличается (если в Excel зачение "-" то в пргограмме "+")

[puporev]

x3:=-b/2*a;

Нужно x3:=-b/(2*a);