شرح رائع الفصل الثالث أوامر التكرار الثالث الاعدادى تيرم ثانى حاسب آلى

أوامر التكرار: هي أوامرتتحكم في إعادة تنفيذ أمر معين أو مجموعة أوامر حتى يتحقق شرط معين بوقف التكرار.
الامر For ………. Next
يستخدم لتكرار أمر معين أو مجموعة أوامر عدد محدد من المرات.
ويستعمل هذا الأمر في حالة معرفة عدد مرات التكرار مسبقا
قاعدة الأمر For……………next
For counter = start to end (step increment)

statment1
statment2
statment3
tatement n
تحدد الكلمة for بداية التكرار والكلمة next نهاية التكرار
Counter : متغير رقمي يستخدم لحساب عدد مرات التكرار
Start : بداية التكرار وهى قيمة رقمية يتولى المبرمج تحديدها
End : نهاية التكرار وهى قيمة رقمية يتولى المبرمج تحديدها
Increment : مقدار الزيادة التي يزيدها القيمة المخزنة في العداد counter
شرح الأمر
1- يتم تخزين القيمة الرقمية start داخل المتغير counter
2- تتم مقارنة القيمة المخزنة في counter بالقيمة end
أ _ إذا كانت القيمة المخزنة في المتغير اقل أو تساوى من القيمة النهائية للتكرار يتم تنفيذ الأوامر المراد تكرارها بين (for , next )
ب - إذا كانت القيمة المخزنة فى المتغير أكبرا من القيمة النهائية للتكرار ينتهى التكرار و يتم تنفيذ الأوامر الموجودة بعد next
3- عندما يصل البرنامج إلى next : أ) فيتم زيادة القيمة المخزنة في العداد counter بمقدار قيمة increment وفى حالة عدم استعمال step فان قيمة العداد تزيد بمقدار واحد
ب)يعود البرنامج إلى بداية التكرار.

1. قم بتغيير قيمة العداد For … Next من 5 إلى 50 بزيادة 2 في كل مرة ؟
For x = 5 To 50 Step 2.
2. قم بتغيير العداد S من 10 إلى 2 بنقص 2 في كل مرة .
For S = 10 To 2 Step -2.
3. قم بتغيير العداد I بالترتيب الأتي (21,28,35,42,49) .
For I = 21 To 49 Step 7.
4. قم بطباعة الأعداد من 1 إلى 5 باستخدام for…………..next
Dim x as integer
For x= 1 to 5
Msgbox(x)
Next
5. قم بطباعة الأعداد الفردية من 1 إلى 5
Dim x as integer
For x = 1 to 5 step 2
Msgbox(x)
Next
6. قم بطباعة الأعداد الفردية من 5 إلى 1
Dim x as integer
For x = 5 to 1 step -2
Msgbox(x)
Next
لاحظ الفرق في جملة for في البرنامجين السابقين وماذا تستنتج

السؤال الأول ضع علامة () أمام العبارة الصحيحة و علامة (×) أمام العبارة الخطأ للعبارات الآتية:
1. الأمر For…..next غير معروف عدد التكرارات التي سوف تتم. ( )
2. الأمر For…..next فيه يتم تحديد القيمة التي يبدأ عندها عملية التكرار والقيمة التي ينتهي عنها التكرار وقيمة الخطوة. ( )
3. إليك ما يلي for i=2 to 10 step 2عدد مرات التكرار 5. ( )
السؤال الثاني أختر الإجابة الصحيحة مما يلي :
1- إليك ما يلي for i=1 to 6 step 2عدد مرات التكرار
أ- 3
ب- 4
ج- 6
السؤال الثالث أكمل العبارات الآتية:
1. إليك ما يلي for I = 4 to 10 step 2عدد مرات التكرار تساوي …………….….
2. عند عمل تكرار معلوم عدده نستخدم ...................
السؤال الرابع أعد ترتيب الخطوات الآتية ترتيبا صحيحا :
أ - لحساب مجموع الأعداد الفردية من 1 إلى 8
1. total = total + i
2. MessageBox.Show(total)
3. Next
4. For i = 1 To 8 Step 2
5. Dim i, total As Integer