Паскаль.Почему условие не срабатывает?

[Аватар]

Возведение в действительную степень не определено для отрицательных чисел

только проверять и отфутболивать при такой попытке

[Max$$]

подсказали на другом форуме:

".....Конкретно для х=-8.8 это сделать можно, поскольку 0.1*(-8.8)=-22/25.
Корень нечетной степени (25) можно извлечь из отрицательного числа

x:=-8.8;
writeln(-power(-x,0.1*x));


Вывод -0.147521475836967......"

и получилось:

program number1;
var
x: real;
y: real;
begin
x := -10;
while x <= 2 do
begin
if (x>=-8) and (x<0) then y:=cos(x);
if x<-8 then y:=cos(x)/cos(x) + (power (x,0.1*x));
if x>=0 then y:=(power(x,1/3))/sin(x) + x*x*x;
if (x>-10) and (abs(x+8.8)>0.0001) and (x<-7.9) then writeln ('x=',x,' функция не определена') else
if (abs(x+8.8)<0.0001) then writeln('x=',x,' y=',(cos(x)/cos(x)-(-power(-x,0.1*x))))
else writeln('x=',x,' y=',y);
x := x + 0.3;
end;
end.

Для -8,8 дает результат, как калькулятор MS-й.

[Cuprum5]

Сообщение от Serge_Bliznykov

угу. но мелкософт так не думает.
windows 7. стандартный виндовый калькулятор спокойно считает -8.8^-0.87
причём, он выдаёт одинаковый ответ и для -8.8^-0.87 и для 8.8^-0.87

- как Вы считаете, Сергей - я не понимаю. Я ввожу числа в калькулятор(ну понятно какие числа) - получаю ответ: Недопустимый ввод.