[Thrasher]

Нужно пошагово пройтись и посмотреть значение переменных.

Если надо, то вот код:

Код:

begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
c:=strtofloat(edit3.Text);
d:=(sqr(b))-(4*a*c);

if d<0 then
  begin
   memo1.Lines.Add('menshe 0');
   exit;
  end;

if d=0 then
  begin
   memo1.Lines.Add(floattostr(x3));
   x3:=-b/2*a;
   exit;
  end;

x1:=(-b-(sqrt(d)))/(2*a);
x2:=(-b+(sqrt(d)))/(2*a);
memo1.Lines.Add(floattostr(x1));
memo1.Lines.Add(floattostr(x2));

end;