سؤال صعب فى امتحان الكمبيوتر بمحافظة المنوفية اليوم ارجو دخول معلمى الحاسب

[Mr.Ali Mohamed Ali]

ورد سؤال حير جميع الطلاب فى امتحان الحاسب
بمحافظة المنوفية اليوم

اليكم السؤال

نفذ الكود التالى

Dim N, K, C As Intege
C = 10
For N = 1 To 10 step 6
k = k + n
next
if n < = c then
c = c + 2
end if

السؤال
اختر الاجابة الصحيحة
قيمة N بعد انتهاء التكرار هى
{ 6 - 13 - 10 }

n=1,7,13
k=1,8
c=10

والإجابة هي أن قيمة N = 13 بعد انتهاء التكرار هذا وفقط . مع ملاحظة أن ناتج الشرط false

[ابراهيم عمر عبدالرحيم]

الاجابة هى 13
لان
قيمة k الاولية تساوى صفر مضافا لها قيمة ال n الاولية وهى 1
اذن قيمة ال k تساوى 1
وعندما نقول next اذن سيتم دوران الحلقة مرة اخرى
وسيكون قيمة ال k ب 1 وقيمة ال n ب 7
اذن قيمة ال k تساوى 8
والشرط هو هل قيمة ال n والتى هى 7 اقل من او تساوى ال c وهى ب 10
اذن الجواب صحيح true
اذن سوف ينفذ العملية التالية وهى c=c+2 وهى الاقرب

[Mr.Ali Mohamed Ali]

المشاركة الأصلية كتبت بواسطة ابراهيم عمر عبدالرحيم

الاجابة هى 13
لان
قيمة k الاولية تساوى صفر مضافا لها قيمة ال n الاولية وهى 1
اذن قيمة ال k تساوى 1
وعندما نقول next اذن سيتم دوران الحلقة مرة اخرى
وسيكون قيمة ال k ب 1 وقيمة ال n ب 7
اذن قيمة ال k تساوى 8
والشرط هو هل قيمة ال n والتى هى 7 اقل من او تساوى ال c وهى ب 10
اذن الجواب صحيح true
اذن سوف ينفذ العملية التالية وهى c=c+2 وهى الاقرب

أستاذنا الفاضل " مستر إبراهيم " قيمة n بعد إنتهاء التكرار هي 13 وبذلك قيمة الشرط ستكون false

[MHD88]

الإجابة n 13

[فهم]

الإجابة هي 13 بعد انتهاء الحلقة التكرارية

[aly_rafat]

شكرا للجميع السؤال سهل جدا

[aly_rafat]

الإجابة 13

[جيهان حسين]

قيم nداخل التكرار 1 و 7 بعد نهاية التكرار 13 قيمة k=8 وقيمة c=10 لان ناتج الشرط false

[زياد_عاطف]

المشاركة الأصلية كتبت بواسطة مناهج مصرية

ورد سؤال حير جميع الطلاب فى امتحان الحاسب
بمحافظة المنوفية اليوم

اليكم السؤال

نفذ الكود التالى

Dim N, K, C As Intege
C = 10
For N = 1 To 10 step 6
k = k + n
next
if n < = c then
c = c + 2
end if

السؤال
اختر الاجابة الصحيحة
قيمة N بعد انتهاء التكرار هى
{ 6 - 13 - 10 }

ارجوا حل السؤال ضرورى

اول سطر تم الاعلان عن المتغيرات N,K,C و لم تعطى قيمة فيأخذ كل متغير القيمة الإفتراضية 0

فى الجملة الثانية تم تخصيص القيمة 10 لتخزينها فى المتغير C

عند الذهاب لبداية التكرار عند For يأخذ العداد N قيمة البداية التى بعد علامة = و هى تساوى 1 و طالما أنها أقل من أو تساوى النهاية التى بعد To و هى تساوى 10 يجب أن تكون قيمة الزيادة التى بعد Step و هى تساوى 6 موجبة حتى يتم التكرار – فيتم التكرار الأول لينفذ الأوامر التى بين For..Next و هى

K=K+N = 0 + 1 = 1

ثم نذهب ل Next ليتم زيادة قيمة العداد الحالية 1 بقيمة الزيادة 6 فيصبح قيمة العداد N=1+6=7 و تتم مقارنة العداد الحالية 7 بقيمة النهاية هل 7<=10 يتحقق الشرط– فيتم التكرار الثانى لينفذ الأوامر التى بين For..Next و هى

K=K+N = 1 +7=8

ثم نذهب ل Next ليتم زيادة قيمة العداد الحالية 7 بقيمة الزيادة 6 فيصبح قيمة العداد N=7+6=13 و تتم مقارنة العداد الحالية 13 بقيمة النهاية هل 13<=10 فلن يتحقق الشرط– فيتوقف التكرار لينفذ الأوامر التى تلىNext و هى if n < = c then اى If 13 <= 10 فلا يتحقق الشرط فلا يتم تنفيذ اى شىء

و تكون القيمة النهائية للمتغيرات بعد تنفيذ الاوامر

N=13
C=10
K=8

[محمودسيدقرنى]

الاجابة الصحيحة هى 13

[ياسين الشيخ]

الإجابة 13 يا استاذ

[haisem]

الاجابةهة 13

[haraabdo]

عند تنفيذ البرنامج على الكمبيوتر تصبح قيمة n هى 7 وبذلك يكون الحل عند تتبع قيم المتغيرات
ام بعد تنفيذ الكود فان next تختبر قيمة الزيادة بالقيمة النهائية وعندما تجد قيمة n= 13 فان البرنامج يتوقف
اعتقد ان هذا محل السؤال وشكرا

[مستر عزت]

Dim N, K, C As Integer
C = 10
For N = 1 To 10 Step 6
K = K + N

Next
If N <= C Then
C = C + 2

End If

( MsgBox("C =" & C & " " & "K=" & K & " " & "N=" & N



تكون قيمة N بعد انتهاء التكرار 13

قيمة C = 10 لان الشرط خطأ لانه لن ينفذ مايلي next الا اذا اصبحت قيمة N = 13
عند اختبار الشرط نجد ان If N <= C Then الشرط خطأ
قيمة K = 8