سؤال للتفكير فهل من مشارك

[mahgooz]

السلام عليكم ورحمة الله وبركاته
الاستاذ / محمد رمضان
الحل الصحيح والأكيد إن شاء الله
إن x = 0 ، y = -1

[mahgooz]

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

[سيف سالم]

المشاركة الأصلية كتبت بواسطة mahgooz

السلام عليكم ورحمة الله وبركاته
الاستاذ / محمد رمضان
الحل الصحيح والأكيد إن شاء الله
إن x = 0 ، y = -1

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

[سيف سالم]

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

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

[Ma7moud salama]

المشاركة الأصلية كتبت بواسطة سيف سالم

نتائج هذا البرنامج هي
النكرار نهائي
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

[سيف سالم]

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

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

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

[ahmed_sh3]

اتفق مع 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 وهذا ماقد تعلمته من استاذى احمد قرنى ولكنى اتطلع الى المزيد منكم وشكرآآآآآآآآآآآآآآآآآآ

[سيف سالم]

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

الى الاخ الاستاذ الفاضل سيف سالم قبل ان اعطيك الحل فهذا ماقد تعلمته منشرح استاذى الفاضل أ/ احمد قرنى اليكم الحل مع جزيل الشكر
سيتم الحل عن طريق التحويل من امر 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
ولهذا التعارض سوف يتوقف البرنامج عن التنفيذ

[سيف سالم]

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

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

المشاركة الأصلية كتبت بواسطة سيف سالم

ما ناتج تنفيذ ها البرنامج مع تتبع القيم x , y

dim x = 12, y as short = 3
msgbox(x)1
msgbox(y)1
for x = 1 to x step y

msgbox(x)1
msgbox(y)1
x = y + 1
y = y - x

msgbox(x)1
msgbox(y)1
next
msgbox(x)1

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

[فارسكور بنات]

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

[سيف سالم]

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

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

دي صورة من النتائج والبرنامج سيستمر

[زياد_عاطف]

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