اقتباس:
المشاركة الأصلية كتبت بواسطة new2011
ممكن الاجابة على هذا السؤال
Dim n,k,c As integer
c=6
for n = 1 to 6 step 3
k =k +n
next
if n >c then
c =c+1
end if
قيمة المتغير k فى حل اسئلة الوزارة 5 عايز اعرف ليه
|
عدد مرات التكرار هنا 2 ويتوقف التكرار في المرة الثالثة كالتالي :
N = 1
N = 1 + 3 = 4
N = 4 + 3 = 7
اذن آخر قيمة للمتغير N = 7
وطالما ان التكرار حدث مرتين اذن :
K = K +N
K = 0 + 1 = 1
K = 1 + 4 = 5
اذن آخر قيمة للمتغير K =5
عندما تصل N = 7 يتوقف التكرار وننتقل الى جملة IF ونرى ان قيمة التعبير الشرطي N>Cيساوي True وبالتالي يتم تنفيذ الأوامر التي تلي Then وهي :
C = C + 1
C = 6 + 1 = 7
الاجابات النهائية المطلوبة باللون الأخضر
__________________
يارب ارفع عنَّا وعن مصر الفتن ما ظهر منها وما بطن واحفظ بلاد المسلمين من كل شر وسوء يا أرحم الراحمين
|