Calcul de racine nième

Pouvez vous m'indiquer s'il y a une fonction qui calcule la racine nième ou la puissance d'un nombre dont l'exposant est un réel.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

function puissance(puiss: Real; nbr: Real): Real; begin if puiss = 0 then begin puissance := 1; end; if nbr = 0 then begin puissance := 0 end else if nbr > 0 then puissance := Exp(puiss * Ln(nbr)) else begin if Odd(puiss) then puissance := -Exp(puiss * Ln(nbr)) else puissance := Exp(puiss * Ln(nbr)); end; end

---