[leha22]

Вот написал элементарную прогу по вычислению корней квадратного уравнения, ввожу целые числа считает, а когда десятичные дроби, не вычисляет хотя использую real
Вот код:

Код:

var
a: real;
b: real;
c: real;
d: real;
x1: real;
x2: real;
begin
try
a:= StrToFloat(Edit1.Text);
b:= StrToFloat(Edit2.Text);
c:= StrToFloat(Edit3.Text);
d:= sqr(b)- 4*a*c;
if d>=0 then
begin
   x1:= (-b + sqrt(d))/(2*a);
   x2:= (-b - sqrt(d))/(2*a);
   Label5.Caption := 'x1='+ FloatToStrF(x1,ffFixed,6,2)+#13+
   'x2=' + FloatToStrF(x2,ffFixed,6,2);
  end
  else ShowMessage('Не имеет корней');
  except
  on EConvertError do
  begin
  ShowMessage('Введите данные');
  exit;
 end;
  end;
end;