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

[Dr.Noha Sami]

اكمل
................ هى اوامر تتحكم فى اعادة تنفيذ عمل معين او مجموعه من الاوامر حتى يتحقق شرط معين

اعد ترتيب الخطوات الاتيه
1- Total =Total +1
2-MsgBox(Total)
3- next
4-for I =1 to 20 step 2
5-Dim I,Total As integer

[Dr.Noha Sami]

Dim R as integer
Dim Total as integer
For R=1 to 8 step 2
Total =total +R
Next
Msg box (total)
اكتب القيمه النهائيه للمتغير total

[أحـمد قرنى]

أوامر التكرار هى اوامر تتحكم فى اعادة تنفيذ عمل معين او مجموعه من الاوامر حتى يتحقق شرط معين

اعد ترتيب الخطوات الاتيه
1- Dim I,Total As integer[/quote]
for I =1 to 20 step 2
3- Total =Total +1
4-next
5-MsgBox(Total)

[أحـمد قرنى]

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

Dim R as integer
Dim Total as integer
For R=1 to 8 step 2
Total =total +R
Next
Msg box (total)
اكتب القيمه النهائيه للمتغير total

- قيمة R = 1 اقل من القيمة النهائية يتم التكرار
Toal =Total + R بالتعويض عن قيمة Total = 0 وقيمة R = 1 فتكون قيمة Total = 1

- قيمة R = 3 لان العداد يزيد بمقدار 2 اقل من القيمة النهائية يتم التكرار
Toal =Total + R بالتعويض عن قيمة السابقة Total = 1 وقيمة R = 3 فتكون قيمة Total =4


- قيمة R = 5 لان العداد يزيد بمقدار 2 اقل من القيمة النهائية يتم التكرار
Toal =Total + R بالتعويض عن قيمة السابقة Total = 4 وقيمة R = 5 فتكون قيمة Total =9


- قيمة R = 7 لان العداد يزيد بمقدار 2 اقل من القيمة النهائية يتم التكرار
Toal =Total + R بالتعويض عن قيمة السابقة Total = 9 وقيمة R = 7 فتكون قيمة Total =16

- قيمة R = 9 أكبر من القيمة النهائية يتوقف التكرار

من السابق تكون القيمة النهائية R = 9 والقيمة النهائية Total = 16

[Dr.Noha Sami]

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

- قيمة r = 1 اقل من القيمة النهائية يتم التكرار
toal =total + r بالتعويض عن قيمة total = 0 وقيمة r = 1 فتكون قيمة total = 1

- قيمة r = 3 لان العداد يزيد بمقدار 2 اقل من القيمة النهائية يتم التكرار
toal =total + r بالتعويض عن قيمة السابقة total = 1 وقيمة r = 3 فتكون قيمة total =4


- قيمة r = 5 لان العداد يزيد بمقدار 2 اقل من القيمة النهائية يتم التكرار
toal =total + r بالتعويض عن قيمة السابقة total = 4 وقيمة r = 5 فتكون قيمة total =9


- قيمة r = 7 لان العداد يزيد بمقدار 2 اقل من القيمة النهائية يتم التكرار
toal =total + r بالتعويض عن قيمة السابقة total = 9 وقيمة r = 7 فتكون قيمة total =16

- قيمة r = 9 أكبر من القيمة النهائية يتوقف التكرار

من السابق تكون القيمة النهائية r = 9 والقيمة النهائية total = 16

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

[ماجدة عمرو]

Dim n, k, c As Integer

c = 6
For n = 1 To 6 Step 3
k = k + n
Next
If n > c Then

c = c + 1
End If

قيمة المتغير c =
ناتج N>c هو
قيمة المتغير k =

[المايسترو mmed]

لا اله الا الله محمد رسول الله

[ابو محمد 2]

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

Dim n, k, c As Integer

c = 6
For n = 1 To 6 Step 3
k = k + n
Next
If n > c Then
c = c + 1
End If

قيمة المتغير c =
ناتج N>c هو

قيمة المتغير k =

وقيم المتغير n
( 1 ، 4 ، 7 )
وقيم k
( 1 ، 4 ) = ( 1+4 ) = 5
- ناتج N>c هو true لتحقق الشرط
وبالتالي
c = c + 1
6+1 = 7

اذن قيمة المتغير c = 7

[zalabawy]

هل char متغير حرفي ؟؟؟

[alialy69]

ما نتيجة تنفيذ العملية الاتية:مع الشرح
999mod 1000

[ابو محمد 2]

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

ما نتيجة تنفيذ العملية الاتية:مع الشرح
999mod 1000

الناتج = 999
حيث إذا كان الرقم الذي قبل mod أصغر من القيمة بعد Mod يكون هو نفس الرقم
أما مثلا
14mod 5
يكون الناتج 4
حيث نقسم 14 على 5 يكون فيها 2 ثم نضرب 2 * 5 يكون 10 وقوم بطرح 14-10 يكون الباقي 4
ومثال 20mod5 يكون صفر حيث لا يوجد باقي من عملية القسمة

[ahmed a e]

السؤال الاول


for A = 2 to 6 step 2
احسب عدد مرات التكرار موضحا قيمة A النهائية

السؤال الثانى

Dim R As integer
Dim total As integer

For R =1 to 8 step 2

Total=Total+R

NEXT

MSG BOX TOTAL

احسب قيمة TOTAL النهائية مع توضيح الخطوات

[ماجدة عمرو]

المشاركة الأصلية كتبت بواسطة ahmed a e

السؤال الاول

for A = 2 to 6 step 2
احسب عدد مرات التكرار موضحا قيمة A النهائية
عدد مرات التكرار 3
قيمة A النهائية 8
السؤال الثانى

Dim R As integer
Dim total As integer

For R =1 to 8 step 2

Total=Total+R

NEXT

MSG BOX TOTAL

احسب قيمة TOTAL النهائية مع توضيح الخطوات

نعمل جدول قيمR هى 1 و3 و 5 و 7و9
قيم الـ Total هى 1و4 و9 و 16 اى ان الفيمة النهائبة لـ total هى 16

[محمدبلبوله]

اذكر قيمة x بعد مرور ثلاث ثوانى بفرض أن قيمة الخاصية interval للمؤقت timer1 هي 1000

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

[IMG]file:///C:/DOCUME%7E1/Owner/LOCALS%7E1/Temp/msohtml1/01/clip_image001.gif[/IMG] Static x As Integer

x = x + 1

MsgBox(x)

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

[IMG]file:///C:/DOCUME%7E1/Owner/LOCALS%7E1/Temp/msohtml1/01/clip_image002.gif[/IMG] Dim x As Integer

x = x + 1

MsgBox(x)

End Sub

هي الاجابه ح تكون

الاوله : X=3 , الثانيه : X=1



والسبب
* تستخدم الكلمه Static للاعلان عن متغير خاص , حيث ان المتغير سيحتفظ بقيمته طول فتره تشغيل البرنامج
ولن يتم إعطاؤه قيمه ابتدائيه عند كل مره يتم فيها استدعاء البرنامج الفرعي .
بس مش فااااااااااااااااااااهم حاجه
مين يوضح ليه ؟؟؟؟؟؟؟؟

[إيهاب توفيق عبد اللطيف]

السلسلة الحرفية الفارغة توجد فى كتاب المدرسة بأكثر من طريقة
فى المثال ص 18 ،،,,
فى الأسئلة ص 39 ""
الرجاء من سيادتكم توضيح ايهما اصح لو جاءت فى الأمتحان
وشكرا على المجهود الرائع