Funcion con Potenciacion

FUNCION CON POTENCIACION

FUNCION (fUNCTION)

POTENCIA (EXP)

LOGARITMO NATURAL (LN)

CÓDIGO

Program Potenciacion; Uses Crt; Var x,n:Integer; Function Potencia(x,n:Real):Real; Begin Potencia:=Exp(n*Ln(x)) End; Begin ClrScr; WriteLn('Ingresa un numero'); ReadLn(n); WriteLn; WriteLn('Ingresa otro numero'); ReadLn(x); WriteLn; WriteLn('El resultado de ',n,' elevado a ',x,' es: ',Potencia(n,x):8:3); WriteLn; WriteLn('Oprima Enter p/Salir'); ReadLn; End.