انت تسأل وجميع الاساتذة تجيب

[راغب المصري]

المشاركة الأصلية كتبت بواسطة redrose37

برجاء سرعة إجابة هذا الشؤال:
السؤال السابع الفصل الثالث كتاب الوزارة صفحة 125
صف المخرجات الناتجة من تنفيذ مجموعة الاوامر الآتية

For I= 0 To 7
If ( i mod 2 = 0 ) then
MsgBox( i + 1 )
Elself ( i Mod 3+ 0) Then
MsgBox( i *i)
Elself (i Mod 5= 0) then
msgBox(2 *i - 1 )
Else
MsgBox(i)
Evd If
NEXT

اولا هنقول i بتساوي كام
i = 0.1.2.3.4.5.6.7
بعد كده هنقول هو امتى باقى قسمة i مع 2 = صفر
في حالة i = 2 . 4 . 6 بعد كده نقول
عند i =2 تظهر رسالة 3 وعند i = 4 تظهر رسالة 5 و عند i = 6 تظهر رسالة 7 ------------------------ i+1
بعد كده هنقول امتى باقى قسمة i مع 3 = صفر
في حالة i = 3 . 6 بعد كده نقول
عند i = 3 تظهر رسالة محتواها 9 وعند i = 6 تظهر رسالة محتواها 36 ------------------ i*i
بعد كده نقول امتى باقى قسمة i على 5 = صفر
في حالة i = 5 بعد كده نقول
عند i = 5 تظهر رسالة محتواها 9 -----------------1-2*5

[نهال18]

Dim Computer, English ,Total ,Aag As Integer
computer=40
English=20
If Comuter >30 Then
Total= Computer+ English
Avg= Total/2
Else
Computer=30
English=26
Total= Computer+ English
Avg= Total/2
End If

ضع علامة صح او خطأ

1- قيمة المتغير Computer تساوى 40 ( )
2- قيمة المتغير English تساوى 26 ( )
3- ناتج التعبيرComuter >30 يكون True ( )
4-قيمة المتغير Total تساوى 56 ( )
5-قيمة المتغير Avg تساوى 28 ( )

[أحـمد قرنى]

[quote=نهال18;3355204]

Dim Computer, English ,Total ,Aag As Integer

computer=40
English=20
If Comuter >30 Then
Total= Computer+ English
Avg= Total/2
Else
Computer=30
English=26
Total= Computer+ English
Avg= Total/2
End If

ضع علامة صح او خطأ

1- قيمة المتغير Computer تساوى 40 ( صــح )
وذلك لعدم وجود قيمة للمتغير computer بعد كلمة then فنأخذ القيمة الاصلية له وهى 40 .
2- قيمة المتغير English تساوى 26 ( خـطـأ)
3- ناتج التعبيرComuter >30 يكون True ( صــح)
4-قيمة المتغير Total تساوى 56 ( خطأ)
قيمة total = 40 + 20 = 60

5-قيمة المتغير Avg تساوى 28 ( خطأ)
قيمة Avg = 60 / 2 = 30

فى قاعدة IF إذا كانت قيمة الشرط True يتم تنفيذ الاوامر التى تلى كلمة Then وإذا كانت قيمة الشرط False يتم تنفيذ الاوامر التى تلى كلمة Else .,
بالرجوع للسؤال نجد أن قيمة الشرط true وبالتالى يتم تنفيذ الاوامر التى تلى كلمة Then .

[sherifonline]

المشاركة الأصلية كتبت بواسطة راغب المصري

اولا هنقول i بتساوي كام

المشاركة الأصلية كتبت بواسطة راغب المصري

i = 0.1.2.3.4.5.6.7
بعد كده هنقول هو امتى باقى قسمة i مع 2 = صفر
في حالة i = 2 . 4 . 6 بعد كده نقول
عند i =2 تظهر رسالة 3 وعند i = 4 تظهر رسالة 5 و عند i = 6 تظهر رسالة 7 ------------------------ i+1
بعد كده هنقول امتى باقى قسمة i مع 3 = صفر
في حالة i = 3 . 6 بعد كده نقول
عند i = 3 تظهر رسالة محتواها 9 وعند i = 6 تظهر رسالة محتواها 36 ------------------ i*i
بعد كده نقول امتى باقى قسمة i على 5 = صفر
في حالة i = 5 بعد كده نقول
عند i = 5 تظهر رسالة محتواها 9 -----------------1-2*5

ارجو منك مراجعة قاعدة if then else ص 49 وص 50 من كتاب الوزارة
حيث ان القيم يتم ايجادها من اعلى لاسفل وبالتالى يجب ان تأخذ تختبر القيم كل مرة من اعلى الى اسفل
وعند حدوث اول قيمة true يجب ان تنفذ الاوامر التى تليها مع اهمال باقى الاوامر
وبالتالى حل المسألة الصحيح هو:
قيم i التى سيتم التعامل معها هى : 0,1,2,3,4,5,6,7
المخرجات الناتجة : 1,2,3,9,5,7,7