منتدى أحلـــى كـــلام
عزيزى الزائر

كونك زائر غير مسجل

* سيتم عرض اعلانات لك، هذه الاعلانات لا تظهر للاعظاء.
* لن تتمكن من مشاهدة بعض محتويات مواضيعنا.

ندعوك للتسجيل بأقل من دقيقة
* لتتمكن من مشاهدة كافة محتويات المواضيع التى ترغب فى قرآئتها .
* وقف عرض الاعلانات.

SiteAdmin

كود برنامج لطباعه سلسلة ارقام فايبوناتشي

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

كود برنامج لطباعه سلسلة ارقام فايبوناتشي

مُساهمة من طرف 123 في الأحد مارس 06, 2011 10:44 am

برنامج لطباعه سلسلة ارقام فى سلسلة فايبوناتشي وهي كالتالى

1,1,2,3,5,8,…………

سيتم طباعه 100 رقم

الكود الاول ضع مربع صورة وسمه PicFib وزر امر واكتب به الكود

[color=#000000][font=Calibri]

الكود:

x = 1
y = 1
picfib.Cls
picfib.Print "fib series first term:"
picfib.Print x;
Do While y <= 100
picfib.Print y;
temp = x y
x = y
y = temp
Loop
End Sub[/font][/color]

123
عضو نشط
عضو نشط

عدد المساهمات : 34
نقاط : 164
تقييم العضو : 0
تاريخ التسجيل : 15/06/2010

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى