x в степени y

[oban11]

подскажите как возвести x в степень y
exp(y*ln(x)) но если x<0 то логарифм не существует
что делать?
abs(x)/x*exp(y*ln(abs(x))) только при нечетной степени будет -
или подскажите функцию проверки на четность

[Ivan_Susanin]

возведение в произвольную степень
функция Power
модуль math

[Utkin]

Проверка на четность:

x mod 2;

результаты:
0 - число четно
1 - число нечетно
mod - это остаток от деления

[oban11]

как записать это условие?
if (x mod 2):=0 then так можно?

[Utkin]

Нет. := означает присваивание. Сравнение записывается просто знаком =

[oban11]

что то не могу понять как работает эта функция и как с ее помощью решить проблему с отрицательным x в степени y

[Ybn2]

result:= exp (y*ln(abs(x))
if (y mod 2)=1 then Begin Result:=-Result;
А если y- вещественное число, то надо проверять его четность и если оно четное, а x<0. тогда решения не существует (если только это не мнимая единица.

[oban11]

program lab7part2;
uses crt;
const t=1e-10;
var z:array[1..15] of real;
    x,xn,xk,y,yn,yk,hx,hy,ch,zn,chet,cosec,f : real;
    ki,i:byte;
    ks:word;
BEGIN
clrscr;
ks:=0;
write('Vvedite xn=');
readln(xn);
write('Vvedite xk=');
readln(xk);
write('Vvedite Hx=');
readln(Hx);
write('Vvedite yn=');
readln(yn);
write('Vvedite yk=');
readln(yk);
write('Vvedite Hy=');
readln(Hy);
clrscr;
write('Vvedite kol-vo elementov massiva Z ki=');
readln(ki);
For i:=1 to ki do
begin
writeln('Vvedite Z[',i,']');
readln(z[i]);
end;
while x<xk+t do
begin
x:=xn;
while y<yk+t do
begin
y:=yn;
for i:=1 to ki do
begin
inc(ks);
writeln(ks:2,' x=',x:6:2,' y=',y:6:2,' z[',i,']=',z[i]:6:2);
ch:=cos(y);
if ch>-t then
begin
ch:=sqrt(ch)+exp(z[i]);
cosec:=sin(y+z[i]);
if abs(cosec)>t then
begin
cosec:=1/sin(y+z[i]);
if abs(cosec)>t then
begin
f:=sin(x)/cosec;
zn:=exp(y*ln(abs(x)));
if ( y mod 2 ) = 0 then
begin
zn:=-zn
zn:=zn+exp(cos(z[i])*ln(5))+z[i];
if abs(zn)>t then
begin
f:=ch/zn+f;
writeln('f=',f:12:6);
end
else
writeln('f - no exist delenie na 0')
end
else
writeln('f - no exist delenie na 0')
end
else
writeln('f - no exist delenie na 0')
end
else
writeln('f - no exist podkorennoe virazhenie <0');
x:=x+hx;
y:=y+hy;
end;
end;
end;
readln
END.

что то не получается на строке if (y mod 2)=1 выдает ошибку
Типы операндов не соответствуют операции

[Utkin]

Потому что четность актуальна только для целых чисел, но никак не для вещественных. Соответственно и операция тоже для работы над целыми числами .

[oban11]

так что мне тогда делать?
мне дали задание я вот вторую неделю мучаюсь с этой степенью не знаю уже что делать