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

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

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

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

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

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

الرجوع الى أعلى الصفحة


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