[Delphi] Помогите исправить ошибку

[Delphilol]

const H=0.4;
var x,y,V:real;
begin
x:=-2.2    ;
while x <= 2.5 do
begin
if (sqr(x)<1) then y:=arctan(x/sqrt(1-x*2))+sqrt(sqr(x)+4.7)
else
if (x>=1) then y:=ln(x+6.7)/ln(5)
else
if (x<=-1) then y:=arctan(x)+sqr(x)-1.035;

V:=power(2*y+sqr(cos(x*y)),1/5)*power(3,2*x*ln(abs(y)+1.2));
Memo1.Lines.Add(floatToStrf(x,fffixed,3,1));
Memo2.Lines.Add(floatToStrf(y,fffixed,5,2));
Memo3.Lines.Add(floattostrf(V,fffixed,5,2));
series1.AddXY(x,V,'');
x:=x+H ;
end;
end;
end.

При проверке делает 3 шага,потом пишет invalid floating point operation
Связано со строчкой V:=power(2*y+sqr(cos(x*y)),1/5)*power(3,2*x*ln(abs(y)+1.2));


Пожалуйста, оформляйте Ваш код согласно правилам.

[Вадим Мошев]

На том шаге, где происходит ошибка, значение выражения

2*y+sqr(cos(x*y))

у вас отрицательно. Вы его возводите в степень (1/5). Но отрицательные числа нельзя возводить в дробную степень, поэтому происходит ошибка.

[type_Oleg]

Наверное выражение 2*y+sqr(cos(x*y)) получилось отрицательным
Поэтому его нельзя в степень 1/5 . И вообще нельзя в Power число <0 в любую степень.