سوال ریاضی

[yanin]

ایا الگوریتمی سراغ دارید که با اختلاف کیمتری در حد 0 جواب بده*

[yanin]

کسی الگوریتمی بلده که بشه ریشه n ام یک عدد را با m رقم اعشار گرفت

[yanin]

یعنی کیسی یه تابع یا روال برای این کار سراغ نداره*
البته sqrt به کارم نمیاد چون اولا فقط ریشه دوم رو محاسبه میکنه*
دوما تقریب اعشار رو توش نمیشه مشخص کرد
من یه تابع میخوام بشه توش اینا رو مشخص کرد

[admin]

سلام مهندس.این دو لینک رو دنبال کنید ببینید به دردتون میخوره ...

<span style="font-family: trebuchet ms"><font size="3"><font color="Indigo"><b><font color="red">[فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>]</font></b></font></font></span>

<span style="font-family: trebuchet ms"><font size="3"><font color="Indigo"><b><font color="red">[فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>]</font></b></font></font></span>محاسبه-فرجه-n-ام-عدد-m-تا-x-رقم (<span style="font-family: trebuchet ms"><font size="3"><font color="Indigo"><b><font color="red">[فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>]</font></b></font></font></span>)

[yanin]

فقط من یه مشکل دارم*
من میخوام مثلا زمانی که ازش ریشه سوم عدد 8 رو بخوام با هر دقت اعشاری به من 2 رو بده
ولی این تابع 2.21895141649746 رو به من میده*

[admin]

دقیقا کدتون چیه ؟
سورس رو بزارید

[yanin]

کد:


USES
Math;

function NthRoot(A, Precision: Double; n: Integer): Double;
var
x_p, X: Double;
begin
x_p := Sqrt(A);
while Abs(A - Power(x_p, n)) > Precision do
begin
x := (1/n) * (((n-1) * x_p) + (A/(Power(x_p, n - 1))));
x_p := x;
end;
Result := x_p;
end;




اینم لینکش*
<span style="font-family: trebuchet ms"><font size="3"><font color="Indigo"><b><font color="red">[فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>]</font></b></font></font></span>

[admin]

سلام.اینم جواب شما.
ببینید به دردتون میخوره ...
البته یه مقداری عجله ای شد ...

دانلود (<span style="font-family: trebuchet ms"><font size="3"><font color="Indigo"><b><font color="red">[فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>]</font></b></font></font></span>)

[admin]

البته کلا شما با این روش زیر مشکلتون حل میشه و اونم تبدیل Double به Int هستش

کد:


var
a: double;
b: integer;
begin
a := 3.14159;
b := trunc(a);
label1.caption := IntToStr(b);
end;

[yanin]

*مشکل اینه که در این حالت تمام ریشه ها رو روند میکنه و نباید این کارو کنه مثلا ریشه دوم 5 برابر میشه با ریشه دوم 4 که این کاملا اشتباه هست من می خوام *در ضورتی که ریشه یک عدد طبیعی بود اون رو به صورت غیر اعشار نشون بده و زمانی که جواب اعشاری بود اون رو به صورت اعشار نشون بده ولی این مشکل رو خودم با یه تابع حل کردم ولی مشکلی که اینجا مطرح کردم این بود که چرا الگوریتم جواب درست به من نمیده مثلا باید ریشه 3 عدد 8 رو به من خروجی 2 بده ولی در واقع 2.21895141649746 *رو به من میده که اشتباه*

[admin]

چون از روشی*که استفاده میکنه، 8 رو به توان یک سوم میرسونه ... مثلا یه دوستی یه جایی اینطوری گفته بود ...

&quot;همه میدونن که ریشه سوم عدد 8 ، عدد 2 هست . اگر چه طبق تعریف قرار باشه 8 رو به توان یک سوم برسونیم مطمئنا جواب دقیقی نمیگیریم !!!چون یک سوم خودش یک عددیه که قسمت اعشاریش پایان پذیر نیست پس مطمعنا عدد 2 با دقت بدست نخواهد اومد ! شما مجبور هستی توی برنامه ات امکان گرد کردن بعضی از*اعداد رو بگذاری و اونها رو به نزدیک ترین عدد ممکن گرد کنی تا جواب هات درست دربیاد ...&quot;


به این لینک هم یه سری بزنید ... <span style="font-family: trebuchet ms"><font size="3"><font color="Indigo"><b><font color="red">[فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>]</font></b></font></font></span>

[yanin]

نقل قول از admin
چون از روشی*که استفاده میکنه، 8 رو به توان یک سوم میرسونه ... مثلا یه دوستی یه جایی اینطوری گفته بود ...

&quot;همه میدونن که ریشه سوم عدد 8 ، عدد 2 هست . اگر چه طبق تعریف قرار باشه 8 رو به توان یک سوم برسونیم مطمئنا جواب دقیقی نمیگیریم !!!چون یک سوم خودش یک عددیه که قسمت اعشاریش پایان پذیر نیست پس مطمعنا عدد 2 با دقت بدست نخواهد اومد ! شما مجبور هستی توی برنامه ات امکان گرد کردن بعضی از*اعداد رو بگذاری و اونها رو به نزدیک ترین عدد ممکن گرد کنی تا جواب هات درست دربیاد ...&quot;




من دقیقا منظورتون رو نفهمیدم یعنی شما میگید ریشه سوم 8 یا همون 8 به توان یک سوم*

با 2 اعداد صحیح برابر نیست یا منظورتون مشکل الگوریتم منه؟

[admin]

الگوریتم درست کار نمیکنه ...
ضمنا شما میتونید تو همون کد بالا فقط از Power استفاده کنید ...
مثال :

کد:


ShowMessage(FloatToStr(Power(StrToFloat(Edit1.Text ),(1/StrToInt(Edit3.Text)))));

[admin]

من که سراغ ندارم ، بقیه ی دوستان چطور؟؟؟

[yanin]

مثله اینکه*بقیه دوستانم جوابی ندارند