|
#1
03-04-2016, 03:39 PM
|
|||
|
|||
سؤال في جملة for ... next ارجو الاجابة علية
السلام عليكم ورحمة الله وبركاتة كيف اعرف عدد مرات التكرار في جملة for ...next مثال عدد مرات التكرار في الامر الاتي for n =1 to 6 step 2 ....next مثال عدد مرات التكرار في الامر الاتي for n = 1 to 10 step 2 مثال عدد مرات التكرار في الامر الاتي for n=1 to 10 step 4 وارجوا الشرح للمثال والاجابة علية وتحياتي للجميع 
|
|
#2
03-04-2016, 07:06 PM
|
|||
|
|||
شوف بداية العداد والنهاية بتاعته ومقدار الخطوة واكتب القيم وبعد كدا عدد هذة القيم المطبوعه هو عدد مرات التكرار
مثال رقم 1) االقيم المطبوعه هى 1 و 3 و5 وعدد مرات التكرار هو عدد هذة القيم يعنى 3 مثال رقم 2) القيم المطبوعه 1و3و5و7و9 وعدد مرات التكرار 5 مثال رقم 3) القيم المطبوعه 1و5و9 وعدد مرات التكرار 3
|
|
#3
03-04-2016, 10:03 PM
|
|||
|
|||
|
اقتباس:
|
|
#4
03-04-2016, 10:09 PM
|
|||
|
|||
|
اقتباس:
مع تجنب الكسور مثال 1 ( 6 - 1 ) / 2 + 1 =3.5 ---- 3 مرات تكرار مثال 2 (10 - 1 ) / 2 + 1 = 5.5 ------ 5 مرات تكرار مثال 3 ( 10 - 1 ) / 4 + 1 = 3.5 ---- 3 مرات تكرار
|
|
#5
03-04-2016, 10:50 PM
|
|||
|
|||
|
عدد مرات التكرار = (القيمة النهائية - القيمة الابتدائية) + 1
مقدار الزيادة
|
|
#6
03-04-2016, 11:19 PM
|
||||
|
||||
|
اقتباس:
مثال عدد مرات التكرار في الامر الاتي for n =1 to 6 step 2 ....next عندما يذهب البرنامج لكلمة For أول مرة يتم تخزين قيمة البداية فى العداد فيكون حسب هذه الجملة قيمة العداد N=1 و حيث ان قيمة العداد أقل من قيمة النهاية و قيمة الزيادة موجبة فيكون شرط التكرار أن تكون قيمة العداد أكبر من أو تساوى قيمة النهاية 6 يتحقق الشرط فيتم التكرار [ الأول ] ====== ثم يتم الذهاب لكلمة Next فيتم زيادة قيمة العداد بقيمة الزيادة التى بعد Step N=N+2 -- أى أن N=1+2=3 ثم تتم اختبار شرط التكرار N<=6 أى 3 أقل من أو تساوى 6 يتحقق الشرط فيتم التكرار [ الثانى] ====== ثم يتم الذهاب لكلمة Next فيتم زيادة قيمة العداد بقيمة الزيادة التى بعد Step N=N+2 -- أى أن N=3+2=5 ثم تتم اختبار شرط التكرار N<=6 أى 5 أقل من أو تساوى 6 يتحقق الشرط فيتم التكرار [ الثالث ] ====== ثم يتم الذهاب لكلمة Next فيتم زيادة قيمة العداد بقيمة الزيادة التى بعد Step N=N+2 -- أى أن N=5+2=7 ثم تتم اختبار شرط التكرار N<=6 أى 7 أقل من أو تساوى 6 فلن يتحقق الشرط فلا يتم التكرار لذا تكون عدد مرات التكرار 3 و قيمة العداد بعد نهاية التكرار 7 ================================= مثال عدد مرات التكرار في الامر الاتي for n = 1 to 10 step 2 عندما يذهب البرنامج لكلمة For أول مرة يتم تخزين قيمة البداية فى العداد فيكون حسب هذه الجملة قيمة العداد N=1 و حيث ان قيمة العداد أقل من قيمة النهاية و قيمة الزيادة موجبة فيكون شرط التكرار أن تكون قيمة العداد أكبر من أو تساوى قيمة النهاية 10 يتحقق الشرط فيتم التكرار [ الأول ] ====== ثم يتم الذهاب لكلمة Next فيتم زيادة قيمة العداد بقيمة الزيادة التى بعد Step N=N+2 -- أى أن N=1+2=3 ثم تتم اختبار شرط التكرار N<=10 أى 3 أقل من أو تساوى 10 يتحقق الشرط فيتم التكرار [ الثانى] ====== ثم يتم الذهاب لكلمة Next فيتم زيادة قيمة العداد بقيمة الزيادة التى بعد Step N=N+2 -- أى أن N=3+2=5 ثم تتم اختبار شرط التكرار N<=10 أى 5 أقل من أو تساوى 10 يتحقق الشرط فيتم التكرار [ الثالث ] ====== ثم يتم الذهاب لكلمة Next فيتم زيادة قيمة العداد بقيمة الزيادة التى بعد Step N=N+2 -- أى أن N=5+2=7 ثم تتم اختبار شرط التكرار N<=10 أى 7 أقل من أو تساوى 10 يتحقق الشرط فيتم التكرار [ الرابع ] ====== ثم يتم الذهاب لكلمة Next فيتم زيادة قيمة العداد بقيمة الزيادة التى بعد Step N=N+2 -- أى أن N=7+2=9 ثم تتم اختبار شرط التكرار N<=10 أى 9 أقل من أو تساوى 10 يتحقق الشرط فيتم التكرار [ الخامس ] ====== ثم يتم الذهاب لكلمة Next فيتم زيادة قيمة العداد بقيمة الزيادة التى بعد Step N=N+2 -- أى أن N=9+2=11 ثم تتم اختبار شرط التكرار N<=10 أى 11أقل من أو تساوى 10 فلن يتحقق الشرط فلا يتم التكرار لذا تكون عدد مرات التكرار 5 و قيمة العداد بعد نهاية التكرار 11 =============================== و هكذا مع المثال الثالث عاطف مهدى حسان - معلم أول (أ) كمبيوتر
===============================
|
|
#7
04-04-2016, 12:35 PM
|
||||
|
||||
|
جزاكم الله خيرا مستر زياد
شرحك وافٍ
__________________
يارب ارفع عنَّا وعن مصر الفتن ما ظهر منها وما بطن واحفظ بلاد المسلمين من كل شر وسوء يا أرحم الراحمين  
|
|
#8
05-04-2016, 01:57 PM
|
|||
|
|||
|
شكرا شباب شرح وافي وبالتوفيق ان شاء الله
|
|
#9
06-04-2016, 10:54 AM
|
|||
|
|||
|
ما الذى سيتم عرضه فى أداة العنوان Label1 بعد تنفيذ الكود
dim a As integer a = 3.7 label1.text = a
|
|
#10
08-04-2016, 10:44 PM
|
||||
|
||||
|
اقتباس:
سيتم عرض العدد 4 حيث أن نوع المتغير a عددى صحيح Integer و اذا تم تخزين القيمة العددية العشرية يتم تقريب اول عدد يمين العلامة العشرية فإن كان العدد اكبر من 5 يتم زيادة الاعداد فى خانة الآحاد بمقدار واحد صحيح و إن كان العدد ليس اكبر من 5 لا يتم زيادة الاعداد فى خانة الآحاد و تبقى كما هى ========================== عاطف مهدى حسان
|
|
#11
10-04-2016, 10:23 AM
|
|||
|
|||
|
شكرا أستاذ زياد
للعلم عند تطبي الكود على الفجول كانت النتيجة 4 و لكن فى كتاب الفائز النتيجة 3 لأنه يتجاهل الكسر فى الأنواع الصحيحة و عندما كلمت موجه قال أن الكتاب صح و أننى عندى مشكلة فى الفجول و لكن تأكدت أنى صح بالمناسبة أنا أرسلت كود فى موضوع إستفسارات الأعضاء و جربته على الفجول و أعطانى الناتج و أريد أن أتأكد من الناتج و ذلك لأن الناتج سيتحدد علية العديد من الأسئلة بالمناسبة أن أعلم علم اليقين أن الناتج داخل التكرار يختلف عن الناتج خارج التكرار
|
|
#12
10-04-2016, 11:52 AM
|
|||
|
|||
|
حضرتك الاجابة هتبقي 4
لان القانون بيقول عدد مرات التكرار= القيمة النهائية للتكرار - الابتدائية /مقدار الزياة + 1 فالقيمة النهائية للتكرار هي 7 فيكون عدد مرات التكرار كالاتي: 7-1/2+1=4
|
|
#13
10-04-2016, 07:41 PM
|
|||
|
|||
|
فى الكود التالى
Dim A As integer ما القيمة المعروضه فى أداة العنوان Label1 و أداة العنوان Label2 و كم عدد مرات التكرارFor A = 1 To 3 Step 0 Label1.text = A Next Label2.Text = A
|
|
#14
10-04-2016, 10:01 PM
|
||||
|
||||
|
اقتباس:
فى جملة For Next إذا كانت قيمة البداية للعداد أصغر من قيمة النهاية و كانت قيمة الزيادة التى بعد Step موجبة يتم التكرار طالما أن قيمة العداد أقل من أو تساوى قيمة النهاية ، و يتوقف التكرار إذا أصبحت قيمة العداد أكبر من قيمة النهاية و فى هذه الحالة السابقة إذا فرضنا أن قيمة الزيادة (0) سيدخل البرنامج فى حلقة تكرارية لا نهائية مصطحبا معه قيمة البداية للعداد و فى هذا المثال سيدخل البرنامج الحلقة و قيمة العداد1 فيتم طباعة قيمة العداد 1 على الاداة Label1 لمالا نهاية و لن يتم الخروج من الحلقة لذا لن يذهب البرنامج مطلقا للأمر Label2.Text = A و قد يتوقف البرنامج عن الاستجابة ================================================== = فى جملة For Next إذا كانت قيمة البداية للعداد أكبر من قيمة النهاية و كانت قيمة الزيادة التى بعد Step سالبة يتم التكرار طالما أن قيمة العداد أكبر من أو تساوى قيمة النهاية ، و يتوقف التكرار إذا أصبحت قيمة العداد أصغر من قيمة النهاية و فى هذه الحالة السابقة إذا فرضنا أن قيمة الزيادة (0) لن يتم التكرار مطلقاً و سيذهب البرنامج لتنفيذ الأمرLabel2.Text = A و هو مصطحب معه قيمة البداية للعداد 1 ================================= عاطف مهدى حسان - معلم أول (أ) كمبيوتر
|
|
#15
14-04-2016, 10:41 AM
|
|||
|
|||
|
شكرا أستاذ زياد على التواصل و لك منى كل تقدير و إحترام حتى و إن إختلفنا فى الرأى
بالمناسبة أول دخولى للمنتدى سألت عدة أسئلة و ذلك لم يكن لأعرف الإجابة و لكن لكى أحدد مستوى تفكير الأعضاء و أعلم ما إذا كان هناك تفاعل حقيقى و من الذى يقوم بالتفاعل مع الأعضاء الجدد و للعلم مستواك عالى أستاذ زياد و لكن هنك نقطة كنت أريد مناقشتها معك فى الكود الذى قمت بكتابته و هو كالتالى Dim A As integer ما القيمة المعروضه فى أداة العنوان Label1 و أداة العنوان Label2 و كم عدد مرات التكرارFor A = 1 To 3 Step 0 Label1.text = A Next Label2.Text = A أولا عدد مرات التكرار سيكون عدد لا نهائى من المرات و لكن ستكون النتيجة فى كل مرة تكرار هى نفس النتيجة و هى الرقم واحد لذلك سيكون عدد مرات التكرار (1) و ذلك حسب القانون عدد مرات التكرار = ((النهاية - البداية)/الزيادة )+1 = ((3 - 1 ) / 0 ) + 1 = ( 2 / 0 ) + 1 = ليس لها معنى + 1 = 1 ثانيا فى الأداة Label2 لن يتم عرض أى شىء و ذلك لأن الأمر Label2 جاء بعد نهاية التكرار و هذا التكرار غير متوقف لذلك لن يخرج من الحلقة و لن يتم تنفيذ الكود الذى يلى Next ثالثا و هو ما يحيرنى أن الأداة Label1 يجب أن يكون بها القيمة 1 و لكن عند التنفيذ عملى لم تكن النتيجة كذلك و لكنها ظلت Label1 السؤال الثانى فى الكود التالى Dim A As integer ما القيمة المعروضه فى أداة العنوان Label1 و أداة العنوان Label2 و كم عدد مرات التكرار مع ذكر السبب فى كل إجابة
For A = 1 To 3 Step -1 Label1.text = A Next Label2.Text = A
|
 |
| العلامات المرجعية |
«
الموضوع السابق
|
الموضوع التالي
»
العرض العادي
|
|
جميع الأوقات بتوقيت GMT +2. الساعة الآن 05:02 PM.
Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
