![]() |
هااااام الي الأستاذ احمد قرني والأستاذ سيف سالم
الرجاء الإجابة علي هذه الإسئلة مع الشرح
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 ) الكود الثاني K = 1 For I = 1 to 5 K = K*2 Next I = ………… ( 6 - 5 - 1 ) K = ………… ( 1 - 16 - 32 ) الرجاء الإجابة للأهمية |
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 ) الكود الثاني K = 1 For I = 1 to 5 K = K*2 Next I = ………… ( 6 - 5 - 1 ) K = ………… ( 1 - 16 - 32 ) |
اقتباس:
جزاكم الله كل خير |
[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 ) الكود الثاني K = 1 For I = 1 to 5 K = K*2 Next I = ………… ( 6 - 5 - 1 ) K = ………… ( 1 - 16 - 32 ) |
معليش فين الشرح ليهم
|
ممكن بس انا عايز ارفع او اشارك بكلمات جميلة ممكن
|
ممكن حضرتك تكتبهم بالشكل ده فى نافذة الكود وحيطلعلك النتيجة دى:
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 ) الكود الثاني K = 1 For I = 1 to 5 K = K*2 Next MsgBox(K) تكون قيمة I , K هى : I = ………… ( 6 - 5 - 1 ) K = ………… ( 1 - 16 - 32 ) |
رد
2 مرفق
اقتباس:
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") عاطف مهدى حسان - ميت موسى |
مشكور و بارك الله فيك
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 ) الكود الثاني K = 1 For I = 1 to 5 K = K*2 Next MsgBox(K) تكون قيمة I , K هى : I = ………… ( 6 - 5 - 1 ) K = ………… ( 1 - 16 - 32 ) __________________ |
جميع الأوقات بتوقيت GMT +2. الساعة الآن 03:18 PM. |
Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.