بوابة الثانوية العامة المصرية

بوابة الثانوية العامة المصرية (https://www.thanwya.com/vb/index.php)
-   أرشيف المنتدى (https://www.thanwya.com/vb/forumdisplay.php?f=513)
-   -   سؤال للتفكير فهل من مشارك (https://www.thanwya.com/vb/showthread.php?t=412368)

سيف سالم 19-03-2012 10:00 PM

اقتباس:

المشاركة الأصلية كتبت بواسطة nahla m (المشاركة 4376209)
الأستاذ الفاضل / سيف

حضرتك رأى

x=4
y=-1

ثم

x=0
y=-1

و ستظل هكذا

x=0
y=-1

إلى ما لا نهاية

أنتظر رد سيادتكم و لكم جزيل الشكر

شكرا لتفاعلكم
ولكن كيفية التتبع
وفعلا y ستكون -1 الى مالا نهاية
اما x ستتراوح بين الصفر و ..............

والسؤال ما زال قائم
ما ناتج البرنامج مع تتبع القيم

albhe 19-03-2012 10:41 PM

سيحدث خطأ في البرنامج
كيف اعطي قيمة ابتدائية للمتغير x=12 ثم ابدأ العداد بقيمة لx =ا ثم ينتهي العداد بقيمة للمتغير x ايضا
وياريت قبل ما نطرح هذه الاسئلة الجدلية نقوم بتجريبها عمليا علي البرنامج
ولكم الشكر

سيف سالم 19-03-2012 10:51 PM

اقتباس:

المشاركة الأصلية كتبت بواسطة albhe (المشاركة 4376326)
سيحدث خطأ في البرنامج
كيف اعطي قيمة ابتدائية للمتغير x=12 ثم ابدأ العداد بقيمة لx =ا ثم ينتهي العداد بقيمة للمتغير x ايضا
وياريت قبل ما نطرح هذه الاسئلة الجدلية نقوم بتجريبها عمليا علي البرنامج
ولكم الشكر

تم التجريب
والتتبع عمليا
ولم يحدث اي خطأ
وعليكم التـأكد بانفسكم بجهازكم
والسؤال ليس جدلي نهائي
ويبقى المشاركة من الاعضاء
وبعد المشاركة
يبقى التفسير وكيف يعمل vb


جزاكم الله كل خير

albhe 19-03-2012 11:22 PM

عند تتبع المتغيرات كانت النتيجة كالتالي وذلك بكتابة msgbox قبل next
x=4
y=-1

ثم

x=0
y=-1

و ستظل هكذا

x=0
y=-1

إلى ما لا نهاية
وعندما نكتب msgbox بعد next يعلق البرنامج
ولكم الشكر

سيف سالم 19-03-2012 11:27 PM

اقتباس:

المشاركة الأصلية كتبت بواسطة albhe (المشاركة 4376422)
عند تتبع المتغيرات كانت النتيجة كالتالي وذلك بكتابة msgbox قبل next
x=4
y=-1

ثم

x=0
y=-1

و ستظل هكذا

x=0
y=-1

إلى ما لا نهاية
وعندما نكتب msgbox بعد next يعلق البرنامج
ولكم الشكر

بارك الله لكم
علشان نعرف التتبع عمليا
اكتب البرنامج كدا
Dim x = 12, y As Short = 3
MsgBox(x)
MsgBox(y)
For x = 1 To x Step y
MsgBox(x)
MsgBox(y)
x = y + 1
y = y - x
MsgBox(x)
MsgBox(y)
Next
MsgBox(x)
دا عمليا
يبقى التفسير
كيف


albhe 19-03-2012 11:38 PM

قيمة x ستتراوح بين 0 و 3
ولكم الشكر

سيف سالم 19-03-2012 11:51 PM

اقتباس:

المشاركة الأصلية كتبت بواسطة albhe (المشاركة 4376460)
قيمة x ستتراوح بين 0 و 3
ولكم الشكر

بارك الله لكم
نحن نعلم بان سؤال تتبع
ان نقوم نحن بدور vb ونتوقع القيم
فما هو حل السؤال من غير الجهاز

السيد شعبان 20-03-2012 11:37 AM

اقتباس:

المشاركة الأصلية كتبت بواسطة سيف سالم (المشاركة 4375599)
للاسف لن يحدث هذا والاجابات ليست دقيقة

نشكر لكم المحاولة

وجزاكم الله كل خير


ياريت يا استاذ سيف تدخل البرنامج في افذة الكود وتأخذ المخرجات علي Listbox وتشوف النتائج حتكون سليمة ولا لأ

سيف سالم 20-03-2012 12:47 PM

1 مرفق
اقتباس:

المشاركة الأصلية كتبت بواسطة السيد شعبان (المشاركة 4376968)
ياريت يا استاذ سيف تدخل البرنامج في افذة الكود وتأخذ المخرجات علي Listbox وتشوف النتائج حتكون سليمة ولا لأ

دا جزء اولي من النتائج في listbox
http://www.thanwya.com/vb/attachment...1&d=1332240346

سيد بيكو 12-04-2012 11:19 AM

القيمة النهائية ل x = صفر
و القيمة النهائية ل y = سالب واحد

سيف سالم 12-04-2012 02:13 PM

اقتباس:

المشاركة الأصلية كتبت بواسطة سيد بيكو (المشاركة 4421301)
القيمة النهائية ل x = صفر
و القيمة النهائية ل y = سالب واحد

مشكور
ولكن ليس هناك قيمة نهائية ل X لام البرنامج سيستمر الى ما شاء الله
السؤال نشوف ازاي ودا بيتعارض مع طريقة عمل for الموجودة في الكتاب وكل الكتب الخارجية وطريقة شرح اغلب المدرسين

فهم 12-04-2012 10:15 PM

اقتباس:

المشاركة الأصلية كتبت بواسطة سيف سالم (المشاركة 4372893)
ما ناتج تنفيذ ها البرنامج مع تتبع القيم 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 = 0 إلى ما نهاية وقيمة Y = -1

سيف سالم 13-04-2012 10:00 AM

اقتباس:

المشاركة الأصلية كتبت بواسطة فهم (المشاركة 4422471)
ان شاء الله تكون آخر قيمة لـــ x = 0 إلى ما نهاية وقيمة Y = -1

ليس هناك قيمة نهائبة x ولكن ستبدل بين 0 و 3

السؤال كيف تحل هذة المسائل

النيناوى 13-04-2012 02:18 PM

اقتباس:

المشاركة الأصلية كتبت بواسطة سيف سالم (المشاركة 4372893)
ما ناتج تنفيذ ها البرنامج مع تتبع القيم 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

عدادا التكرار = 1.4.7.10.13
عدد مرات التكرار = 4
معنى ذلك ان جميع الاوامر التى تلى for سوف تكرر 4 مرات وهنا نجد ان الfor جاءت بالحالتين
وهما اولا اما المتغير غير متواجد بالعملية الحسابية مثل x=y=1
قيمة x هنا = 7
اما الحالة الثانية وهى دخول المتغير في االعملية الحسابية
y=y-xهنا قيمة
y= 5 واله اعلم

سيف سالم 13-04-2012 03:17 PM

اقتباس:

المشاركة الأصلية كتبت بواسطة النيناوى (المشاركة 4423601)
عدادا التكرار = 1.4.7.10.13
عدد مرات التكرار = 4
معنى ذلك ان جميع الاوامر التى تلى for سوف تكرر 4 مرات وهنا نجد ان الfor جاءت بالحالتين
وهما اولا اما المتغير غير متواجد بالعملية الحسابية مثل x=y=1
قيمة x هنا = 7
اما الحالة الثانية وهى دخول المتغير في االعملية الحسابية
y=y-xهنا قيمة
y= 5 واله اعلم

عدد مرات النكرار ما لانهاية
اما عدد مرات التكرار 4 ليس صحيح


جميع الأوقات بتوقيت GMT +2. الساعة الآن 05:35 PM.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.