محاسبه جذر اعداد (الگوریتم)

[اصغر (پآچ)]

سلام
برای بدست آوردن جذر اعداد یه فرمول دارم اما نمی تونم توی دلفی تعریفش کنم کسی میتونه بگه چطوری می تونم این فرمول رو پیاده سازی کنم؟


X = عددی که می خوایم جذرش رو حساب کنیم
r = 1
for i = 1 to 100
r = (r + (x/r))/2

البته می دونم که تابع SQR توی دلفی جذر اعداد رو بر می گردونه اما می خوام این فرمول رو استفاده کنم.:لبخند:
موفق و موید باشید

[دلفــي]

سلام
برای بدست آوردن جذر اعداد یه فرمول دارم اما نمی تونم توی دلفی تعریفش کنم کسی میتونه بگه چطوری می تونم این فرمول رو پیاده سازی کنم؟


X = عددی که می خوایم جذرش رو حساب کنیم
r = 1
for i = 1 to 100
r = r + (x/r)

البته می دونم که تابع SQR توی دلفی جذر اعداد رو بر می گردونه اما می خوام این فرمول رو استفاده کنم.:لبخند:
موفق و موید باشید

فرمول نوشته شده برای بدست آوردن جذر اعداد صحیح نیست ، در ضمن تابع SQR توان دوم یک عدد را برمی گرداند نه جذر آن عدد !
تابع جذر در دلفی SQRT می باشد .

[اصغر (پآچ)]

سلام
حالا اين فرمول جديد رو چطور پياده كنم؟
موفق و مويد باشيد

[Mahmood_N]

سلام
حالا این فرمول جدید رو چطور پیاده کنم؟
موفق و موید باشید
کافیه یه تابع براش بنویسید ، مثلا :
function MySQRT( X : Integer ) : Double;
var
R : Double;
I : Integer;
begin
r := 1;
for i := 1 to 100 do
r := (r + (x/r))/2;
Result := R;
end;
تابع بالا عدد X رو به عنوان ورودی می گیره ، جذرش رو حساب می کنه و به عنوان یک عدد اعشاری درون R میریزه ، در آخر هم R به عنوان خروجی تابع به Result نسبت می دیم ...

موفق باشی ...