سری فیبوناتچی

[aleas2]

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

1- جمله nام سری فیبوناتچی نمایش دهد؟
2- nجمله اول سری فیبوناتچی نمایش دهد؟
یا سورس بدین یا راهنمایی کنین ممنون میشم

[Veteran]

1-
a = 0
b = 1
x = Val(InputBox(""))
For n = 1 To x
c = a + b
a = b
b = c
If x = n Then
Print c
End If
Next n
2-
a = 0
b = 1
x = Val(InputBox(""))
For n = 1 To x
c = a + b
a = b
b = c
Print c
Next n
حل تمرین خلاف قوانینه.
اما خب ..........
اگر بتونی خودت تمرین هایی که معلم بهتون میده رو حل کنی
خیلی بهتره
اگر نکنی فردا به مشکل بر میخوری
موفق باشی

[aleas2]

بابا استاد ما 30 تا برنامه داده !! منم تو ریاضی مشکل دارم اگر روش حل ریاضیشو میگفتین خودم مینوشتم برحال ممنون
حالا از برنامه مطمنی درسته؟
میشه روش حل ریاضی هر کدومشو هم بگی؟

[Veteran]

http://fa.wikipedia.org/wiki/%D8%A7%D8%B9%D8%AF%D8%A7%D8%AF_%D9%81%DB%8C%D8%A8% D9%88%D9%86%D8%A7%DA%86%DB%8C

[aleas2]

خب با این حساب فکر کنم سورسی تو دادی اشتباه هسته درستش اینه درسته؟چون شما 0 و 1 اولی رو در نظر نگرفتین حالا ببینین این درسته یا از شما البته اینم مثل برنامه شما هسته فقط کمی تغییرش دادم


a = 0
b = 1
x = Val(InputBox(""))
If x = 1 Then Print "0": Exit Sub
If x = 2 Then Print "1": Exit Sub
For n = 3 To x
c = a + b
a = b
b = c
If x = n Then
Print c
End If
Next n


برنامه دوم

a = 0
b = 1
x = Val(InputBox(""))

For n = 1 To x
If n = 1 Then
Print "0"
ElseIf n = 2 Then Print "1"
Else
c = a + b
a = b
b = c
Print c
End If
Next n

[Veteran]

2 عدد اول چون که ثابت هستند حزء عدد های هستند که از اعداد قلبی ساخته نشدن.نیاز نمیبینم اون ها هم چاپ بشن همون پست شماره 2 خوبه

[aleas2]

مشکلی نیست همونی شما دادین مینویسم ممنون