منتدى مدرسة راية الثانوية للبنات/المفرق

أهلا وسهلا بك زائرنا الكريم، إذا كانت هذه زيارتك الأولى للمنتدى، فيرجى التكرم بزيارة صفحة التعليمـــات،
كما يشرفنا أن تقوم بالتسجيل .


منتدى تعليمي
 
الرئيسيةدخولالتسجيل
القاء محاضرة عن تعريب الجيش الدكتور عبدالله العرقان من جامعة ال البيت
بمناسبة ذكرى تعريب الجيش تم القاء محاضرة الدكتور عبدالله العرقان من جامعة ال البيت 1/3/12016
كل عام وأنتم بخير بمناسبةبدء الفصل الدراسي الثاني، ونسأل الله لكم دوام التوفيق والتفوق مديرة المنتدى
قوانين منتديات مدرسة راية للبنات : 1- ممنوع تسجيل الشباب في هذا المنتدى . 2- منع استخدام الألفاظ البذيئة والنابية في المنتدى أو التهجم على أي احد من طاقم الإشراف وأي اعتراض يتم إبلاغ المشرفة بأسلوب لبق ومهذب. 3- يمنع تبادل الايميلات الخاصة في علبة الدردشة لكن يمكن ارسالها عن طريق الرسائل الخاصة. 4- الالتزام بآداب الحوار في الطرح والرد والمشاركة، وإبداء وجهة النظر المخالفة بتعقل ورويه ونبذ السب والشتم والطعن واتهام النيات. 5- يمنع منعا باتا التدخل في شؤون الإدارة ومنهم المشرفات ولهم الصلاحية من نقل وحذف وتعديل و إغلاق وسوف يصلكم التنويه بالسبب. وكل من يتهاون في هذه القوانين ويخالفها سوف يؤدي الى طرده من المنتدى الرجاء الألتزام بهــــــــــــــــــــــــــذه القوانين (( هذه القوانين قابله لتجديد .))
بسم الله الرحمن الرحيم تبارك أدارة المنتدى للأعضاء الذين تم تعينهم مشرفين في المنتدى وهم ..... ( العضوة مي العبدلله والعضوة روان وليد .. ورماح الخزاعلة ... وحلا .. وحنان ... maiss kalili..) ونأمل لهم التوفيق والتقدم والنجاح الدائم. مديرة المنتدى ...... غـــدير خزاعلة

شاطر | 
 

 اسئلة QBASIC 2

اذهب الى الأسفل 
كاتب الموضوعرسالة
المعلمة غدير خزاعله
المديرة العامة للموقع
المديرة  العامة للموقع
avatar

عدد المساهمات : 87
نقاط : 137
تاريخ التسجيل : 20/03/2010

مُساهمةموضوع: اسئلة QBASIC 2   الأحد أبريل 11, 2010 2:13 am

8. اكتب برنامج لطباعة الارقام التي تقبل القسمة على 3 من 1 - 100
الحل رقم 1

FOR I = 1 TO 100
IF I MOD 3 = 0 TNEN PRINT I
NEXT I



الحل رقم 2
FOR I = 1 TO 100
IF( I / 3) = FIX (I /3 ) TNEN PRINT I
NEXT I







9. اكتب برنامج بلغة بيسك يقوم بطبع كلمة (Pass) اذا كانت العلمة اكبر او تساوي 50 ويقوم بطباعة الكلمة fail اذا كانت اقل من 50 ؟
Input GREED
IF GREED > =50 THEN PRINT "PASS" ELSE PRINT" fail"
End
10. استخدام الاقترنات المكتبية اللازمة لكتابة برنامج يقوم بطباعة الإعداد من 1 الى 20
مع جذرها ألتربيعي ، وطباعة عشرين عدداً عشوائياً على ان تكون بين الصفر والمائة
For I = 1 to 20
Print I , SQR(i)
Print INT (RND(i)*100
Next i












11. اكتب برنامج لطباعة كلمة JORDAN عشر مرات ؟

FOR I =1 TO 10
PRINT " JORDAN "
NEXT I






12. اكتب برنامجاً لطباعة خمسة ارقام عشوائية بين 0 و 10
FOR I =1TO 5
PRINT Rnd(I) *10
NEXT I




13. اكتب برنامج بلغة كويك بيسك لإيجاد الجمع للمتسلسلة الآتية مستخدماً جملة التكرار ؟
1 + 2 + 1 + 4 + 5 +2 + 7 + ….N
3 3 3 3 3 3

SUM =0
INPUT N
FOR I = 1 TO N
SUM =SUM +(I /3 )
NEXT I
PRINT SUM
END





14- اكتب برنامج بلغة بيسك يقوم بإدخال قيمة عدد وإيجاد قيمة المضروب لذلك العدد، ثم طباعة القيمة الناتجة ، علماً بان قاعدة قيمة المضروب لأي عدد مثل N هي
N!= N(N-1)(N-2)(N-3)…..
INPUT N
F= 1
FOR I =1 TO N
F=F * I
NEXT I
PRINT N , F
END


15.اكتب برنامج لايجاد ناتج الجمع للمتسلسلة الاتية مستخدماً جملة التكرار
FOR –NEXT ؟
Y = 1 + 2 + 3 + 4 + ……..12
12 11 10 9 1


SUM=0
C=1
FOR I = 12 TO 1 STEP -1
SUM = SUM +(C / I)
C=C+1
NEXT I
PRINT SUM
END
حل 2
SUM=0
FOR I =1TO 12
SUM = SUM + I / (13-I)
NEXT I
PRINT SUM
END

_______________________________________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://raaya-jo.own0.com
 
اسئلة QBASIC 2
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» مادة البيسك ( qbasic ) للتوجيهي هووووون وبس

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتدى مدرسة راية الثانوية للبنات/المفرق :: منتدى الحاسوب :: منتدى Qbasic-
انتقل الى: