Ошибка в программе

← →
Gogi (2002-11-10 03:31) [0]

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

procedure TForm1.Button1Click(Sender: TObject); var a,b,c,d,e,d1:variant; begin a:= Strtofloat(edit1.Text); b:= Strtofloat(edit2.Text); c:= Strtofloat(edit3.Text); d:=(b*b)-(4*a*c); IF d<0 then begin Showmessage("Уравнение не имеет корней!!!"); edit4.Text:="--------"; edit5.Text:="--------"; end else Edit4.Text:= floattostr(((-1)*b+sqrt(d))/2*a); Edit5.Text:= floattostr(((-1)*b-sqrt(d))/2*a); end;

Edit1,2,3 - значения a,b и c, соответственно.Edit4 и 5 - значения х1 и х2. С переменными не сложно разобраться.

← →
e-mike © (2002-11-10 04:18) [1]

Вместо

a,b,c,d,e,d1:variant;

Нужно

var a,b,c,d,e,d1:real;

Ошибка в программе Найти похожие ветки