براي حساب كردن !n چه كار بايد بكنم ؟

[MESHKIPOSH]

براي حساب كردن !n در يك عبارت بايد چه كار كنم .
در يك عبارت كسري ميخوام بدست بياد .
( مسئله اينه كه از تكس باكس يه عدد كه n هست رو ميگيريم و در يك عبارت كسري كه 1+1/2!+...n/n+1! هست رو بايد حساب كنيم . )

ممنون از توجهتون به سوال من

[Oxizhen]

عزيز من درست منظورتون رو متوجه نشدم ولي در عبارات كسري معمولا n! رو با انجام يك سري تبديلات با مخرج كسر ساده ميكنن!!!...حالا اگه مخرج كسر رو هم بگي چيه واضحتر ميشه جواب داد!

[tomcat]

بابا ترخدا دیگه مسائل مدرسه و دانشگاه خودتون حل کنید .
با استفاده از توابع بازگشتی شما میتونید این کارو بکنید .

[mania-lotfi]

(n=val(text1
fact=1
for i=1 to n
fact=fact*i
next

[tomcat]

دوست عزیز این فقط فاکترویل رو حساب میکنه . دوستمون یک چیز دیگه می خواهد ... البته باید تو برنامش این کد هم بزاره .

[MESHKIPOSH]

اين علامت يعني / علامت كسر هست ديگه
اميدوارم متوجه شده باشيد

[MESHKIPOSH]

البته عبارت عددي رو در پست اول از راست به چپ بخونيد ....
خيلي ممنون از اقا مانيا لطفي گل چه بديت اوردن !n رو يادم داد .

[MESHKIPOSH]

اينم متن كامل سوال خيلي ممنون ميشم كه برنامه رو بنويسيد و بعد تحليل كنيد . يعني توضيح بديد .
بينهايت ممنون از اينكه به من كمك ميكنيد ( باور كنيد من خيلي در ويژوال ضعيف هستم و با كمك هاي شما پيشرفت ميكنم .)

[mania-lotfi]

بايد به عرض برسونم كه من آقا نيستم.خانومم.

[mania-lotfi]

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