|
#1
|
|||
|
|||
Дискриминант
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; Последний раз редактировалось Admin, 18.09.2008 в 10:18. |