hhiperion

antipauli respondió: function raizn(n,numero : extended) : extended; begin raizn:= exp((1/n) * ln(numero)); end; o sea : raizN(A) = A^(1/N) = X ln (A^(1/N)) = ln(X) (1/N) * ln(A) = ln(X) e^((1/N) * Ln(A)) = e^ln(X) = X