![]() |
سؤال للتفكير فهل من مشارك
سؤال للتحدي فهل من مشارك ما ناتج تنفيذ هذا البرنامج مع تتبع القيم x , y مع الشرح Dim x = 12, y As Short = 3 For x = 1 To x Step y x = y + 1 y = y - x Next MsgBox(x)1 |
ان شاء الله تكون قيمة
x = 4 y = -1 وهينتج خطأ وذلك لتغير قيمة ال x لانها سوف تكون في اول مرة تكرار 13 حتى 13 وعند الرجوع للمقارنة سوف يجد تغير في قيمة ال x حيث انها سوف تكون 4 بالاضافة الي قيمة الزيادة تحولت الى سالب وقيمة البداية اصغر من قيمة النهاية والدنيا ملخبطة والله ياستاذ سيف بس ده اللى انا توصلت له وشكرا يارب يكون صح |
اقتباس:
اولا نشكر لكم المحاولة وفعلا y ستكون اخر القيم لها -1 لكن x لن تكون 4 وكذلك لن ينتج خطأ والدنيا مش ملخبطة ولا حاجة فقط ان نعرف كيف يكون امر for next |
ممكن الحل السليم فى جدول
Please |
اقتباس:
ان شاء الله سيكون الحل السليم بمشاركة الجميع |
نرجو مساهمة الجميع
|
عند تنفيذ البرنامج تكون قيمة العداد For x = 1 to 12 Step 3 لأنه يأخذ القيم من جملة الإعلان ثم يبدأ بتنفيذ التكرار فتكون أول قيمة X تساوي 2 من المعادلة وقيمة y= 1 ثم يكرر مرة أخر فيزيد X بمقدار الزيادة 3 فتصبح 5 ثم في أول معادلة في جمل التكرار تزيد مرة أخري بمقدار واحد فتصبح 6 وعندها تكون Y بمقدار -5 فيذهب إلي إلي بداية التكرارة مرة أخر فتكون X = 9 ويزيد مرة أخري بمقدار واحد فتصبح 10 وتكون Y = -15 و فيذهب إلي إلي بداية التكرارة مرة أخر فتكون X = 13 فينتهي جملة For …. Next وعلي ذلك تكون أخر قيمىة لـ x = 13 ، y = -15 |
اقتباس:
|
اقتباس:
بعد تتبع هذا الكود سوف تكون الاجابة كالتالي : X=16 y=-1 |
اقتباس:
اما x فلا وما هو التتبع نشكر لكم مساهمنكم بالحل بارك الله لكم |
الأستاذ الفاضل / سيف
رأى أن x=0 y=-1 و أنتظر رد سيادتكم و لكم خالص الشكر |
اقتباس:
نشكركم للحل فعلا Y ستكون -1 ابدا اما x ستتراوح ما بين 0 و ..................... ويبقى السؤال ما ناتج البرنامج مع التتبع جزاكم الله كل خير |
الأستاذ الفاضل / سيف
شكراً جزيلاً لحضرتك و لكن هل حضرتك تطرح سؤال آخر ما ناتج البرنامج مع التتبع |
اقتباس:
اقتباس:
بارك الله لكم هو دا السؤال الاصلي |
الأستاذ الفاضل / سيف
حضرتك رأى x=4 y=-1 ثم x=0 y=-1 و ستظل هكذا x=0 y=-1 إلى ما لا نهاية أنتظر رد سيادتكم و لكم جزيل الشكر |
جميع الأوقات بتوقيت GMT +2. الساعة الآن 01:12 PM. |
Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.