مشاهدة النسخة كاملة : الرجاء حل السؤال مع الشرح


أحمد هاشم الزيدي
20-04-2012, 09:49 AM
Dim x , Sum a integer
X = 1

Do While x <= 5
Sum = sum + x
X= x+2
Loop


يتوقف تكرار الاوامر السابقة عندما تكون قيمة x هى ........ .
( 5 - 6 - 7 )


الرجاء حل السؤال مع الشرح

أحـمد قرنى
20-04-2012, 11:28 AM
[QUOTE=mido_elzedy;4437355]
Dim x , Sum a integer
X = 1

Do While x <= 5
Sum = sum + x
X= x+2
Loop


يتوقف تكرار الاوامر السابقة عندما تكون قيمة x هى ........ .
( 5 - 6 - 7 )


الرجاء حل السؤال مع الشرح

حضرتك قيمة المتغير x = 1 ومعدل الزيادة 2 وذلك من المعادلة الموجودة داخل الكود x = x + 2 .
فى الحالة الاولى للتكرار قيمة المتغير x = 1 يتم التكرار لان الشرط x < = 5 صحيح .
فى الحالة الثانية تصبح قيمة المتغير x = 3 ايضاً يتم التكرار لان الشرط x < = 5 صحيح .
فى الحالة الثالثة تصبح قيمة المتغير x = 5 ايضاً يتم التكرار لان الشرط x < = 5 صحيح .

يتوقف التكرار فى هذه الحالة لان x = 7 فتصبح قيمة الشرط false