Función que calcule la potenciación

[szunny18]

holas!!!! quisiera que me orienten de como puedo hacer o diseñar en delphi3 una función que calcule la potenciación...les agradecería si lo hacen lo mas simple posible...soy nueva en esto

[ecfisa]

Hola szunny.

Esta función te devuelve cualquier potencia.
No es un código complicado, sólo tenés dos funciones matemáticas involucradas: Ln (logarítmo) y Exp (exponencial),
los dos en base e (naturales).

Debería ejecutarse correctamente en delphi 3.

Código Delphi [-]
function Potencia(Base, Exponente: Double): Extended;
begin
  Result:= Exp( Ln(Base) * Exponente );
end;

Ejemplo de llamadas:

Código Delphi [-]
var
  Pot: Extended;
begin
  // Ej. 1
  Pot:= Potencia(5 ,3);
  // Ej. 2
  ShowMessage( 'Tres al cubo: '+FloatToStr( Potencia(3, 3) ) );
  ...
end;

Saludos.