مشاهدة النسخة كاملة : ارجو شرح هذا الكود ونتائجه


ha01514
14-04-2015, 02:31 PM
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


بعد تنفيذ هذه التعليمات اكمل مكان النقط :

قيمة المتغير c = ................................
2- قيمة المتغير n = .............................
3- ناتج الشرط n>c = .............................

Mr.Ramadan Shoman
14-04-2015, 05:27 PM
بسم الله الرحمن الرحيم

C = 7
N = 7
True

الشرح
قيمة ( N ) بعد ( Next ) =
= 4+ 3 = 7
حيث 3 هي قيمة (Step )
و 4 هي قيمة (N ) قبل (Next )
إذن يكون الشرط (if n > c )
True
وتصبح
C = C + 1
= 6 + 1 = 7

هاشم-2000
15-04-2015, 05:10 PM
هل قيمة n الجديده هى 7 فى الشرط علشان n بعد next ام قيمة n هى اخر قيمه لها داخل for next

هاشم-2000
15-04-2015, 05:11 PM
ارجو التوضيح ؟

Mr.Ramadan Shoman
15-04-2015, 06:05 PM
هل قيمة n الجديده هى 7 فى الشرط علشان n بعد nex


نعم
والتوضيح


قيمة N قبل Next تساوي 4
حيث جملة For
for n = 1 to 6 step 3

1 ....... 4

قيمة N بعد Next تساوي 7 ولذلك تحقق الشرط
if n > c
وأصبحت قيمة C تساوي 7


الخلاصة أن قيمة N بعد Next تساوي قيمة N قبل Next + قيمة Step في أي مسألة وفي هذه الحالة قيمة Step تساوي 3

ha01514
16-04-2015, 06:47 AM
جزاك الله خيرا
يا اسلام

Abdo14121972
17-04-2015, 09:47 AM
الله يفتح عليكم

Mr.Ramadan Shoman
17-04-2015, 02:45 PM
الله يفتح عليكم
بارك الله فيكم وجزاكم الله خيرا

monernadia
17-04-2015, 06:01 PM
Dim n, k, c As Integer
c = 6
For n = 1 To 6 Step 3
k = k + n
MsgBox("داخل التكرار n=" & n)
MsgBox("داخل التكرار k=" & k)
Next
If n > c Then
c = c + 1
MsgBox(" بعد التكرار n = " & n)

MsgBox(" بعد التكرار c = " & c)
MsgBox("بعد التكرار k = " & k)
End If

تامر سيد احمد محمد
18-04-2015, 11:34 AM
الله يفتح عليكم