Raiz Cuadrada

[[seoane]]

Ya puestos a ser originales

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

[[xEsk]]

Empezado por seoane

Ya puestos a ser originales

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

xDDD Bueno, pues ahi mi otra opción xD

Código Delphi [-]
function Raiz(x: Extended): Extended;
var
  n, i: Extended;

begin
  n:=x;
  i:=0.0;
  while i <> n do
    begin
      i:=n;
      n:=(x/n + n)/2;
    end;
  Result:=n;
end;

El algoritmo se reduce al método de Newton sobre la función f(r)= (r^2)-x

[Robert01]

Usando el método del algoritmo babilónico. Me ganó xEsk por unos segundos por lo tanto no pongo el código.

[[egostar]]

Bueno ya está por demás que ponga otra solución....

Salud OS

PD. A que muchacho tan logarítmico eres amigo Domingo

[Lag]

Empezado por xEsk

xDDD Bueno, pues ahi mi otra opción xD

Código Delphi [-]
function Raiz(x: Extended): Extended;
var
  n, i: Extended;

begin
  n:=x;
  i:=0.0;
  while i <> n do
    begin
      i:=n;
      n:=(x/n + n)/2;
    end;
  Result:=n;
end;

El algoritmo se reduce al método de Newton sobre la función f(r)= (r^2)-x

EL codigo de la raiz en que parte lo agrego , estamos trabajando con dda se lo pondria abajo de ese codigo?

[Casimiro Notevi]

Bienvenido a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo, gracias por tu colaboración