![]() |
سؤال مهم جدا لأن امتحاني يوم الخميس
ممكن حد يعرفني ازاي أحل المسائل دية . Dim N, K , C As Integer C = 10 For N = 1 To 10 Step 5 K = K + N Next IF N >= C Then C = C + 1 End If |
امال فين مرسنا العظام "أحمد القرني " و "Abo batta"
|
اولا لابد من عمل جدول لتتبع القيم الموجودة فى العداد وهى :
N = 1 ,6,11 ويتم تكرار المعادلة بعدد مرات التكرار ( 2 ) لان 11 خارج التكرار K = 0+1 =1 ملاحظه انه تم اعطاء K قيمه صفر لانه لم يذكر قيمه لها K = 1+6=7 وفى النهاية يتم سؤال هلN >= C ليكون الناتج TRUE وبالتالى يتم تنفيذ الاوامر التى تلى then لتصبح قيمة c 10+1 =11 |
اقتباس:
فى البداية هنفذ الكود ده الاول For N = 1 To 10 Step 5 K = K + N Next قيمة n المرة الاولى للتكرار n = 1 ويتم تكرار االمر k = k + n بالتعويض عن قيمة k = 0 لانه لم يعطى قيمة لها وبالتعويض عن قيمة n = 1 ومنها تصبح قيمة k = 1 المرة الثانية للتكرار n = 6 ويتم تكرار الامر k = k + n مرة ثانية بالتعويض عن قيمة n = 6 وفيمة k = 1 ومنها تصبح قيمة k = 7 يتوقف التكرار عند قيمة n = 11 وينفذ ما بعد next واللى هو الكود ده IF N >= C Then C = C + 1 End If قيمة الشرط n > = c يعنى 10=< 11 تبقى true ننفذ ما بعد Then وهو الامر c = c +1 وبالتعويض عن قيمة c = 10 ومنها تصبح قيمة c = 11 |
اقتباس:
|
جميع الأوقات بتوقيت GMT +2. الساعة الآن 02:43 PM. |
Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.