Скачать: CL | DM;

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

← →
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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c