السلام عليكم و رحمة الله و بركاته

ارجوا من اساتذه مادة الحاسب وضع شرح فيديو لكيفية حل مسألة For ....Next
ان الواضح ان فى مشاكل كتير فيها و نصف الاسئلة فيها

انا على حد فهمى فى ال For ... Next فهمت شيئان
1- ان عند وضع مثلاً
Dim x , D As integer
X = 4
For c = 0 To 7 Step 3
X = X*2
Next
MsgBox (x)
انه وضع الشرط For لتحديد عدد المرات التى سوف يتم فيا تكرار عملية ايجاد قيمة x
1- هنوجد عدد مرات التكرار هتكون {0 . 3 . 7} و السبعة موجده لانه فى مجال التكرار (0to 7)

2- نبدأ فى حساب قيمة x على اساس عدد مرات التكرار
1 - x = 4*2 : x= 8
2- x = 8 *2 : x = 16
3- x = 16 * 2 : x = 32
فى العمليات السابقة قمنا بالتعويض عن الناتج الذى يظهر كل مرة و عددة مرات التعويض ينتج من 32
هذا صحيح ام لا

شكرا جزيلا

انا بردوا عايزه اسئله عليها واحنا نحاااول نحلها

على حد علمى ان الشكل الصحيح للامر هو

k =1
for i = 1 to 5
k=k*2
print k
next i
end

والمتغيرات i ب 1 2 3 4 5
و k ب 2 4 8 16 32

وشرح الامر انك بتضرب قيم المتغير I فى قيم المتغير K

والناتج اللى يطلع تضربة فى 2 وهكذا لحد ما توصل للقيمة رقم 5


يعنى اول خطوة خالص

تضرب 1 فى 2 = 2

الناتج هنا ب 2
ترجع تانى تضربة فى 2
هتبقى 2 فى 2 =4
الناتج هنا ب 4
ترجع تانى تضربة فى 2
4فى 2 ب 8
وهكذا

انا على حد فهمى فى ال For ... Next فهمت شيئان
1- ان عند وضع مثلاً
Dim x , D As integer
X = 4
For c = 0 To 7 Step 3
X = X*2
Next
MsgBox (x)
انه وضع الشرط For لتحديد عدد المرات التى سوف يتم فيا تكرار عملية ايجاد قيمة x
1- هنوجد عدد مرات التكرار هتكون {0 . 3 . 7} و السبعة موجده لانه فى مجال التكرار (0to 7)

2- نبدأ فى حساب قيمة x على اساس عدد مرات التكرار
1 - x = 4*2 : x= 8
2- x = 8 *2 : x = 16
3- x = 16 * 2 : x = 32
فى العمليات السابقة قمنا بالتعويض عن الناتج الذى يظهر كل مرة و عددة مرات التعويض ينتج من 32

هذا صحيح ام لا


هذا الكلام مظبوط في قيمة X ولكن يوجد خطأ بسيط في قيمة العداد الذي يعد مرات التكرار وهو C حيث ان
C = 0 , 3 , 6 , 9
وبالطبع سيتوقف التكرار عن القيمة 9 لأنها ستصبح أكبر من قيمة End اللي هي 7 وبالتالي عدد مرات التكرار 3 عندما تكون C = 0 , 3 , 6
وبناء عليه تتكرر الجملة X = X * 2 ثلاث مرات حيث ان
X = 4 * 2 = 8
X = 8 * 2 = 16
X = 16 * 2 = 32