تجميع امتحانات الحاسب 2013 للترم الثاني

[سيف سالم]

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

امتحان المنوفية 2013
ملحوظة : الاجابة باللون الأخضر

س1 اختر الكلمة المناسبة مما بين القوسين وضعها في المكان المناسب

( and – "try/catch" – rem – end while –counter –loop –or –"for ..next" )

1- المعامل المنطقي ( Or ) يعطي ناتج نهائي ( true ) إذا كان أحد الشروط ( True) بينما المعمل المنطقي ( And) يعطي ناتج نهائي (true) إذا كان كافة الشروط ( True )

2- توفر لغة Visul basic .net إمكانية معالجة الأخطاء المحتمل وقوعها من خلال جملة Try / Catch


3- كلمة ( Rem ) تساعد على فهم الأكواد المكتوبة في نافذة وما يأتي بعدها لا يعتبر كود ويهمل تنفيذه


4- يطلق على المتغير الذي يتحكم في عدد مرات التكرار اسم Counter


5- تنتهي جملة do while…. بكلمة Loop


================================================== ========

س2 أ- أكمل البرنامج التالي
أ - لحساب مساحة دائرة (area) نصف قطرها M بحيث يعطي رسالة " غير مسموح عند ادخال عدد سالب في مربع النص textbox1 الذي تم تخصيص قيمته للمتغير M :

Dim M, area As Single

Const Pi As Single =22 / 7

M = Me.textBox1.text

If M >= 0 Then

Area = Pi * M^2

MsgBox ( " area of Circle = " & area )

Else

MsgBox ( " غير مسموح")

End If

ب- استخرج من الكود التالي :

Function calc ( ByVal fn As single , ByVal sn As single ) As Decimal

Dim Total As Single

Total = fn + sn

Return total

End Function

اسم الإجراء

وسائط هذا الاجراء

القيمة الراجعة

نوع البيان الخاص بـ

الدالة
وسيط الدالة
القيمة الراجعة
Calc
Fn , Sn

Total
Decimal
Single
Single

==================================================

س3 صحح الكلمة التي تحتها خط فيما يلي :-
1- ناتج تنفيذ العملية الحسابية 2^2 + (10 – 2 * 5 ) / 2 هو 9 الحل ( 4 )


2- الأخطاء الاملائية والنحوية الحل ( المنطقية ) تؤدي الى نتائج غير سليمة عند استخدام تعبيرات بناؤها غير سليم في جمل التخصيص .

3- تستخدم الخاصية Enabled الحل ( Interval) لأداة المؤقت timer لتحديد الفترة الزمنية بالملي ثانية.

4- افضل حلقة تكرارية تستخدم عند معرفة عدد مرات التكرار مسبقا Select …. Case . الحل For ... Next

5- ناتج الدالة IsNumeric دائما يكون No. الحل True Or False


6- & الحل ( VbCrlf) ثابت حرفي يستخدم لإضافة رمز مفتاح الادخال وسطر جديد .


====================================

مع أطيب التمنيات بالتوفيق والنجاح

أ/ محمد الأخرس

====================================

ماذا تقول في ما ورد بكتاب المدرسة
ص 90
رقم 2
data type تحدد نوع البيان الخاص بالقيمة الراجعة
data type مكتوبة بعد القوسين في الاعلان

[altokhey]

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

ماذا تقول في ما ورد بكتاب المدرسة
ص 90
رقم 2
data type تحدد نوع البيان الخاص بالقيمة الراجعة
data type مكتوبة بعد القوسين في الاعلان

بخصوص هذه النقطة قد قام واضع السؤال بالاعلان عن ال Total
وفى حالة عدم الاعلان عنها أكيد كانت ستأخذ نفس بيان الدالة

وبتجربة البرنامج برمجياً لم يعطى خطأ بناءً على طريقة السؤال

[سيف سالم]

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

بخصوص هذه النقطة قد قام واضع السؤال بالاعلان عن ال total
وفى حالة عدم الاعلان عنها أكيد كانت ستأخذ نفس بيان الدالة

وبتجربة البرنامج برمجياً لم يعطى خطأ بناءً على طريقة السؤال

طب انا سألتك سؤال لم تجب عنه
ماذا تقول فيما جاء ص 90 رقم 3
اللي الطالب بيذاكر ما جاء به وطبقة على ما جاء بالامتحان

[amen.soft]

انا كتبت الكود كالاتى هل اجابتى صح
Dim M, area As Single
Const Pi As Single =22 / 7
M = Me.textBox1.text
If M < 0 then
MsgBox(“غير مسموح ”)
Else
Area = Pi * M^2
MsgBox ( " area of Circle = " & area )
end if

[سيف سالم]

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

انا كتبت الكود كالاتى هل اجابتى صح
dim m, area as single
const pi as single =22 / 7
m = me.textbox1.text
if m < 0 then
msgbox(“غير مسموح ”)
else
area = pi * m^2
msgbox ( " area of circle = " & area )
end if

اجابة صحيحة
بس لن تأخذ الدرجة
لانك لم تحل كما اراد الممتحن

[رزق درديري]

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

انا كتبت الكود كالاتى هل اجابتى صح
dim m, area as single
const pi as single =22 / 7
m = me.textbox1.text
if m < 0 then
msgbox(“غير مسموح ”)
else
area = pi * m^2
msgbox ( " area of circle = " & area )
end if

صحيح إذا كانت صيغة السؤال ( أعد كتابة الكود ) ولم يلزمك في السؤال بترتيب وأكمل أما وقد ألزمك بأكمل البرنامج فقد ألزمك بالترتيب والتكملة في مكانها فليس منوط بالطالب تعديل صيغة السؤال والاجابة حسبما عدل ... وتقبل تحياتي