thaaaaaaaaaaaaaaaaaaaaaanks
|
راااااااااااااااااااااائع
|
نماذج إمتحانات - عاطف حسان تيرم ثانى 2013
1 مرفق
نماذج إمتحانات - عاطف حسان تيرم ثانى 2013 أرجو أن تنال إعجابكمنموذج (1) ============================= و أرجو التعليق و التقييم عاطف حسان / ميت موسى |
thxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
|
اقتباس:
بارك الله فيك أخي الفاضل عاطف علي هذا الإمتحان الرائع |
بارك الله فيك مستر عاطف وجزاك الله خيرا |
اقتباس:
(3)طباعة قيمة المتغير M 3 X M = بإستخدام صندوق الرسالة MsgBox (4) الخروج من جملة التكرار بدون إنتظار اختبار التعبير الشرطى مع Do While إذا كان StrClose يساوى Dangerous |
اقتباس:
Msgox ( "3" & " M" & " = " & M ) g ///////// If StrClose = "Dangerous" Then Exit Do إجابة اخرى If StrClose = "Dangerous" Then Exit Do End If |
باراك الله فيك وجعله فى ميزان حسانت
|
بارك الله فيك
وجزاك الله خيرا |
جزاك الله كل خير عن المجهود المبذول
ممكن اجابة عن السؤال التالى
Dim N, K, C As Integer C = 10 For N = 1 To 10 Step 5 K = K + N Next IF N >= C Then C = C + 1 End IF حدد قيمة كل متغير بعد تنفيذ الكود Code التالى |
اقتباس:
=========================================== _ MsgBox("n = " & N & vbCrLf & "k = " & K & vbCrLf & "c= " & C)g N = 11 K =7 C = 11 =========================================== |
جزاكم الله خيرا
مشكوووووووووووووورين |
بارك الله فيك مستر عاطف وجزاك الله خيرا |
السلام عليكم
اخى الفاضل الاستاذ عاطف حسان انا محتار فى اجابة هذا السالسؤال الرجاء من حضرتك الاجابة علية مع الشرح for i = 0 to 7 if (i mod 2 =0) thne 1- msgbox i+1 else if(i mod 3 =0) thne 2- msgbox i*1 else if(i mod 5 =0) thne 3- msgbox 2*1 else 4- msgbox i end if end sub |
إيه الجمال ده يا عاطف
وإيه الألوان الحلوة دى دى مزيكا:022yb4: إنت متخصص امتحانات عن جدارة |
رد
اقتباس:
شكرا يا حسن ربنا يكرمك |
رد/ عاطف حسان
1 مرفق
اقتباس:
=========================== Dim i As Integer For i = 0 To 7 if (i Mod 2 = 0) Then هذا سؤال متشابه لحد كبير جدا لتمرين اخر الفصل الثالث فى الكتاب المطبوع سابقاMsgBox (i + 1)u ElseIf (i Mod 3 = 0) Then MsgBox (i * 1)u ElseIf (i Mod 5 = 0) Then MsgBox (2 * 1)u Else MsgBox (i)u End If Next و يطلب منك تحديد المخرجات – أى ما يظهر فى مربع الرسالة MsgBox اولا التعبيرات الشرطية يتم تفيذها من أعلى لأسفل أول شرط يتحقق يتم تفيذ البديل الذى يليه مباشرة ثم يتم تجاهل باقى الشروط و البدائل حتى End If إذا لم يتحقق أى شرط يتم تفيذ البديل الافتراضى فى جملة If و هو البديل الذى يلى Else إذا لم يتحقق أى شرط و لم يتم إستخدام كلمة Else ل يتم عمل شىء (1) عندما يذهب البرنامج فى اول مرة لـ For يتم تخزين قيمة البداية Start [0] فى العداد i و يتم اختبار شرط التكرار – هل I<=End أى هل 0 اقل من او تساوى 7 فيكون ناتج الشرط صحيح فيتم التكرار و التكرار هنا عبارة عن جملة Else If المتداخلة فيتم تفيذها اول شرط يتحقق لأن 2 Mod 0 = 0 و Mod تشير لباقى القسمة هنا باقى قسمة صفر على 2 يكون 0 فيتم تنفيذ البديل الذى يلى الشرط و هو MsgBox ( I +1) أى طباعة 0+1 فى مربع الرسالة فيكون أول مخرجات (ما يطبعه) البرامج هو 1 (2) ثم يذهب البرنامج لـ Next ليتم زيادة قيمة العداد بقيمة الزيادة الافتراضية و هى 1 لأننا لم نستخدم كلمة Step – فتصبح قيمة I تساوى قيمتها + مقدار الزيادة فتصبح 0+1=1 و يتم اختبار شرط التكرار – هل I<=End أى هل 1 اقل من او تساوى 7 فيكون ناتج الشرط صحيح فيتم التكرار و التكرار هنا عبارة عن جملة Else If المتداخلة فيتم تفيذها اول شرط لا يتحقق لأن 1 Mod 2 <> 0 فيتم تجاهل البديل الذى يليه ثانى شرط لا يتحقق لأن 1 Mod 3 <> 0 فيتم تجاهل البديل الذى يليه ثالث شرط لا يتحقق لأن 1 Mod 5 <> 0 فيتم تجاهل البديل الذى يليه فيتم تفيذ البديل الإفتراضى و هو الذى يلى Else – MsgBox(i) أى أى طباعة 1 فى مربع الرسالة فيكون ثاى مخرجات (ما يطبعه) البرامج هو 1 (3) ثم يذهب البرنامج لـ Next ليتم زيادة قيمة العداد بقيمة الزيادة الافتراضية و هى 1 لأننا لم نستخدم كلمة Step – فتصبح قيمة I تساوى قيمتها + مقدار الزيادة فتصبح 1+1=2 و يتم اختبار شرط التكرار – هل I<=End أى هل 2 اقل من او تساوى 7 فيكون ناتج الشرط صحيح فيتم التكرار و التكرار هنا عبارة عن جملة Else If المتداخلة فيتم تفيذها اول شرط يتحقق لأن 2 Mod 2 = 0 فيتم تنفيذ البديل الذى يلى الشرط و هو MsgBox ( I +1) أى طباعة 2+1 فى مربع الرسالة فيكون ثالث مخرجات (ما يطبعه) البرامج هو 3 (4) ثم يذهب البرنامج لـ Next ليتم زيادة قيمة العداد بقيمة الزيادة الافتراضية و هى 1 لأننا لم نستخدم كلمة Step – فتصبح قيمة I تساوى قيمتها + مقدار الزيادة فتصبح 2+1=3 و يتم اختبار شرط التكرار – هل I<=End أى هل 3 اقل من او تساوى 7 فيكون ناتج الشرط صحيح فيتم التكرار و التكرار هنا عبارة عن جملة Else If المتداخلة فيتم تفيذها اول شرط لا يتحقق لأن 3 Mod 2 <> 0 فيتم تجاهل البديل الذى يليه ثانى شرط يتحقق لأن 3 Mod 3 = 0 فيتم تنفيذ البديل الذى يلى الشرط و هو MsgBox ( I *1) أى طباعة 3*1 فى مربع الرسالة فيكون رابع مخرجات (ما يطبعه) البرامج هو 3 (5) ثم يذهب البرنامج لـ Next ليتم زيادة قيمة العداد بقيمة الزيادة الافتراضية و هى 1 لأننا لم نستخدم كلمة Step – فتصبح قيمة I تساوى قيمتها + مقدار الزيادة فتصبح 3+1=4 و يتم اختبار شرط التكرار – هل I<=End أى هل 4 اقل من او تساوى 7 فيكون ناتج الشرط صحيح فيتم التكرار و التكرار هنا عبارة عن جملة Else If المتداخلة فيتم تفيذها اول شرط يتحقق لأن 4 Mod 2 = 0 فيتم تنفيذ البديل الذى يلى الشرط و هو MsgBox ( I +1) أى طباعة 4+1 فى مربع الرسالة فيكون خامس مخرجات (ما يطبعه) البرامج هو 5 (6) ثم يذهب البرنامج لـ Next ليتم زيادة قيمة العداد بقيمة الزيادة الافتراضية و هى 1 لأننا لم نستخدم كلمة Step – فتصبح قيمة I تساوى قيمتها + مقدار الزيادة فتصبح 4+1=5 و يتم اختبار شرط التكرار – هل I<=End أى هل 1 اقل من او تساوى 7 فيكون ناتج الشرط صحيح فيتم التكرار و التكرار هنا عبارة عن جملة Else If المتداخلة فيتم تفيذها اول شرط لا يتحقق لأن 5 Mod 2 <> 0 فيتم تجاهل البديل الذى يليه ثانى شرط لا يتحقق لأن 5 Mod 3 <> 0 فيتم تجاهل البديل الذى يليه ثالث شرط يتحقق لأن 5 Mod 5 <> 0 فيتم تنفيذ البديل الذى يلى الشرط و هو MsgBox ( 2*I ) أى طباعة 2*1 فى مربع الرسالة فيكون سادس مخرجات (ما يطبعه) البرامج هو 2 (7) ثم يذهب البرنامج لـ Next ليتم زيادة قيمة العداد بقيمة الزيادة الافتراضية و هى 1 لأننا لم نستخدم كلمة Step – فتصبح قيمة I تساوى قيمتها + مقدار الزيادة فتصبح 5+1=6 و يتم اختبار شرط التكرار – هل I<=End أى هل 6 اقل من او تساوى 7 فيكون ناتج الشرط صحيح فيتم التكرار و التكرار هنا عبارة عن جملة Else If المتداخلة فيتم تفيذها اول شرط يتحقق لأن 6 Mod 2 = 0 فيتم تنفيذ البديل الذى يلى الشرط و هو MsgBox ( i+1 ) أى طباعة 6+1 فى مربع الرسالة فيكون سابع مخرجات (ما يطبعه) البرامج هو 7 (8) ثم يذهب البرنامج لـ Next ليتم زيادة قيمة العداد بقيمة الزيادة الافتراضية و هى 1 لأننا لم نستخدم كلمة Step – فتصبح قيمة I تساوى قيمتها + مقدار الزيادة فتصبح 6+1=7 و يتم اختبار شرط التكرار – هل I<=End أى هل 7 اقل من او تساوى 7 فيكون ناتج الشرط صحيح فيتم التكرار و التكرار هنا عبارة عن جملة Else If المتداخلة فيتم تفيذها اول شرط لا يتحقق لأن 7 Mod 2 <> 0 فيتم تجاهل البديل الذى يليه ثانى شرط لا يتحقق لأن 7 Mod 3 <> 0 فيتم تجاهل البديل الذى يليه ثالث شرط لا يتحقق لأن 7 Mod 5 <> 0 فيتم تجاهل البديل الذى يليه فيتم تفيذ البديل الإفتراضى و هو الذى يلى Else – MsgBox(i) أى أى طباعة i فى مربع الرسالة فيكون ثامن مخرجات (ما يطبعه) البرامج هو 7 (9) ثم يذهب البرنامج لـ Next ليتم زيادة قيمة العداد بقيمة الزيادة الافتراضية و هى 1 لأننا لم نستخدم كلمة Step – فتصبح قيمة I تساوى قيمتها + مقدار الزيادة فتصبح 7+1=8 و يتم اختبار شرط التكرار – هل I<=End أى هل 8 اقل من او تساوى 7 فيكون ناتج الشرط خطأ فيتوقف التكرار |
تدريبات علي الفصل الثاني
2 مرفق
السلام عليكم ورحمة الله وبركاته تدريبات علي الفصل الأول والثاني أكثر من 70 نقطة علي الفصل الأول و70 نقطة للفصل الثاني أرجوا أن تنال إعجابكم وانتظروا إن شاء الله تدريبات علي الفصل الثالث قريبا بورك فكيم وجزاكم الله الجنة ورجاء قيمونا ............ |
مشكوووووووووووووووووووووووووور
|
جزاك الله خيرا
|
بارك الله فيك مستر عاطف
وجزاك الله خيرا وجعله الله فى ميزان حسناتك |
جزاك الله خيرا
|
اقتباس:
شكرا جزيلا يأ أستاذى الخلوق ياسر ضيف انشاء الله تعجبك الامتحانات القادمة و تقولى رأيك فى الامتحان اللى حا اضيفة الليلة بإذن الله - ========================= عاطف حسان |
اقتباس:
ولي تعليق بسيط ناتج الدالة IsNumeric فى الجملة MsgBox(IsNumeric(x)) تكون True إذا كانت ْالمتغير Xعددية كان ممكن نجعل الخطأ في كتابة الكود ونلغى اذا كان وما بعدها جمله [ If Then – For Next – Select Case ]تستخدم عند وجود إختيارين أحدهما فى حالة الصواب و الآخر فى حالة الخطأ انت كدا تنضم الى الجدالين الجدد والافضل اضافة if then else (1) فى جملة For Next معدل الزيادة يجب أن يكون [ موجبا – سالباً – يساوى صفر ] إذا كانت قيمة البداية أكبر من قيمة النهاية يجب اضافة كلمة حتى يتم التكرار ) الخروج من جملة التكرار بدون إنتظار اختبار التعبير الشرطى مع Do While إذا كان StrClose يساوى Dangerous قيمة المتغير اذا اضيفت نجعل السؤال مفهوم بشكل اكثر |
شكرا أستاذ / عاطف
شكرا استاذ / عاطف ودائما ما تكون مجهوداتك في الصميم وهذا ما لاحظناه في الفصل الدراسي الأول ...لذا نرجو المزيد من مثل هذه الاختبارات ...شكرا جزيلا وجزيت خيرا ..
|
1 مرفق
اقتباس:
انشاء الله تعجبك الامتحانات القادمة و تقولى رأيك فى الامتحان اللى حا اضيفة الليلة بإذن الله - ========================= عاطف حسان |
1 مرفق
اقتباس:
كل الشكر و التقدير لأستاذى الكبير العزيز / سيف سالم و شكرا على تعليق سيادتك و يؤخذ فى الاعتبار من أستاذ كبير أحترمه و أقدره كشخصية و مستوى رائع و أنتظر من حضرتك تقييم النموذج الثانى أكرر شكرى و تقديرى |
1 مرفق
اقتباس:
شكرا جزيلا استاذنا العزيز المهدى مصطفى السعيد و أتمنى ان ينال النموذج الثانى إعجابك |
1 مرفق
اقتباس:
انشاء الله تعجبك الامتحانات القادمة و تقولى رأيك فى الامتحان اللى حا اضيفة الليلة بإذن الله - ========================= عاطف حسان |
بارك الله فيك مستر زياد عاطف
|
2 مرفق
اقتباس:
انشاء الله تعجبك الامتحانات القادمة و تقولى رأيك فى الامتحان اللى حا اضيفة الليلة بإذن الله - ========================= عاطف حسان |
بارك الله فيك
ومجهود رائع نشكرك عليه كما عودتنا دائما |
جزاكم الله خيرا |
نموذج امتحان نصف ترم ( ب )
|
اقتباس:
امتحان كويس ولكن هناك بعض النقاط في هذا الامتحان قبل الخوض فيها نذكر الناس ان الطالب يمتحن فقط فيما قام بدراسته مع مراعاة ان الطالب يعتمد فقط على كتاب المدرسة ولا يعتمد على الكتب الخارجية او المذاكرات وكذلك المراجع العلمية 1- السؤال الاول نقطة 1 ستكون الاجابة للطالب صح لانه لم يدرس ان النوع char حرف واحد بعكس نموذج الاجابة سيكون خطأ 2 - السؤال الثاني رقم أ ما ورد ليس بكود ولكنه جزء من كود وعليه تفكير الطالب سيذهب للخطأ ثانيا الطالب لم يدرس if المتداخلة ثالثا سيكون له اكثر من اجابة ومنها على سبيل المثال (dim x,y as byte y=7 if x<6 and x<6 then if y>8 and y >8 then textbox1.text="al fals" طبعا الطالب بيستعبط صحيح بس اجابته صحيحة 3 - السؤال الثاني ب ايضا غير كامل الاجابة ستكون كما درس الطالب else ثم الرسالة ثم end if واعتقد الممتحن يقصد end if مباشرة السؤال الثالث ا رقم 1 فيه كثير حسب ما درس الطالب فتكون الاجابة اكثر من اجابة رقم 2 لها اكثر من اجابة |
أخى الكريم
استاذ / سيف سالم جزاكم الله كل الخيرات للاضافة الرائعة المتميزة تحياتى ودعواتى وخالص الشكر والتقدير |
اعطى رايك فى هذا الاختبار على الفصلين
1 مرفق
:av4056bb7jp3:
زملائى الأعزاء المدرسين و المدرسات أعزائى الطلاب حمل الامتحان على الفصل الأول و الثانى واعطنى رايك فى الامتحان وعلى مدى سهولته أم صعوبته والى لقاء فى باقى الفصول |
اقتباس:
بارك الله في حضرتك فعلاً كلام حضرتك سليم 100% أغلب هذه الأسئلة لها أكثر من إجابة صحيحة |
اقتباس:
بارك الله فيكي استاذة مني فعلا اختبار جميل وشامل |
|
|
جزاكم الله خيراً
|
|
جمييل جدا ربنا يجعله فى ميزان حسناتكم ان شاء الله
يار يت امتحانات على الفصل الثانى والثالث |
جزاك الله خيرا
زميل الدبلومة بطنطا علاء الغمراوى |
بارك الله فى حضراتكم لمروركم الكريم
|
نموذج امتحان نصف ترم ( أ )
|
|
بارك الله فيك استاذي الفاضل علي هذا المجهود
|
جميع الأوقات بتوقيت GMT +2. الساعة الآن 05:10 AM. |
Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.