اقتباس:
المشاركة الأصلية كتبت بواسطة saharelsafty
الرجا من سيادتكم توضيح اجابة السؤال الاتى
Dim N , K , C As integer
C = 6
For N= 1 To 6 Step 3
K= K + N
Next
If N > C Then
C = C + 1
End If
بعد تنفيذ هذه التعليمات أكمل مكان النقط :
1- قيمة المتغير C تساوى ــــــــــــــــــــ
2- قيمة المتغير N تساوى ــــــــــــــــــــ
3- ناتج الشرط N > C يساوى ــــــــــــــــــــ
4- قيمة المتغيرK تساوى ــــــــــــــــــــ
الرجا الاجابة مع توضيح الشرح للاهمية لقرب الامتحان وشكرا لسياتكم |
الإجابة
عدد مرات التكرار هنا 2 ويتوقف التكرار في المرة الثالثة كالتالي :
N = 1
N = 1 + 3 = 4
N = 4 + 3 = 7
اذن آخر قيمة للمتغير N = 7
وطالما ان التكرار حدث مرتين اذن :
K = K +N
K = 0 + 1 = 1
K = 1 + 4 = 5
اذن آخر قيمة للمتغير K =5
عندما تصل N = 7 يتوقف التكرار وننتقل الى جملة IF ونرى ان قيمة التعبير الشرطي N>Cيساوي True وبالتالي يتم تنفيذ الأوامر التي تلي Then وهي :
C = C + 1
C = 6 + 1 = 7
الاجابات النهائية المطلوبة باللون الأخضر
__________________
يارب ارفع عنَّا وعن مصر الفتن ما ظهر منها وما بطن واحفظ بلاد المسلمين من كل شر وسوء يا أرحم الراحمين
|