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;
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;