invalid floating point operation Опции

[serg]

Задача вычислить значение y соответствующие каждому значению х(хn<=x<=xk,шаг изменения равен dx) по формуле у=корень третей степени из((abs(a-sqr(x))*ln(a+x))деленное на (корень третей степени из sqr(x) +корень 5ой степени из a).вычислить сумму значений у,произведение отрицательных у,кол-во отрицательных у,контрольный расчет провести при а=2.17,xn=-1.5.dx=0.2
МОя задача:

program afg;  uses crt;
var x,y,pro,sum,otr:extended;i:integer;
begin
pro:=1;otr:=0;
sum:=0;x:=-1.5;
while x<=0.2 do begin
y:=(exp(ln(abs(2.17-sqr(x))*ln(2.17+x)/3)))/exp(ln(sqr(x)/3))+exp(ln(2.17)/5);
sum:=sum+y;
if y<0 then otr:=otr+1;pro:=pro*y;
end;
write('pro= ',pro:10:3,'otricatelnyh= ',otr,'summa= ',sum:10:3);
readkey;end.

помогите найти ошибку(

[Ozzя]

"каждому значению х(хn<=x<=xk,шаг изменения равен dx)"
Вот это ты не делаешь. У тебя в программе нет изменения x

y:=(exp(ln(abs(2.17-sqr(x))*ln(2.17+x)/3)))/exp(ln(sqr(x)/3))+exp(ln(2.17)/5);

И при значении x=-1.5 сразу выкидывает с ошибкой. Проверяй правильно ли написал формулы. По той записи, что ты привел, понять затруднительно.

[serg]

"каждому значению х(хn<=x<=xk,шаг изменения равен dx)"
Вот это ты не делаешь. У тебя в программе нет изменения x

y:=(exp(ln(abs(2.17-sqr(x))*ln(2.17+x)/3)))/exp(ln(sqr(x)/3))+exp(ln(2.17)/5);

И при значении x=-1.5 сразу выкидывает с ошибкой. Проверяй правильно ли написал формулы. По той записи, что ты привел, понять затруднительно.

dx -шаг есть изменения,сейчас выложу формулу