أحمد هاشم الزيدي
23-03-2012, 04:19 PM
الرجاء الإجابة علي هذه الإسئلة مع الشرح
Sum = 0
X = 0
Do While X<5
Sum = Sum + X
X = X + 1
Loop
Average = Sum / X
بعد تنفيذ التعليمات السابقة تكون :
أ- قيمة X تساوى ...... ( 4 - 5 - 0 )
ب- قيمة Average تساوى ...... ( 3 - 2.5 - 2 )
الكود الثاني
4- بعد نهاية تنفيذ الكود التالى :
K = 1
For I = 1 to 5
K = K*2
Next
تكون قيمة I , K هى :
I = ………… ( 6 - 5 - 1 )
K = ………… ( 1 - 16 - 32 )
الرجاء الإجابة للأهمية
الأستاذة / أم أمل
23-03-2012, 04:49 PM
Sum = 0
X = 0
Do While X<5
Sum = Sum + X
X = X + 1
Loop
Average = Sum / X
بعد تنفيذ التعليمات السابقة تكون :
أ- قيمة X تساوى ...... ( 4 - 5 - 0 )
ب- قيمة Average تساوى ...... ( 3 - 2.5 - 2 )
الكود الثاني
4- بعد نهاية تنفيذ الكود التالى :
K = 1
For I = 1 to 5
K = K*2
Next
تكون قيمة I , K هى :
I = ………… ( 6 - 5 - 1 )
K = ………… ( 1 - 16 - 32 )
سيف سالم
24-03-2012, 01:18 AM
الرجاء الإجابة علي هذه الإسئلة مع الشرح
sum = 0
x = 0
do while x<5
sum = sum + x
x = x + 1
loop
average = sum / x
بعد تنفيذ التعليمات السابقة تكون :
أ-قيمة x تساوى ...... ( 4 - 5 - 0 )
ب-قيمة average تساوى ...... ( 3 - 2.5 - 2 )
الكود الثاني
4- بعد نهاية تنفيذ الكود التالى :
k = 1
for i = 1 to 5
k = k*2
next
تكون قيمة i , k هى :
i = ………… ( 6 - 5 - 1 )
k = ………… ( 1 - 16 - 32 )
الرجاء الإجابة للأهمية
جزاكم الله كل خير
أحـمد قرنى
24-03-2012, 01:27 AM
[QUOTE=mido_elzedy;4382680]الرجاء الإجابة علي هذه الإسئلة مع الشرح
Sum = 0
X = 0
Do While X<5
Sum = Sum + X
X = X + 1
Loop
Average = Sum / X
بعد تنفيذ التعليمات السابقة تكون :
أ-قيمة X تساوى ...... ( 4 - 5 - 0 )
ب-قيمة Average تساوى ...... ( 3 - 2.5 - 2 )
الكود الثاني
4- بعد نهاية تنفيذ الكود التالى :
K = 1
For I = 1 to 5
K = K*2
Next
تكون قيمة I , K هى :
I = ………… ( 6 - 5 - 1 )
K = ………… ( 1 - 16 - 32 )
mahgooz
18-03-2013, 09:43 PM
ممكن بس انا عايز ارفع او اشارك بكلمات جميلة ممكن
hassanalhawy
18-03-2013, 10:20 PM
ممكن حضرتك تكتبهم بالشكل ده فى نافذة الكود وحيطلعلك النتيجة دى:
Sum = 0
X = 0
Do While X<5
Sum = Sum + X
X = X + 1
Loop
Average = Sum / X
MsgBox(X)
MsgBox(Average)
بعد تنفيذ التعليمات السابقة تكون :
أ-قيمة X تساوى ...... ( 4 - 5 - 0 )
ب-قيمة Average تساوى ...... ( 3 - 2.5 - 2 )
الكود الثاني
4- بعد نهاية تنفيذ الكود التالى :
K = 1
For I = 1 to 5
K = K*2
Next
MsgBox(I)
MsgBox(K)
تكون قيمة I , K هى :
I = ………… ( 6 - 5 - 1 )
K = ………… ( 1 - 16 - 32 )
زياد_عاطف
20-03-2013, 01:18 AM
Sum = 0
X = 0
Do While X<5
Sum = Sum + X
X = X + 1
Loop
Average = Sum / X
بعد تنفيذ التعليمات السابقة تكون :
أ- قيمة X تساوى ...... ( 4 - 5 - 0 )
ب- قيمة Average تساوى ...... ( 3 - 2.5 - 2 )
الكود الثاني
4- بعد نهاية تنفيذ الكود التالى :
K = 1
For I = 1 to 5
K = K*2
Next
تكون قيمة I , K هى :
I = ………… ( 6 - 5 - 1 )
K = ………… ( 1 - 16 - 32 )
===============================================
Dim sum, x, average As Single
sum = 0
x = 0
Do While x < 5
sum = sum + x
x = x + 1
Loop
average = sum / x
MsgBox(" After Loop " & vbCrLf & " X =" & _
" " & x & vbCrLf & " Sum = " & " " & sum _
& vbCrLf & " Average = " & " " & average, , "Atef Mahdy")
================================================== ======
Dim i, k As Byte
K = 1
For I = 1 To 5
K = K * 2
Next
REM تكون قيمة I , K هى : I = ………… ( 6 - 5 - 1 ) K = ………… ( 1 - 16 - 32 )
MsgBox(" After Reapting " & vbCrLf & " I =" & _
" " & i & vbCrLf & " K = " & " " & k , "Atef Mahdy")
=================================
عاطف مهدى حسان - ميت موسى
usama_usama2005
20-03-2013, 09:40 AM
مشكور و بارك الله فيك
Sum = 0
X = 0
Do While X<5
Sum = Sum + X
X = X + 1
Loop
Average = Sum / X
MsgBox(X)
MsgBox(Average)
بعد تنفيذ التعليمات السابقة تكون :
أ-قيمة X تساوى ...... ( 4 - 5 - 0 )
ب-قيمة Average تساوى ...... ( 3 - 2.5 - 2 )
الكود الثاني
4- بعد نهاية تنفيذ الكود التالى :
K = 1
For I = 1 to 5
K = K*2
Next
MsgBox(I)
MsgBox(K)
تكون قيمة I , K هى :
I = ………… ( 6 - 5 - 1 )
K = ………… ( 1 - 16 - 32 ) __________________