[pax]

Положительный X в любой степени

Function RXStepY(X:Real;Y:Real):Real;
var s:Real;
Begin
	If X<0 then 
 S:=-1
	else 
 If X=0 then 
 	S:=1
 else 
   S:=exp(Y*log(X));
	
	RXStepY:=S;
End;