<font color="black"><b>ا<b>لسلام عليكم ورحمة الله وبركاته <br>
الاستاذ / محمد رمضان <br>
الحل الصحيح والأكيد إن شاء الله <br>
إن x = 0 ، y = -1 </b></b></font>

قيم ء ستتراوح ما بين 0 و 3
هات برهانك على صحة حلك

نتائج هذا البرنامج هي
النكرار نهائي
y -1
x تتراوح بين 0 و 3

كما سبق وظهر ب listbox
بس المشكلة ما هو الحل ماذا حدث كيف ظهرت هذه النتائج فقط لا غير

يا أستاذ سيف يا ريت حضرتك تحل المسألة

الحل
 

x x=y+1 y=y-x
-1 4 1
-1 0 4
-1 0 7
-1 0 10
-1 0 13
واخر x=13

معذرة اجابة خطأ
والاجابة الصحيحة التكرار مستمر
ولكم الشرح كيف

اتفق مع nahla m

الى الاخ الاستاذ الفاضل سيف سالم قبل ان اعطيك الحل فهذا ماقد تعلمته منشرح استاذى الفاضل أ/ احمد قرنى اليكم الحل مع جزيل الشكر
سيتم الحل عن طريق التحويل من امر for Next الى امر Do While
x= 1
y=3
Do Whlie <=12
y=y+x
x=x+3
loop MsgBox X
وان كنت مخطئآ فالحل ستكون القيم
x=13
Y=25 وهذا ماقد تعلمته من استاذى احمد قرنى ولكنى اتطلع الى المزيد منكم وشكرآآآآآآآآآآآآآآآآآآ

الحل معروف
فقط انقل البرنامج داخل vb
وشغل فقط لا غير لن يكون كما قلت
والنتائج كما هي معلنة في listbox
ولكن كيف تم هذا

أتفضلوا الاجابة
يتوقف البرنامج عن التنفيذ بعد نهاية أول تكرار حيث تصبح قيمة x=4 وقيمة المتغير y بــ -1 سالب واحد
وهنا يكون مقدار الزيادة بنقصان اى بمقدار -1 والعداد x فى ازدياد بناءً على جملة For x = 1 to Y
ولهذا التعارض سوف يتوقف البرنامج عن التنفيذ

جرب نفس التمرين على الجهاز بعد اضافة اللون الازرق علشان تعرف التتبع
ونفذ البرنامج
ستجد انه سيستمر في التنفيذ
وستكون النتائج النهائية
0
-1
3
-1
وستستمر تلك الرسائل بدون توقف
هذا اكيد
ولكن كيف ام هذا
ايه الشرح

لو سمحتوا انا عاوزة الاجابة النهائية الصح بسرعه

دي صورة من النتائج والبرنامج سيستمر
http://www.thanwya.com/vb/attachment...1&d=1332240346

تمرين جميل و رائع و يحتوى على ابتكار فى الاسلوب
انت استاذنا الرائع يا استاذنا العزيز / سيف
لك جزيل الشكر و التقدير
عاطف حسان / ميت موسى