Ver Mensaje Individual
  #11  
Antiguo 04-11-2015
Lag Lag is offline
Registrado
NULL
 
Registrado: nov 2015
Posts: 1
Reputación: 0
Lag Va por buen camino
Cita:
Empezado por xEsk Ver Mensaje
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?
Responder Con Cita