محاسبه مقدار

[mahdi.manian]

با سلام.

دوستان یک برنامه هست که میگه برنامه ای بنویسید که عدد طبیعی N را دریافت و این مقدار را محاسبه کند: S = 4/2 + 5/3 + 6/4 + … + N+3/N+1

من الگوریتمشو نوشتم ولی نمی دونم که توی حلقه، این حلقه باید تا کی ادامه داشته باشه؟!

ممنون میشم دوستان راهنمایی کنند.

همچنین یک سوال دیگه. توی یک برنامه میگه که الگوریتم برنامه ای را بنویسید که نمره 20 دانش آموز را بگیره و میانگینشو حساب کنه. توی الگوریتم باید چطوری بگیم این 20 نمره را بگیره؟ با حلقه؟ چطوری؟

با تشکر.

[ho3ein.3ven]

سلام .
میانگین 20 عدد :
0-شروع
1-i=1
2-اگر i بزرگتر از 20 بود به مرحله 6 برو
3-a را از ورودی دریافت کن
3- sum را با مقدار a جمع کن
5- i را به علاوه 1 کن و به مرحله 2 برو
6- ave=sum / 20
7- ave را در خروجی چاپ کن
8-پایان

[ho3ein.3ven]

سلام مجدد . اینم جواب سوال 1 :

Private Sub Command1_Click()
n = InputBox("")
s = 0
For i = 1 To n
s = s + (i + 3) / (i + 1)
Next
Print s
End Sub

موفق باشید