Степень

[VxVxN]

Помогите с программкой, замучился со степенью отрицательной и дробной. Пользуюсь компилятором Embarcadero RAD Studio там функция Power() не работает. Пробовал exp(x*ln(y)) но так нельзя отрицательную степень сделать, пробовал функцию но там N в цикле должно быть целое число а степень по условию задачи должна быть дробной, а как по другому сделать не знаю.

function step(a,n:integer):integer;
var i,b: integer;
begin
 b:=a;
 for i:=1 to n-1 do
  a:=a*b;
 result:=a;
end;
const m = 0.7;
      c = 2.1;
      x = 1.7;
      a = 0.5;
      b = 1.08;
      e = 2.718;
var f,s,z:real;
begin
 z:=(sin(x)/ sqrt(1+sqr(m)*sqr(sin(x))))-c*m*ln(b-x);
 s:=(-1)*a*x;
 f:=(-1)*b*x;
 s:=step(e,s)*sqrt(x+1+step(e,f))*sqrt(x+1,5);
 writeln('z = ',z);
 writeln('s = ',s);
end.

[Аватар]

Ну, а вспомнить a^(-k)=1/a^k

[VxVxN]

Спасибо большое.