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

لانه بالنسبة لاسئلة الصح والخطأوالاختيارى والمصطلح كلها اسئلة حفظ ومن السهل توقعها

اما بالنسبة لاسئلة الاكواد فبها افكار متعددة ويحتاج الطالب توقعات لها


حتى لو كل مدرس يضع سؤال او اثنين يتوقعهم على الاكثر

وشكرا

http://www.thanwya.com/vb/showthread.php?t=201515

اكتب كود برنامج
أ- لطباعة الأعداد الفردية من 1 إلى 99 باستخدام أمر التكرار Do while … Loop

حذف محتوى صندوق القائمة List Box1

اكتب برنامج لحساب الراتب الاسبوعي لموظف بشرط لو كانت ساعات عمل الموظف أقل من أو تساوي 30ساعة فإن أجر الساعة يكون 4 جنيه ، أما لوكانت ساعات العمل أكثر من 30 ساعة فإن الراتب يتم حسابه كالأتي :
أ‌- أربعة جنيهات في الساعة لأول 30 ساعة
ب‌- 8 جنيهات في الساعة التي تزيد عن 30 ساعة الأولى حيث أن الراتب يتم حسابه كالتالي :
الراتب الإضافي = 8 X ( ساعات العمل – 30 )
الراتب الإجمالي = 30 X 4 + الأجر الإضافي


إذا أردنا تصميم ساعة رقمية بإستعمال الكائن Timer تعلن عن الوقت و التاريخ الحالى :-
- إكتب معالج الحدث للميقاتى Timer1 لكى يتم ظهور الوقت و التاريخ الحالى لساعة النظام على الأداة LblCurrentTime


1) إكتب كود البرمجة الذى يظهر الرسالة " أنت مقبول فى كلية الحاسبات " حسب المعطيات التالية :
- إذا كانت درجة الطالب فى مادة الرياضيات Math أكبر من او تساوى 90 درجة يتم إظهار الرسالة

إذا كانت درجات الطالب أقل من ذلك تكون خلفية الأداة -LblResult حمراء Red
اكتب معالج الحدث للزر Button1 .




موظف يتقاضي مرتب شهري Salary ويعمل ساعات اضافيه Overtime فاذا كان المرتب وقيمه الساعات الاضافيه Total اكبر من او يساوي 2000 تكون الضرائب Tax بنسبه 15% والا تصبح الضرائب 10%

المطلوب :
اكتب الكود البرمجي الذي يحقق اجمالي المرتب ونسبه الضرائب وصافي الدخل الشهري Netsalary

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

اكتب برنامج لحساب الراتب الاسبوعي لموظف بشرط لو كانت ساعات عمل الموظف أقل من أو تساوي 30ساعة فإن أجر الساعة يكون 4 جنيه ، أما لوكانت ساعات العمل أكثر من 30 ساعة فإن الراتب يتم حسابه كالأتي :
أ‌- أربعة جنيهات في الساعة لأول 30 ساعة
ب‌- 8 جنيهات في الساعة التي تزيد عن 30 ساعة الأولى حيث أن الراتب يتم حسابه كالتالي :
الراتب الإضافي = 8 X ( ساعات العمل – 30 )
الراتب الإجمالي = 30 X 4 + الأجر الإضافي

الاجابه

if hoursWorked<=30 then

salary =4*hoursWorked

overtime=8*(hoursWorked-30)
salary =4*30+overtime
end if


2_حذف محتوى صندوق القائمة List Box1

الاجابه

listbox1.items.clear








موظف يتقاضي مرتب شهري Salary ويعمل ساعات اضافيه Overtime فاذا كان المرتب وقيمه الساعات الاضافيه Total اكبر من او يساوي 2000 تكون الضرائب Tax بنسبه 15% والا تصبح الضرائب 10%

المطلوب :
اكتب الكود البرمجي الذي يحقق اجمالي المرتب ونسبه الضرائب وصافي الدخل الشهري Netsalary


الاجابه


total=salary +overtime

if total >=2000 then

tax =total *0.15

netsalary =total -tax
else

tax =total *0.10

netsalary =total-tax



msgbox(total,tax,netsalary)

end if

وشكرل لاستاذ محمد على الاسئله ولحضرتك علىالموضوع

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

وشكرا

السلام عليكم
يا ريت أ/ محمد والكلام موجه أيضا للأمورة بنان أن يوضع هذا الكلام الجميل في ملف وكدا ندعي لكما أكثر.......جزاكم الله خيرا

شكرا يا امورة ياريت حل السؤال رقم 1 وهل فى حله تحويل ام لا ؟

اكتب برنامج لحساب الراتب الاسبوعي لموظف بشرط لو كانت ساعات عمل الموظف أقل من أو تساوي 30ساعة فإن أجر الساعة يكون 4 جنيه ، أما لوكانت ساعات العمل أكثر من 30 ساعة فإن الراتب يتم حسابه كالأتي :
أ‌- أربعة جنيهات في الساعة لأول 30 ساعة
ب‌- 8 جنيهات في الساعة التي تزيد عن 30 ساعة الأولى حيث أن الراتب يتم حسابه كالتالي :
الراتب الإضافي = 8 x ( ساعات العمل – 30 )
الراتب الإجمالي = 30 x 4 + الأجر الإضافي

الاجابه

if hoursworked<=30 then

salary =4*hoursworked
else
overtime=8*(hoursworked-30)
salary =4*30+overtime
end if


2_حذف محتوى صندوق القائمة list box1

الاجابه

listbox1.items.clear( )







موظف يتقاضي مرتب شهري salary ويعمل ساعات اضافيه overtime فاذا كان المرتب وقيمه الساعات الاضافيه total اكبر من او يساوي 2000 تكون الضرائب tax بنسبه 15% والا تصبح الضرائب 10%

المطلوب :
اكتب الكود البرمجي الذي يحقق اجمالي المرتب ونسبه الضرائب وصافي الدخل الشهري netsalary


الاجابه

dim total,tax,netsalary as integer
total=salary +overtime

if total >=2000 then

tax =total *0.15

netsalary =total -tax
else

tax =total *0.10

netsalary =total-tax



msgbox(total,tax,netsalary)

end if

وشكرل لاستاذ محمد على الاسئله ولحضرتك علىالموضوع

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

وشكرا

بنان الله واكبر عليكي لو كنتي طالبه الغلطات مش كتير طالبه ولا مدرسه

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




السلام عليكم
يا ريت أ/ محمد والكلام موجه أيضا للأمورة بنان أن يوضع هذا الكلام الجميل في ملف وكدا ندعي لكما أكثر.......جزاكم الله خيرا


أسألكم الدعاء

بنان الله واكبر عليكي لو كنتي طالبه الغلطات مش كتير طالبه ولا مدرسه

:oشكرا لحضرتك :blush:ورد حضرتك دا شرف لى والله

الغلطات بس انى نسيت اكتب ELSE
واعلن عن المتغيرات عشان كنت بكتب بس بسرعه

لا انا طالبه بالصف الثالث الاعدادى:bosyht9:

وشكرا لحضرتك مرة تانيه

:oشكرا لحضرتك :blush:ورد حضرتك دا شرف لى والله

الغلطات بس انى نسيت اكتب else
واعلن عن المتغيرات عشان كنت بكتب بس بسرعه

لا انا طالبه بالصف الثالث الاعدادى:bosyht9:

وشكرا لحضرتك مرة تانيه

ربنا يحميكي ونشوفك اكبر مبرمجه في مصر

هل الانماط المركبة مثل and or xor ملغية أم مقررة

هل الانماط المركبة مثل and or xor ملغية أم مقررة
هل الانماط المركبة مثل and or xor مقررة

فين بقية الاسئلة والمدرسين اللى بيشاركوا مفيش غير الاستاذ محمد ؟

x=1

for m=0 to 7 step 3

x=x*2
next

اوجد قيمة m ؟

اوجد قيمة X ?
بعد اجراء تنفيذ الاوامر والتكرارات.


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

dim x , sum as int
x=1
do while x <= 5
sum = sum+x
x=x+2
loop

س1: الاوامر السابقة تقوم بجمع ( الاعداد الفردية _ الاعداد الزوجية _ الاعداد كلها) اختر؟

س2: يتوقف التكرار للاوامر السابقة عندما تكوون قيمة X = ........ اكمل

ارجو الاجابة السريعة مع خالص تحياتى



منقوله عن العضور succeed student (http://www.thanwya.com/vb/member.php?u=336345) ارجو الحل

x=1

for m=0 to 7 step 3

x=x*2
next
هو عدد مرات التكرار هتبقا2
اوجد قيمة m ؟1

اوجد قيمة X ? 2
بعد اجراء تنفيذ الاوامر والتكرارات.


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

dim x , sum as int
x=1
do while x <= 5
sum = sum+x
x=x+2
loop

س1: الاوامر السابقة تقوم بجمع ( الاعداد الفردية _ الاعداد الزوجية _ الاعداد كلها) اختر؟
لان x=1 فهتبقا x=1+2=3
عدد فردى


س2: يتوقف التكرار للاوامر السابقة عندما تكوون قيمة X = ....5... اكمل

ارجو الاجابة السريعة مع خالص تحياتى



منقوله عن العضور succeed student (http://www.thanwya.com/vb/member.php?u=336345) ارجو الحل



:blush:بس الصراحه انا موش متاكدة من الاجابات دى اوى:(

مشكوووووووووووووووورة امورة

بالنسبه للسؤال الاول

قيمه m =6

قيمه x=8

لان عدد مرات التكرار هتبقا 3

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

التحويل كله ملغى ولا فيه نوع مش ملغى اى تحويل فالكتاب ملغى ؟

اشكر الامورة بنان جداااااااااااااااااااااا

اشكر الامورة بنان جداااااااااااااااااااااا


عفوااا :022yb4:

x=1

for m=0 to 7 step 3

x=x*2
next

اوجد قيمة m ؟

اوجد قيمة x ?
بعد اجراء تنفيذ الاوامر والتكرارات.

m x
1
2 0
4 3
8 6



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

Dim x , sum as int
x=1
do while x <= 5
sum = sum+x
x=x+2
loop

س1: الاوامر السابقة تقوم بجمع ( الاعداد الفردية _ الاعداد الزوجية _ الاعداد كلها) اختر؟

س2: يتوقف التكرار للاوامر السابقة عندما تكوون قيمة x = 7 اكمل
لان طالما اصغر هيكرر ولو =5 هيكرر لكن لما يزود 2 وتبقى 7 مش هيكرر
ارجو الاجابة السريعة مع خالص تحياتى



منقوله عن العضور succeed student (http://www.thanwya.com/vb/member.php?u=336345) ارجو الحل

عسي ان تكون اجاباتى صحيحه باذن الله

فعلا x =7 لانه هيزيدحلقه كمان