السلام عليكم ورحمة الله وبركاتة
كيف اعرف عدد مرات التكرار في جملة for ...next
مثال عدد مرات التكرار في الامر الاتي for n =1 to 6 step 2 ....next
مثال عدد مرات التكرار في الامر الاتي for n = 1 to 10 step 2
مثال عدد مرات التكرار في الامر الاتي for n=1 to 10 step 4

وارجوا الشرح للمثال والاجابة علية
وتحياتي للجميع

شوف بداية العداد والنهاية بتاعته ومقدار الخطوة واكتب القيم وبعد كدا عدد هذة القيم المطبوعه هو عدد مرات التكرار
مثال رقم 1) االقيم المطبوعه هى 1 و 3 و5 وعدد مرات التكرار هو عدد هذة القيم يعنى 3
مثال رقم 2) القيم المطبوعه 1و3و5و7و9 وعدد مرات التكرار 5
مثال رقم 3) القيم المطبوعه 1و5و9 وعدد مرات التكرار 3

السلام عليكم ورحمة الله وبركاتة
كيف اعرف عدد مرات التكرار في جملة for ...next
مثال عدد مرات التكرار في الامر الاتي for n =1 to 6 step 2 ....next
مثال عدد مرات التكرار في الامر الاتي for n = 1 to 10 step 2
مثال عدد مرات التكرار في الامر الاتي for n=1 to 10 step 4

وارجوا الشرح للمثال والاجابة علية
وتحياتي للجميع

:rolleyes:

السلام عليكم ورحمة الله وبركاتة
كيف اعرف عدد مرات التكرار في جملة for ...next
مثال عدد مرات التكرار في الامر الاتي for n =1 to 6 step 2 ....next
مثال عدد مرات التكرار في الامر الاتي for n = 1 to 10 step 2
مثال عدد مرات التكرار في الامر الاتي for n=1 to 10 step 4

وارجوا الشرح للمثال والاجابة علية
وتحياتي للجميع

( أخر قيمة - اول قيمة ) / مقدار الزيادة + 1

مع تجنب الكسور

مثال 1 ( 6 - 1 ) / 2 + 1 =3.5 ---- 3 مرات تكرار
مثال 2 (10 - 1 ) / 2 + 1 = 5.5 ------ 5 مرات تكرار
مثال 3 ( 10 - 1 ) / 4 + 1 = 3.5 ---- 3 مرات تكرار

عدد مرات التكرار = (القيمة النهائية - القيمة الابتدائية) + 1
مقدار الزيادة

السلام عليكم ورحمة الله وبركاتة
كيف اعرف عدد مرات التكرار في جملة for ...next
مثال عدد مرات التكرار في الامر الاتي for n =1 to 6 step 2 ....next
مثال عدد مرات التكرار في الامر الاتي for n = 1 to 10 step 2
مثال عدد مرات التكرار في الامر الاتي for n=1 to 10 step 4

وارجوا الشرح للمثال والاجابة علية
وتحياتي للجميع
==============================================
مثال عدد مرات التكرار في الامر الاتي 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
===============================
و هكذا مع المثال الثالث
عاطف مهدى حسان - معلم أول (أ) كمبيوتر
===============================

جزاكم الله خيرا مستر زياد
شرحك وافٍ

شكرا شباب شرح وافي وبالتوفيق ان شاء الله

ما الذى سيتم عرضه فى أداة العنوان Label1 بعد تنفيذ الكود
dim a As integer
a = 3.7
label1.text = a

ما الذى سيتم عرضه فى أداة العنوان Label1 بعد تنفيذ الكود
dim a As integer
a = 3.7
label1.text = a
==========================
سيتم عرض العدد 4
حيث أن نوع المتغير a عددى صحيح Integer
و اذا تم تخزين القيمة العددية العشرية يتم تقريب اول عدد يمين العلامة العشرية
فإن كان العدد اكبر من 5 يتم زيادة الاعداد فى خانة الآحاد بمقدار واحد صحيح
و إن كان العدد ليس اكبر من 5 لا يتم زيادة الاعداد فى خانة الآحاد و تبقى كما هى
==========================
عاطف مهدى حسان

شكرا أستاذ زياد
للعلم عند تطبي الكود على الفجول كانت النتيجة 4 و لكن فى كتاب الفائز النتيجة 3 لأنه يتجاهل الكسر فى الأنواع الصحيحة و عندما كلمت موجه قال أن الكتاب صح و أننى عندى مشكلة فى الفجول و لكن تأكدت أنى صح
بالمناسبة أنا أرسلت كود فى موضوع إستفسارات الأعضاء و جربته على الفجول و أعطانى الناتج و أريد أن أتأكد من الناتج و ذلك لأن الناتج سيتحدد علية العديد من الأسئلة
بالمناسبة أن أعلم علم اليقين أن الناتج داخل التكرار يختلف عن الناتج خارج التكرار

حضرتك الاجابة هتبقي 4
لان القانون بيقول عدد مرات التكرار= القيمة النهائية للتكرار - الابتدائية /مقدار الزياة + 1
فالقيمة النهائية للتكرار هي 7 فيكون عدد مرات التكرار كالاتي:
7-1/2+1=4

فى الكود التالى
Dim A As integer
For A = 1 To 3 Step 0
Label1.text = A
Next
Label2.Text = A

ما القيمة المعروضه فى أداة العنوان Label1 و أداة العنوان Label2 و كم عدد مرات التكرار

فى الكود التالى
Dim A As integer
For A = 1 To 3 Step 0
Label1.text = A
Next
Label2.Text = A

ما القيمة المعروضه فى أداة العنوان Label1 و أداة العنوان Label2 و كم عدد مرات التكرار

=======================================
فى جملة For Next إذا كانت قيمة البداية للعداد أصغر من قيمة النهاية و كانت قيمة الزيادة التى بعد Step موجبة يتم التكرار طالما أن قيمة العداد أقل من أو تساوى قيمة النهاية ، و يتوقف التكرار إذا أصبحت قيمة العداد أكبر من قيمة النهاية
و فى هذه الحالة السابقة إذا فرضنا أن قيمة الزيادة (0) سيدخل البرنامج فى حلقة تكرارية لا نهائية مصطحبا معه قيمة البداية للعداد
و فى هذا المثال سيدخل البرنامج الحلقة و قيمة العداد1 فيتم طباعة قيمة العداد 1 على الاداة Label1 لمالا نهاية و لن يتم الخروج من الحلقة لذا لن يذهب البرنامج مطلقا للأمر Label2.Text = A و قد يتوقف البرنامج عن الاستجابة
================================================== =
فى جملة For Next إذا كانت قيمة البداية للعداد أكبر من قيمة النهاية و كانت قيمة الزيادة التى بعد Step سالبة يتم التكرار طالما أن قيمة العداد أكبر من أو تساوى قيمة النهاية ، و يتوقف التكرار إذا أصبحت قيمة العداد أصغر من قيمة النهاية
و فى هذه الحالة السابقة إذا فرضنا أن قيمة الزيادة (0) لن يتم التكرار مطلقاً و سيذهب البرنامج لتنفيذ الأمرLabel2.Text = A و هو مصطحب معه قيمة البداية للعداد 1
=================================
عاطف مهدى حسان - معلم أول (أ) كمبيوتر

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

Dim A As integer
For A = 1 To 3 Step 0
Label1.text = A
Next
Label2.Text = A

ما القيمة المعروضه فى أداة العنوان Label1 و أداة العنوان Label2 و كم عدد مرات التكرار
أولا عدد مرات التكرار سيكون عدد لا نهائى من المرات و لكن ستكون النتيجة فى كل مرة تكرار هى نفس النتيجة و هى الرقم واحد لذلك سيكون عدد مرات التكرار (1) و ذلك حسب القانون
عدد مرات التكرار = ((النهاية - البداية)/الزيادة )+1
= ((3 - 1 ) / 0 ) + 1
= ( 2 / 0 ) + 1 = ليس لها معنى + 1 = 1
ثانيا فى الأداة Label2 لن يتم عرض أى شىء و ذلك لأن الأمر Label2 جاء بعد نهاية التكرار و هذا التكرار غير متوقف لذلك لن يخرج من الحلقة و لن يتم تنفيذ الكود الذى يلى Next
ثالثا و هو ما يحيرنى أن الأداة Label1 يجب أن يكون بها القيمة 1 و لكن عند التنفيذ عملى لم تكن النتيجة كذلك و لكنها ظلت Label1
السؤال الثانى فى الكود التالى

Dim A As integer
For A = 1 To 3 Step -1
Label1.text = A
Next
Label2.Text = A

ما القيمة المعروضه فى أداة العنوان Label1 و أداة العنوان Label2 و كم عدد مرات التكرار مع ذكر السبب فى كل إجابة

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

Dim A As integer
For A = 1 To 3 Step 0
Label1.text = A
Next
Label2.Text = A

ما القيمة المعروضه فى أداة العنوان Label1 و أداة العنوان Label2 و كم عدد مرات التكرار
أولا عدد مرات التكرار سيكون عدد لا نهائى من المرات و لكن ستكون النتيجة فى كل مرة تكرار هى نفس النتيجة و هى الرقم واحد لذلك سيكون عدد مرات التكرار (1) و ذلك حسب القانون
عدد مرات التكرار = ((النهاية - البداية)/الزيادة )+1
= ((3 - 1 ) / 0 ) + 1
= ( 2 / 0 ) + 1 = ليس لها معنى + 1 = 1
ثانيا فى الأداة Label2 لن يتم عرض أى شىء و ذلك لأن الأمر Label2 جاء بعد نهاية التكرار و هذا التكرار غير متوقف لذلك لن يخرج من الحلقة و لن يتم تنفيذ الكود الذى يلى Next
ثالثا و هو ما يحيرنى أن الأداة Label1 يجب أن يكون بها القيمة 1 و لكن عند التنفيذ عملى لم تكن النتيجة كذلك و لكنها ظلت Label1
السؤال الثانى فى الكود التالى

Dim A As integer
For A = 1 To 3 Step -1
Label1.text = A
Next
Label2.Text = A

ما القيمة المعروضه فى أداة العنوان Label1 و أداة العنوان Label2 و كم عدد مرات التكرار مع ذكر السبب فى كل إجابة


==================================

أولا عدد مرات التكرار سيكون عدد لا نهائى من المرات و لكن ستكون النتيجة فى كل مرة تكرار هى نفس النتيجة و هى الرقم واحد لذلك سيكون عدد مرات التكرار (1) و ذلك حسب القانون
عدد مرات التكرار = ((النهاية - البداية)/الزيادة )+1
= ((3 - 1 ) / 0 ) + 1
= ( 2 / 0 ) + 1 = ليس لها معنى + 1 = 1
===========================
عاطف مهدى (أبو زياد) :
أولا شكرا جزيلا و تقديرى لحضرتك على كلمات الإطراء - و أتمنى ان اكون عند حسن ظنك بى:
================
لو أردت الكلام من خلال القانون فالمقصود بليس لها معنى هى مالا نهاية Infinity
و حسب القانون الذى كتبته = ليس لها معنى + 1=1 هذا الكلام مضمونه أن ما تقصده أنت أن ليس لها معنى قيمة محددة تساوى الصفر و هذا ليس حقيقى فمعنى = ليس لها معنى ( مالانهاية + 1 = مالا نهاية ///////////
=================================

ثانيا فى الأداة Label2 لن يتم عرض أى شىء و ذلك لأن الأمر Label2 جاء بعد نهاية التكرار و هذا التكرار غير متوقف لذلك لن يخرج من الحلقة و لن يتم تنفيذ الكود الذى يلى Next
عاطف مهدى (أبو زياد) :
ثانياً "-
================
لقد كتبت هذه الجملة حتى نتأكد أن البرنامج لن يخرج من الحلقة التكرارية و بالتالى لن تتغير قيمة خاصية الـ Text للأداة Label2 حيث أن البرنامج لن يخرج من الحلقة و يستمر بعرض قيمة العداد ( قيمة البدابة ) [1] بعد كل تكرار لمالا نهاية
و قد لا يعرض البرنامج ما هو متوقع للوصول لحلقة تكرارية ليس فيها بعض التوقف كما فى حالة تم العرض على MsgBox حيث انه بعد كل تكرار يتوقف ليعرض القيمة فى صندوق الرسالة فنضغط Ok ليذهب للتكرار التالى و هكذل مالا نهاية [MsgBox(A) ] و للتخلص من الحلقة التكرارية لا يكون ذلك إلا بعمل Stop Debugging
======================================
ثالثا و هو ما يحيرنى أن الأداة Label1 يجب أن يكون بها القيمة 1 و لكن عند التنفيذ عملى لم تكن النتيجة كذلك و لكنها ظلت Label1
السؤال الثانى فى الكود التالى

Dim A As integer
For A = 1 To 3 Step -1
Label1.text = A
Next
Label2.Text = A

ما القيمة المعروضه فى أداة العنوان Label1 و أداة العنوان Label2 و كم عدد مرات التكرار مع ذكر السبب فى كل إجابة
ثالثاً :-
================
إذا كانت قيمة العداد متزايدة يجب أن تكون قيمة الزيادة موجبة حتى يتم التكرار
لذا لن يتم التكرار
و طالما ذهب البرنامج لكلمة For سيتم تخزين قيمة البداية فى العداد سواء تحقق شرط التكرار أو لا
لذلك سيأخذ المتغير العداد A قيمة البداية [1] و لن يتم التكرار و يذهب للأوامر التى تلى Next إن وجدت فينفذ الجملة Label2.Text =A
فيتم عرض آخر قيمة أسندت للمتغير العداد A و هى [1]

عاطف مهدى (أبو زياد) - ميت موسى - شبين الكوم

================================================== =====

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



Dim A As integer
For A = 1 To 3 Step 0
Label1.text = A
Next
Label2.Text = A

ما القيمة المعروضه فى أداة العنوان Label1 و أداة العنوان Label2 و كم عدد مرات التكرار
أولا عدد مرات التكرار سيكون عدد لا نهائى من المرات و لكن ستكون النتيجة فى كل مرة تكرار هى نفس النتيجة و هى الرقم واحد لذلك سيكون عدد مرات التكرار (1) و ذلك حسب القانون
عدد مرات التكرار = ((النهاية - البداية)/الزيادة )+1
= ((3 - 1 ) / 0 ) + 1
= ( 2 / 0 ) + 1 = ليس لها معنى + 1 = 1
ثانيا فى الأداة Label2 لن يتم عرض أى شىء و ذلك لأن الأمر Label2 جاء بعد نهاية التكرار و هذا التكرار غير متوقف لذلك لن يخرج من الحلقة و لن يتم تنفيذ الكود الذى يلى Next
ثالثا و هو ما يحيرنى أن الأداة Label1 يجب أن يكون بها القيمة 1 و لكن عند التنفيذ عملى لم تكن النتيجة كذلك و لكنها ظلت Label1
السؤال الثانى فى الكود التالى

Dim A As integer
For A = 1 To 3 Step -1
Label1.text = A
Next
Label2.Text = A

ما القيمة المعروضه فى أداة العنوان Label1 و أداة العنوان Label2 و كم عدد مرات التكرار مع ذكر السبب فى كل إجابة
======================================

Dim A As integer
For A = 1 To 3 Step 0
Label1.text = A
Next
Label2.Text = A

ما القيمة المعروضه فى أداة العنوان Label1 و أداة العنوان Label2 و كم عدد مرات التكرار
أولا عدد مرات التكرار سيكون عدد لا نهائى من المرات و لكن ستكون النتيجة فى كل مرة تكرار هى نفس النتيجة و هى الرقم واحد لذلك سيكون عدد مرات التكرار (1) و ذلك حسب القانون
عدد مرات التكرار = ((النهاية - البداية)/الزيادة )+1
= ((3 - 1 ) / 0 ) + 1
= ( 2 / 0 ) + 1 = ليس لها معنى + 1 = 1
====================================
أولاً :-
كل الشكر و التقدير على كلامك الجميل و أتمنى ان أكون عند حسن ظنك
ثانياً :-
التعليق :-
عاطف مهدى حسان ( معلم اول (أ) كمبيوتر


إذا كانت قيمة العداد متزايدة [ قيمة النهاية أكبر من قيمة البداية يجب أن تكون قيمة الزيادة موجبة حتى يتم التكرار ] أما إذا كانت قيمة الزيادة صفر فسوف يتم التكرار إلى مالانهاية و لن يتم الخروج من الحلقة التكرارية
و للعلم انه إذا تم التكرار ام لم يتم فإن العداد سيخزن به قيمة البداية و هى [1]
أول تكرار يكون قيمة العداد 1 و سينفذ الجملة Label1.text = A فيظهر قيمة العداد A [1] على الأداة Label1 و يذهب البرنامج لـ Next فيتم زيادة قيمة العداد بمقدار الزيادة التى بعد Step و هى صفر فتظل قيمة العداد A ب 1 و يتم التكرار الثانى و هكذا لمالا نهاية و لن يتم الخروج من الحلقة التكرارية و لن يتوقف التكرار الا بعد عمل Stop Debugging
و لن يعرض البرنامج القيمة [1] بالشكل المتوقع حيث يتم التنفيذ فى جزء من مليون جزء من الثانية و لن نلاحظ القيمة - لذا كان يفضل العرض من خلال صندوق رسالة MsgBox حيث يتوقف البرنامج معه و لا يواصل التكرار التالى إلا بعد الخروج من المربع و لذا ننصح بالكود التالى

Dim A As integer
For A = 1 To 3 Step 0
MsgBox(" While Looping" & A)
Next
MsgBox(" After Looping" & A)
=====================================
و بالنسبة لعدد مرات التكرار فهناك مآخذ عليه
حيث أنك ذكرت أنه يتم حساب عدد مرات التكرار كالتالى
عدد مرات التكرار = ((النهاية - البداية)/الزيادة )+1
= ((3 - 1 ) / 0 ) + 1
= ( 2 / 0 ) + 1 = ليس لها معنى + 1 = 1
ففى السطر الآخير ليس لها معنى المقصود بها ما لانهاية و ما لانهاية +1 = ما لانهاية أى الحلقة لا نهائية و المفهوك من السطر الأخير من كلامك أن ليس لها معنى تكافىء الصفر و هذا غير حقيقى
================================================== ==

عدد مرات التكرار = ( قيمة النهاية - البداية ) / قيمة الزيادة + 1
ولو وجدت كسور عشرية فى الناتج يتم تجاهلها وأخذ العدد الصحيح فقط

كتبت رد ثم رد آخر و لا اعلم أين يذهب
هل هناك فى الموقع من يحجبون بعض الردود
و ما هو مصير ه1ا الرد
هل سيكون كأن لم يكن و يذهب هباء
انا أكتب ما أريد من الجميع أن يعرفه من قصور فى هذا الموقع
و لا اعلم ماذا يفعل القائمين عليه
عاطف مهدى حسان ( أبو زياد)

( أخر قيمة - اول قيمة ) / مقدار الزيادة + 1

مع تجنب الكسور

مثال 1 ( 6 - 1 ) / 2 + 1 =3.5 ---- 3 مرات تكرار
مثال 2 (10 - 1 ) / 2 + 1 = 5.5 ------ 5 مرات تكرار
مثال 3 ( 10 - 1 ) / 4 + 1 = 3.5 ---- 3 مرات تكرار