x в степени y

[BeJIuKuu_Hexo4yxa]

Для определения, целое ли число используй Trunc(y) или Round(y)
Trunc - отрезает дробную часть
Round - округление числа

if y = Trunc(y) then
// число целое, можно проверять на четность

А лучше выложи цель задания, может в корне что-то оптимизируем

[airyashov]

разве на степенную функцию нет ограничения a>0

[Ybn2]

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

так что мне тогда делать?

Вспомни математика, класс 5-7, если под четным корнем отрицательное число - то корня не существует, если корень не четный, то решение будет отрицательным. Вот и разбивай свою степень на целую и дробную часть, целую ты уже считал, теперь считай дробную (т.е. корень).
А может у тебя решение с комплексными числами? Тогда просто считай логарифм по формуле: Ln(-x) = Ln(x)+i*Pi*(2k+1)
(где i - мнимая единица, x>0, k=...-2,-1,0,1,2,...);

[Ybn2]

Да и вообще по вспоминай свойства степеней, например как они раскладываются, -а в степени(2/3) равен ((-a)^2)^1/3) (для примера если a=-8 то = ((-8)^2)^(1/3) = (64)^(1/3) = 4
a=-8 а степень 1/3 то = ((-8)^(1/3) = -2; т.е. (-2)^3 = -8;

Думаю принцип Вам понятен.

[oban11]

мне просто надо составить программу для вычисления функции
даны проверочные значения и в них шаг y идет 0.5 то есть y не может быть целым числом я полазил по инету нашол только для целого показателя степени

[oban11]

мне 1 раз попалось такое и никто мне не может норм объяснить что нужно сделать чтобы возвести x в степень y
x и y вещественные числа

[Niro]

Код не проверял, сейчас нет возможности, но как-то так

uses crt;
   var x,y: real;
BEGIN
   {x - число, y - степень}
   read(x,y);
   if (x<0) and (y<0) then rez:=1/(y*ln(abs(x)));
   if (x>0) and (y>0) then rez:=(y*ln(x));
   if (x<0) and (y>0) then rez:=(y*ln(abs(x)));
   if (x>0) and (y<0) then rez:=1/(y*ln(x));
   if (x<0) and (x mod 2)<>0 then rez:=rez*(-1);
END.

[Ybn2]

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

Код не проверял, сейчас нет возможности, но как-то так

uses crt;
   var x,y: real;
BEGIN
   {x - число, y - степень}
   read(x,y);
   if (x<0) and (y<0) then rez:=1/(y*ln(abs(x)));
   if (x>0) and (y>0) then rez:=(y*ln(x));
   if (x<0) and (y>0) then rez:=(y*ln(abs(x)));
   if (x>0) and (y<0) then rez:=1/(y*ln(x));
   if (x<0) and (x mod 2)<>0 then rez:=rez*(-1);
END.

Тоже не проверял, но сразу скажу, что потерял экспоненту

[Ybn2]

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

мне 1 раз попалось такое и никто мне не может норм объяснить что нужно сделать чтобы возвести x в степень y
x и y вещественные числа

oban11
Если подумать, у твоей задачи при x<0 и у с шагом 0.5 не всегда есть решения. Если интересно почему стучись в аську:640222283 попробую объяснить, или давай договоримся быть в форуме одновременно, что бы ты понял ход мыслей. Сегодня.