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

[أحـمد قرنى]

dim n , k , c sa integer
c=6
for n = 1 to 6 step 3
k = k + n
next
if n > c then
c = c + 1
end if

حضرتك قيمة n = 7 وهى القيمة التى يتوقف فيها العداد عن التكرار ، وعندما تكون قيمة n = 1 , 4 العداد سوف ينفذ الاوامر التى بين كلمة for وكلمة next ( داخل التكرار ) ولن ينتقل اطلاقاً الى الاوامر التى تلى كلمة Next الا عندما تكون القيمة الابتدائية اكبر من القيمة النهائية للعداد . وهى القيمة التى تكون فيها n = 7 .

وبالتالى يكون الشرط كالتالى if n= 7 > c= 6 قيمته true فيتم الانتقال الى الاوامر التى تلى كلمة then يعنى هينفذ الامر c = c + 1يعنى هتكون c = 7

[elsqa]

رسالة الى الاستاذ / احمد قرنى

مشكور استاذ احمد على اجاباتك الممتازة

واحب احييك لانك فاهم مادتك بجد وقادر توصل المعلومة بشكل متميز ودى حاجة مش متوفرة فى مدرسين الكمبيوتر اللى مش فاهمين حاجة وبيفتوا بدون علم لدرجة انى باشتغل مع طلبة والاقى عندهم معلومات غلط من المدرسين

ارجوا التواصل ...... اخوك مدرس / احمد السقا

[محمد احمد عبد السلا]

( ب ) أقرأ التعليمات الاتيه ثم أجب عن الاسئله التاليه
Dim First as integer =20 , Second as integer=40
Dim Third as integer = First + Second
Dim Total as integer
If Third <=50 Then
Total= First + Second+ Third
Else
First=30
Second=50
Total= First + Second+ Third
End If
1- قيمة المتغير First = .........
2- قيمة المتغير Second = .........
3- قيمة المتغير Total = .........
4- قيمة التعبير Third <= 50 هى ........

[yotch82]

sry بس ممكن تثبتوا الحصص الصوتية اللى فاتت كلها لأنى مش فاهمة حاجة و محتاجة شرح ؟؟؟؟؟؟؟؟؟ و شكرا مقدما :] :]

[أحـمد قرنى]

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

رسالة الى الاستاذ / احمد قرنى

مشكور استاذ احمد على اجاباتك الممتازة

واحب احييك لانك فاهم مادتك بجد وقادر توصل المعلومة بشكل متميز ودى حاجة مش متوفرة فى مدرسين الكمبيوتر اللى مش فاهمين حاجة وبيفتوا بدون علم لدرجة انى باشتغل مع طلبة والاقى عندهم معلومات غلط من المدرسين

ارجوا التواصل ...... اخوك مدرس / احمد السقا

الله يكرمك يا أخى
وربنا يعلم ان كل يوم بتزداد معلوماتى من خلال مشاركتى مع الاخوة الافاضل داخل المنتدى ، وتبادل الاراء معهم .

[أحـمد قرنى]

]( ب ) أقرأ التعليمات الاتيه ثم أجب عن الاسئله التاليه
Dim First as integer =20 , Second as integer=40
Dim Third as integer = First + Second
Dim Total as integer
If Third <=50 Then
Total= First + Second+ Third
Else
First=30
Second=50
Total= First + Second+ Third
End If


شرح استخدام الامر If .. Then .. Else :
هو أمر اختيار مزدوج يتم تنفيذه فى حالة وجود بديلين .
إذا كانت قيمة الشرط True يتم تنفيذ الاوامر التى تلى كلمة Then .
إذا كانت قيمة الشرط False يتم تنفيذ الاوامر التى تلى كلمة Else .

وبالعودة للمثال نجد أن قيمة الشرط Third <=50 تكون False وذلك بالنظر الى أن قيمة Third = 60 .
وبالتالى يتم الانتقال لتنفيذ الاوامر التى تلى كلمة Else . فتكون القيم كالتالى

1- قيمة المتغير First = 30
2- قيمة المتغير Second = 50
3- قيمة المتغير Total = 140
وذلك لأن ال Total = First + Second+ Third = 30 + 40 + 60
4- قيمة التعبير Third <= 50 هى False

[shaimaa.aa]

حضرتك قيمة n = 7 وهى القيمة التى يتوقف فيها العداد عن التكرار ، وعندما تكون قيمة n = 1 , 4 العداد سوف ينفذ الاوامر التى بين كلمة for وكلمة next ( داخل التكرار ) ولن ينتقل اطلاقاً الى الاوامر التى تلى كلمة Next الا عندما تكون القيمة الابتدائية اكبر من القيمة النهائية للعداد . وهى القيمة التى تكون فيها n = 7 .

وبالتالى يكون الشرط كالتالى if n= 7 > c= 6 قيمته true فيتم الانتقال الى الاوامر التى تلى كلمة then يعنى هينفذ الامر c = c + 1يعنى هتكون c = 7

شكرا أ / أحمد على الرد
وده معناه انى مش بعمل كده الا لو فى اوامر بعد next لكن لو مفيش تكون قيمة n = 4
صح كده

[bolbola101]

استاذ احمد الف شكر على مجهودك الرائع
وخاصه الأمتحانات التفاعليه بحد انت استاذ عبقرى
وبجد ابهرتنى ببرنامج الفيجوال بيسك فى عمل هذه الأمتحانات التفاعليه
ربنا يجازيك خيرا على مجهودك الرائع
يا ريت طلب غلس شويه لو تنزل لنا اكواد بسيطه عشان الولاد يطبقوها لأنهم بيفرحوا جدا
لما بيعملوا حاجه بأديهم

[ريهام122]

المشاركة الأصلية كتبت بواسطة أحـمد قرنى

يتوقف التكرار عندما تكون قيمة المتغير i = 9

الشرح

القيمة الابتدائية للمتغير i =0 نجد انها تكون اقل من القيمة النهائية 7 لذلك يتم التكرار .
- نقوم بتكرار الامر x = x * 2 .
- بالتعويض عن قيمة x بالقيمة 4 نجد ان قيمة المتغير x = 8 .
- عندما يصل البرنامج لكلمة next يعود مرة اخرى لزيادة العداد وتقييم الشرط .

نقوم بزيادة العداد بمقدار 3 فتصبح قيمة i=3 نجد انها اقل من القيمة النهائية 7 لذلك يتم التكرار .
- نقوم بتكرار الامر x = x * 2 .
- بالتعويض عن قيمة x بالقيمة الاخيرة 8 نجد ان قيمة المتغير x = 16 .
- عندما يصل البرنامج لكلمة next يعود مرة اخرى لزيادة العداد وتقييم الشرط .

نقوم بزيادة العداد بمقدار 3 فتصبح قيمة i=6 نجد انها اقل من القيمة النهائية 7 لذلك يتم التكرار .
- نقوم بتكرار الامر x = x * 2 .
- بالتعويض عن قيمة x بالقيمة الاخيرة 16 نجد ان قيمة المتغير x = 32 .
- عندما يصل البرنامج لكلمة next يعود مرة اخرى لزيادة العداد وتقييم الشرط .


نقوم بزيادة العداد بمقدار 3 فتصبح قيمة i=9 نجد انها اكبر من القيمة النهائية 7 لذلك يتوقف البرنامج عن التكرار.


مما سبق ذكر
قيم المتغير i هى 0 , 3 , 6 , 9
قيم المتغير x هى 8 , 16 , 32

ويتوقف التكرار عندما تكون قيمة المتغير i = 9
لانها اكبر من القيمة النهائية

لو سمحت لما ييجى سؤال اوجد القيمة النهائية للمتغير i
هنا تكون القيمه الاخيرة للمتغير i هى 9 ولا 6

[ريهام122]

ما القيمة النهائية للمتغير i

x=2
forI =0to6 step 2
x=x*2
next

[أحـمد قرنى]

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

ما القيمة النهائية للمتغير i

x=2
forI =0to6 step 2
x=x*2
next

القيمة النهائية للمتغير i = 8

[الأستاذة / أم أمل]

جزاك الله خيرا استاذ احمد

[عبدالفتاح داود]

أكمل الفراغات فى الكود التالى لجمع الاعداد الفردية من 1 الى 10
Dim x , …… As Integer
For x = 1 To …… Step ---------
Total = total + x
Next
Msgbox ( …….......)

[senos]

لو سمحتوا ممكن حد يقول خطوات الحل للاتى:

*مساحة الدائرة =ط نق حيث ط=3,14 ، نق=7

[Dr.Noha Sami]

ممكن الاجابه عن الاسئله دى
بعد نهاية تنفيذ الكود التالى
k=1
for I=1to5
k=k *2
next
تكون قيمة I ,K
I(6-5-1)
K=(1-16-32)
ارجو شرح الحل لانى مش فاهمه المسائل اللى من النوع ده خالص
افترض مجموعة الاوامر التاليه
Dim I as Integer
Dim X As single =2.5
for I=1 to 10 step 3
X=X*2
next
msg box (x)
1- تكون القيم التى يأخذها العداد I...............
2- تكون قيمة المتغير X التى سيعرضها مربع الرساله ...............زز
يكون عدد مرات تنفيذ الجمله x=x*2 هى ...........ز
س3\
Dim R as integer
Dim Total as integer
for R =1 to 8 step 2
total =total +R
next
msgbox (tota)
اكتب القيمه النهائيه للمتغير total
انا عرفه الاسئله كتير بس ارجوكو اشرحوهالى لانى مش قدره افهم النوع ده خاااااااااااااااااااااالص