ورود

نسخه کامل مشاهده نسخه کامل : براي حساب كردن !n چه كار بايد بكنم ؟


MESHKIPOSH
13-05-2006, 15:39
براي حساب كردن !n در يك عبارت بايد چه كار كنم .
در يك عبارت كسري ميخوام بدست بياد .
( مسئله اينه كه از تكس باكس يه عدد كه n هست رو ميگيريم و در يك عبارت كسري كه 1+1/2!+...n/n+1! هست رو بايد حساب كنيم . )

ممنون از توجهتون به سوال من
Oxizhen
13-05-2006, 16:06
عزيز من درست منظورتون رو متوجه نشدم ولي در عبارات كسري معمولا n! رو با انجام يك سري تبديلات با مخرج كسر ساده ميكنن!!!...حالا اگه مخرج كسر رو هم بگي چيه واضحتر ميشه جواب داد!
tomcat
13-05-2006, 18:58
بابا ترخدا دیگه مسائل مدرسه و دانشگاه خودتون حل کنید .
با استفاده از توابع بازگشتی شما میتونید این کارو بکنید .
mania-lotfi
13-05-2006, 19:17
(n=val(text1
fact=1
for i=1 to n
fact=fact*i
next
tomcat
14-05-2006, 05:14
دوست عزیز این فقط فاکترویل رو حساب میکنه . دوستمون یک چیز دیگه می خواهد ... البته باید تو برنامش این کد هم بزاره .
MESHKIPOSH
14-05-2006, 20:47
اين علامت يعني / علامت كسر هست ديگه
اميدوارم متوجه شده باشيد
MESHKIPOSH
14-05-2006, 20:58
البته عبارت عددي رو در پست اول از راست به چپ بخونيد ....
خيلي ممنون از اقا مانيا لطفي گل چه بديت اوردن !n رو يادم داد .
MESHKIPOSH
14-05-2006, 21:11
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
اينم متن كامل سوال خيلي ممنون ميشم كه برنامه رو بنويسيد و بعد تحليل كنيد . يعني توضيح بديد .
بينهايت ممنون از اينكه به من كمك ميكنيد ( باور كنيد من خيلي در ويژوال ضعيف هستم و با كمك هاي شما پيشرفت ميكنم .)
mania-lotfi
14-05-2006, 22:32
بايد به عرض برسونم كه من آقا نيستم.خانومم.
mania-lotfi
14-05-2006, 22:59
s = 1
(n = Val(Text1
For i = 1 To n
fact = 1
For j = 1 To i + 1
fact = fact * j
Next j
s = s + i / fact
Next i
( Text2 = Str(s
mania-lotfi
14-05-2006, 23:00
اگه اشكالي داشتيد بپرسيد توضيح ميدم
tomcat
15-05-2006, 06:06
دوست عزیز . لطفا کنید اینجور سوالهای را جواب ندید . بزارید یه مقدار خودشون فکر کنن . اگر قرار باشه همه مسائل اینطوری حل کنن هیچ وقت نمیتونن برنامه نویس خوبی بشن .
در ضمن اینجور سوال های همیشه وقتی که توابع بازگشتی رو درس میدن میگن . و میگن با استفاده از توابع بازگشتی نوشته بشه . نه با دو تا حلقه For
موفق باشی .
MESHKIPOSH
15-05-2006, 17:26
این جواب نداد یه توضیح میدید که چی میخواد و چی باید در برنامه باشه ؟ ممنون میشم
راستی مانیا جان بابت اشتباهم معذرت میخوام
alishahbazi
12-08-2006, 19:10
براي اين كار كدهاي زير را در يك ماژول بنويسيد .
public function fact (n as integer) as long
dim f as long , i as integer
f=1
for i=1 to n
f=f*i
next i
fact=f
end function