Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
{ Entrega 'Base' elevada a 'Exponente' } Function Pow(Base,Exponente :Real) :Real; Begin If IsPar(Exponente) then Base := Abs(Base); If (Base < 0) then Pow := -1.0 * Pow(Abs(Base), Exponente) Else Pow := Exp(Exponente*Ln(Base)); End; {Pow}