Форум: "Основная";
Текущий архив: 2002.11.21;
Скачать: [xml.tar.bz2];
Вниз
Ошибка в программе Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.21;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c
