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

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

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

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

SiteAdmin

انضم إلى المنتدى ، فالأمر سريع وسهل

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

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

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

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

SiteAdmin
منتدى أحلـــى كـــلام
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

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

اذهب الى الأسفل

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

مُساهمة من طرف 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

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

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


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