بوابة الثانوية العامة المصرية - برجاء حل هذا السؤال

بوابة الثانوية العامة المصرية (https://www.thanwya.com/vb/index.php)

- أرشيف المنتدى (https://www.thanwya.com/vb/forumdisplay.php?f=513)

- - برجاء حل هذا السؤال (https://www.thanwya.com/vb/showthread.php?t=518762)

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

12-05-2013 08:18 PM

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

س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

12-05-2013 09:04 PM

دى نتائج الدوران و قاعدة 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

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

12-05-2013 09:12 PM

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

doola-91

12-05-2013 09:23 PM

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

doola-91

12-05-2013 09:27 PM

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

جميع الأوقات بتوقيت GMT +2. الساعة الآن 01:38 AM.