طلبات الأعضاء للعام الدراسي 2012-2013

[ابو كريم عمرو]

Dim N,K As Integer
N=1
Do While N<5
K=K+N
N=N+3
Loop
If n>K THEN
K=K*2
End If
المطلوب تحديد القيم ل n , K مع الشرح؟؟؟؟؟؟؟؟؟؟؟؟؟

[hassanalhawy]

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

Dim N,K As Integer
N=1
Do While N<5
K=K+N
N=N+3
Loop
If n>K THEN
K=K*2
End If
المطلوب تحديد القيم ل n , K مع الشرح؟؟؟؟؟؟؟؟؟؟؟؟؟

K......N
=====
0.......0.......... فى الأمر Dim N,K As Integer
1.......0..........N=1
ناتج الشرط N<5 هو True فى الحلقة Do While N<5
1.......1..........K=K+N
4.......1..........N=N+3
ناتج الشرط N<5 هو Trueفى الحلقة Do While N<5
4.......5..........K=K+N
7.......5..........N=N+3
ناتج الشرط N<5 هو Falseوبالتالى نخرج من الحلقة التكرارية Do While N<5
ناتج الشرط N>k هو True فى جملة If N>K
7......10..........K=K*2
وبالتالى تكون قيمة N بـ 7 و قيمة K بـ 10

[ابو كريم عمرو]

شكرا جزيلا

[hassanalhawy]

أنظر للتعديلات فى المشاركة السابقة مرة أخرى

[ابو كريم عمرو]

اشكر سيادتك شكرا جزيلا على هذا الشرح الوافى ...................