[زياد_عاطف]

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

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

اليكم السؤال

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

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