Floating point division by zero

[Dimabara]

вот кусок кода, принцип в том, что значения должны вбиваться в таблицу stringgrid и также рисуется график функции
с графиком все нормально, а вот при задании значений выбивает ошибку "Floating point division by zero"
деления на ноль как бы в этой функции и близко нету
в чем же тогда ошибка?

for i1:=1 to n1 do
begin

x1:=a+h*(i1+1);
y1:=(Ln(abs(((x1*x1)-4)/((x1*x1)-1))))/(ln(2));

strngrd1.Cells[0,i1]:=FloatToStrF(x1,fffixed,6,3);
strngrd1.Cells[1,i1]:=FloatToStrF(y1,fffixed,6,3);

end;

[Stilet]

как бы

Вот именно "как бы".
Это что по твоему?

/((x1*x1)-1)

[kangreon]

(x1 * x1 - 4)/(x1 * x1 - 1)
Если x1 = 1, то деление на 0

Опередили.

[Dimabara]

уже заметил, но при проверке
try
y1:=(Ln(abs(((x1*x1)-4)/((x1*x1)-1))))/(ln(2));
strngrd1.Cells[1,i1]:=FloatToStrF(y1,fffixed,6,3);
except
strngrd1.Cells[1,i1]:='# невозможно выполнить функцию';
end;
также выбивает ошибку с 2

[Аватар]

Выбивает, если в отладке запускать. А если просто exe запустить?

[Dimabara]

если просто exe запустить тоже самое

[Человек_Борща]

разделите уравнение на отдельные части,и в зависимости от вероятной ошибки, делайте проверки.