function در vb.net

[sinaeslami]

سلام خدمت دوستای عزیز
اگه ممکن منو تو این برنامه در vb.net کمک کنین و برام توضیح بدین
برنامه بنویسید که عدد n را از ورودی گرفته و سری زیر را به کمک function محاسبه کند
http://img.majidonline.com/pic/187422/1.JPG

[Microsoft.net]

خوب مشکلت چیه ؟ یک حلقه For بزار از 1 تا n وبعد محاسبه رو انجام بده و خروجی بده

[sinaeslami]

من ازتون معذرت میخوام بابت اشتباهی که کردم و بجای علامت فاکتوریل حرف i رو گذاشتم
شرمنده اصلا حواسم نبود اگه میشه شما هم جوابتون رو تصحیح کنین
من اصلا برنامه نویسی بلد نیستم اگه میشه بیشتر توضیح بده بتونم متوجه بشم و ارائه بدم
بازم از بابت لطفی که میکنین مچکرم.

[#target]

از طريق دو تابع زير مي تواني
هر جا هم براي محاسبه Math1(n) رو اجرا کن که يک خروجا از نوع اعشاري مي ده
مثلا Msgbox(Cstr(Math1(2))) باعث مي شه پنجره پيام باز بشه و عدد يک و نيم رو نشان بده




Private Function Fact(ByVal m As Integer) As Integer
Dim i As Integer
Dim out As Double
out = 1
For i = 1 To m
out = out * i
Next
Return out
End Function

Private Function Math1(ByVal n As Integer) As Double
Dim j As Integer
Dim out1 As Double
out1 = 1
For j = 2 To n
out1 = out1 + (1 / Fact(j))
Next
Return out1
End Function

[sinaeslami]

target جان سلام
از پاسخ و توجهی که کردی نهایت تشکر را دارم

[MohsenPS]

با سلام؛
تابع زیر بااستفاده از حداقل محاسبات ممکن، s رو بدست میاره :


Private Function YourFunction(ByVal n As Integer) As Double
Dim F As Integer = 1
Dim S As Double = 0

For i As Integer = 1 To n
F *= i
S += 1 / F
Next

Return S
End Function