اسئلة QBASIC 2

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