حلقة تكرار (3 إعدادي)

هذا السؤال من أسئلة منهج الحاسب الآلي للصف الثالث الإعدادي:

س: ما قيم كل من N و K و C بعد تنفيذ الكود التالي؟

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

الإجابة:

هذا هو جدول التتبع للكود السابق:

الكود	N	K	C
Dim N, K, C As Integer	0	0	0
C = 6			6
For N = 1 To 6 Step 3	1
K = K + N		K= 0 + 1 = 1
Next	N = 4 لأن الخطوة = 3 وجمعناها على قيمة N السابقة
For N = 1 To 6 Step 3	ما زالت N أصغر من 6 لهذا سيستمر تنفيذ حلقة التكرار
K = K + N		K= 1 + 4 = 5
Next	N = 7 صار العداد أكبر من 6 ولهذا سينتهي تنفيذ حلقة التكرار
If N < C Then	الشرط خاطئ False لأن N أكبر من C
C = C + 1	لن يتم تنفيذ هذا السطر
End If

إذن فالنتيجة النهائية كما هو واضح من الجدول:

N = 7

K = 5

C = 6

ملحوظة هامة:

يمكنك التأكد من نتائج مثل هذه الأكواد، بتنفيذها في فيجيوال بيزيك.. ضع زرا على نموذج، واكتب الكود في حدث ضغطه، وأضف إلى نهايته عددا من السطور التي تعرض مربعات رسائل فيها قيم المتغيرات.. في مثالنا هذا، يمكنك إضافة هذا الكود في نهاية الكود السابق:

MsgBox(N) ' 7

MsgBox(K) ' 5

MsgBox(C) ' 6

لو شغلت البرنامج وضغطت الزر، فستظر ثلاث رسائل متتابعة، تعرض الأرقام 7 و 5 و 6 على التوالي.

ولو أردت أن تفهم كيف تم تنفيذ الكود، فانتقل إلى صفحة الكود، واضغط بزر الفأرة على أول سطر في الكود لتضع فيه مؤشر الكتابة، ثم اضغط F9 من لوحة المفاتيح (أو يمكنك الضغط بالفأرة مباشرة على الهامش الرمادي الموجود على يسار سطر الكود).. سيؤدي هذا إلى وضع علامة توقف حمراء في هامش السطر، وسيتلون السطر كله باللون الأحمر.. لو شغلت البرنامج وضغطت الزر، فسيتوقف تنفيذ البرنامج عند السطر الذي فيه علامة توقف، وسيتلون باللون الأصفر.. يمكنك الآن أن تحلق بالفأرة فوق أي متغير وتتوقف لثانيتين، حيث ستظهر لافتة تعرض قيمة هذا المتغير.. ولو أردت تنفيذ السطر الحالي والانتقال إلى السطر التالي، فاضغط الزر F8، حيث يمكنك الغشارة بالفأرة إلى المتغيرات لتعرف كيف تغيرت قيمها.. ومن ثم تضغط زر F8 مجددا.. وهكذا إلى أن ينتهي تنفيذ البرنامج.