برجاء حل هذا السؤال

[احبائى في الله]

س5 : تتبع الاوامر التالية ثم أجب :

Dim x, M, K As Integer

Dim y As Integer = 4

For x = 1 To 5

If x <= y Then

M = M + x

Label1.Text = Label1.Text & M & vbCrLf

End If

Next

K = M / x

1- قيمة المتغير M = ................

2- قيمة المتغير K = .................

[doola-91]

دى نتائج الدوران و قاعدة if

x=0
m=0
k=0
y=4
---------------
x=1
m=1
k=0
y=4

---------------
x=2
m=3
k=0
y=4
---------------
x=3
m=6
k=0
y=4
---------------
x=4
m=10
k=0
y=4
---------------
x=5
m=10
k=0
y=4
---------------
x=6
m=10
k=0
y=4
---------------

يبقا m = 10
و ال k = 10 /6 =2/5

[احبائى في الله]

الحل صحيح
بس هو أعلن عن المتغير K, M من النوع Integer يبقى 10\6 =1 نأخذ الناتج الصحيح ونهمل الكسر علشانInteger صحيح فقط

[doola-91]

تمام كدا هيطلع الناتج عنده بكسور بس اللى هيظهرلنا العدد الصحيح بس عشان من النوع integer

[doola-91]

تمام كلامك صح لان النائج هيطلعله فى الذاكرة بكسور عادى بس اللى هيظهرلنا الرقم الصحيح بس عشان من النوع integer