Raiz Cuadrada

[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