Raiz Cuadrada

[[seoane]]

Ya puestos a ser originales

Código Delphi [-]
function Raiz(X: Extended): Extended;
begin
  Result:= Exp(Ln(X)/2);
end;