روش های محاسبه ی جذر

[kiani_behzad]

ساده ترین الگوریتم برای محاسبه ی جذر یک عدد در فورجه ی n چیه ؟
من به کمک دیفرانسیل تونستم این الگوریتمو پیاده کنم
اگه کسی روشی بلده لطفا" توضیح بده.
یه روش من یه بار یه جایی دیدم که خیلی ساده و کارا بود اما الآن یادم نیست.

[اَرژنگ]

function SquareRoot( const X : real; const Tolerance : real):real;
var
X_next,X_current: real;
begin
X_current := X;
while ((ABS(X_next - X_current) < Tolerance)) do begin
X_next := 0.5*(X_current + X/X_current);
X_current := X_next;
end;
result := X_current;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := FloatToStr( SquareRoot(9 , 0.001 ) );
end;