Ошибка в программе [D6, WinME]
Gogi © (2002-11-10 03:31:00)
Помогите, пожалуйсто, подскажите где ошибка. Программа
вычисления корней квадратного уравнения, простая до
безобразия!Прблема в том, что она постоянно выдает целые значения и
никогда не выдает дробные. Вот код:
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:00) [1]
Вместо
a,b,c,d,e,d1:variant;
Нужно
var a,b,c,d,e,d1:real;
Наверх 
ЧАТ |
Орешник |
|
