طلب حل بعض الاسئلة في لغة فجول بيسك

[النور السعودي]

السلام عليكم ورحمة الله وبركاته

ابني طالب صف ثالث
ومدرس الحاسب الله يهديه شرحه مو قد كده
وما شرح لهم الا البابين الاولى فقط والباقي اشر لهم هو
وطبعت له اسئله من منتداكم

فلو سمحتوا ممكن تساعدوني في حل بعض الاسئلة
شاكره لكم ومقدره
وجزاكم الله خير الجزاء



1 / عند تحويل العملية الجبرية التاليه Z=6*XY الى لغة فيجوال بيسك تتحول الى
Z=6*XY
Z=6*X+Y
Z=6*X*Y


2/ ما هو الامر المكرر وكم سيتكرر
FOR M = 1 TO 50
PRINT الصف الثالث
NEXT


3 / كم عدد عناصر المصفوفه التالية
DIM age (49 AS String


4/ في المصفوفه
Tech


رقم العنصر القيمة
0 7
1 8
2 13
3 4
4 14
5 10
6 9



كم عدد عناصر المصفوفه (tech)

اكتب صيغة الوصول الى قيمة العنصر (2)

اكتب امر تعريف المصفوفه (tech) بلغة فيجوال بيسك


5/ ما هي القيمة التي سيتم اسنادها للمتغير age في المثال التالي

DIM NAME AS String age as single
age = 26


6 / القاعدة ..................................يفضل استخدامها اذا كان لدينا عدة احتمالات للشرط
اما اذا كان لدينا احتمال واحد او احتمالان فيفضل استخدام القاعدة ....................................

7 / اكتب الصيغة اللازمه لتعريف ثابت اسمه pi وقيمته 3.14

8 / اذكر مخرجات البرنامج
M= 1
DO while M >= 10
PRINT M
M = M + 2
LOOP

صح او خطأ
/ لتجميع الادوات لتعمل مع بعضها مثل ازارير الاختيار نرسمها داخل اداة الاطار ( )
/ اطار محتويات المشروع يمكن من خلاله تحديد موقع اطار البرنامج عند التنفيد ( )
/ المتغير BB متغير عددي لاسناد الرقم 45 اليه نكتب BB= 45 ( )
/ كلمة START5 في الصيغة العامه for - next تعني ان قيمة الزيادة للعداد هي (5 ) ( )
/ PIE ثابث يخزن قيمة ثابثه "3.14 " نوع الثابث PIE ثابث عددي ( )

MR2 لايصلح لان يكون اسم متغير في لغة فجوال بيسك لنه يحتوي على فراغ ( )


11 / حدد نوع الثابث او المتغير وهل هو عددي او حرفي
الرمز
M
MS
ALI
''ALI"
998
"3+ 5 "
& ALI

12 l جميعها متساوية في الاولوية وهي اقل في الاولوية من العمليات الحسابية

< >
= <
=>
= شكل معين

13 / اسم صالح لتسمية المتغيرات
DIM 23 S & Name AR 23 DIM


14/ حدد اسم المتغير ومدى صلاحيته

DIM 6 STUDENT AS INTEGER


DIM NN AS VARIANT

[النور السعودي]

انتظركم
مالي الا الله ثم انتم

[متميزه]

1 / عند تحويل العملية الجبرية التاليه Z=6*XY الى لغة فيجوال بيسك تتحول الى
Z=6*XY
Z=6*X+Y
Z=6*X*Y


2/ ما هو الامر المكرر وكم سيتكرر
FOR M = 1 TO 50
PRINT الصف الثالث
NEXT

الصف الثالث وتكرر 50 مره


3 / كم عدد عناصر المصفوفه التالية
DIM age (49 AS String

عدد عناصرها 50

4/ في المصفوفه
Tech


رقم العنصر القيمة
0 7
1 8
2 13
3 4
4 14
5 10
6 9



كم عدد عناصر المصفوفه (tech) 7

اكتب صيغة الوصول الى قيمة العنصر (2) m ( 1 )

اكتب امر تعريف المصفوفه (tech) بلغة فيجوال بيسك DIM tech(6) As Integer


5/ ما هي القيمة التي سيتم اسنادها للمتغير age في المثال التالي

DIM NAME AS String age as single
age = 26

26

6 / القاعدة ...Select Case...يفضل استخدامها اذا كان لدينا عدة احتمالات للشرط
اما اذا كان لدينا احتمال واحد او احتمالان فيفضل استخدام القاعدة IF

7 / اكتب الصيغة اللازمه لتعريف ثابت اسمه pi وقيمته 3.14

Const pi = 3.14

8 / اذكر مخرجات البرنامج
M= 1
DO while M <= 10
PRINT M
M = M + 2
LOOP

1 3 5 7 9 طباعة الاعداد الفرديه

صح او خطأ
/ لتجميع الادوات لتعمل مع بعضها مثل ازارير الاختيار نرسمها داخل اداة الاطار ( صح )
/ اطار محتويات المشروع يمكن من خلاله تحديد موقع اطار البرنامج عند التنفيد ( خطأ )
اطار التخطيط/ المتغير BB متغير عددي لاسناد الرقم 45 اليه نكتب BB= 45 ( صح )
/ كلمة START5 في الصيغة العامه for - next تعني ان قيمة الزيادة للعداد هي (5 ) ( خطأ )
STEP5
/ PIE ثابث يخزن قيمة ثابثه "3.14 " نوع الثابث PIE ثابث عددي ( صح )

MR2 لايصلح لان يكون اسم متغير في لغة فجوال بيسك لنه يحتوي على فراغ ( خطأ )
يصلح

11 / حدد نوع الثابث او المتغير وهل هو عددي او حرفي
الرمز
M متغير حرفي
MS متغير حرفي
ALI متغر حرفي
''ALI" ثابت حرفي
998 ثابت عددي
"3+ 5 " ثابت حرفي
& ALI ...للعلامه معنى اجهله ؟؟ ممكن احد يساعد

12 l جميعها متساوية في الاولوية وهي اقل في الاولوية من العمليات الحسابية

< >
= <
=>
= شكل معين (لم افهم)

13 / اسم صالح لتسمية المتغيرات
DIM 23 S & Name AR 23 DIM

Name
AR
S

14/ حدد اسم المتغير ومدى صلاحيته

DIM 6 STUDENT AS INTEGER
6 STUDENT
غير صالح لانه ابتدأ برقم

DIM NN AS VARIANT
NN
صالح

ان اخطأت فمن نفسي
او اصبت فمن نعمة الله

[النور السعودي]

الله يعطيك العافيه يا متميزه
وبارك الله فيكي

والله يرزقك الخير يارب


لكن في اشياء كتبهم استاذ الحاسب

وفضلا وليس امرا اذا قدرتي توضحيها لنا او تشوفي حلها صحيح ولالا

http://www.up-00.com/Feb10/z3173045.jpg (http://www.up-00.com/)


http://www.up-00.com/Feb10/Tdh73045.jpg (http://www.up-00.com/)


http://www.up-00.com/Feb10/di373046.jpg (http://www.up-00.com/)


http://www.up-00.com/Feb10/avz73228.jpg (http://www.up-00.com/)


http://www.up-00.com/Feb10/hgJ73228.jpg (http://www.up-00.com/)


http://www.up-00.com/Feb10/YHI73228.jpg (http://www.up-00.com/)

الاختبار يوم الثلوثاء
الله يعطيك العافيه :)

[النور السعودي]

اختي متميزه
الاختبار يوم الثلاثاء
انتظرك
اللي تقدري عليه ساعديني
الله يوفقك اختي

[النور السعودي]

Ali " = x
يعتبر هذا المتغير

( عددي / منطقي / حرفي )




single لايجوز ان يكون اسم لمتغير بسبب
( لانه يتجاوز 255 حرف ـ لانه لم يبدأ بحرف هجاء انجليزي ـ لانه اسم محجوز )




المتغير هو اسم يدل على موقع مخزن داخل ذاكرة الحاسب يتم فيه تخزين قيمة هذا المتغير ( صح / خطأ )


لتصميم واجهة عربية نغير خاصية ( RIGHT TO LEFT ) الى القيمة True ( صح ـ خطأ )


في اداة زر الخيار يمكن للمستخدم اختيار خيار واحد فقط ( صح ـ خطأ )


نستخدم اداة check box لعرض قائمة مكونه من عناصر يختار المستخدم احدهم ( صح ـ خطأ )



عرف ثابث اسم الدولة بقيمة KSa



لتحديد المدخلات الخاصة بحساب محيط المستطيل علما بان محيط المستطيل = الطول x العرض على 2

أ الطول والعرض ب / الطول x العرض
ج / محيط المستطيل د / الطول X العرض على 2



تكون نتيجة المقارنه TURE
3+ 6 = >2*5 3+6=>3*3

3+6=<3*2 3+6 = > 3*6



تعتبر اسم صالح لتسمية المتغيرات

AR 23DIM
S& NAME DIM23




ا

كتب الصيغة اللازمه اذا اردنا ان نخرج المعلومه التاليه ( هذا برنامج خاص بحساب الزكاة ) للمستخدم دون استخدام أدوات




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

FOR M = 2 TO 10 STep 2

FOR M 1 TO 10 Step 2


FOR M 1 TO 10 Step3

[النور السعودي]

اكتشف الخطأ في


Do while n<30
Print n
N=n+1
الخطأ :...................




For m= 1
Print m
Next
الخطأ :...................


. - ما نتيجة الجملة التالية
Print class(2)

[متميزه]

ابدأ بالترتيب


البرنامج اعطيته قيم لتخزن في المتغيرات A,B,C
A=4
B=6
C=10
بعدين اعطي قيم آخرى لتخزن في المتغير .. اذن تمسح القيمه القديمه وتخزن القيمه الجديده
A=B
A=C
راح يبقى بالبرنامج أخر قيمة تخزنت في المتغيرات A,B,C

عند طباعة Print للقيم A,B,C

ستكون النتيجة
10 7 10

------------------


الخطأ بالبرنامج حين اسندت قيمة عدديه في K=100 والمتغير k معرف على انه متغير نصي String

في التوضيح بالون الازرق اخطا حين ذكر ان المتغيرK ثابت حرفي بل هو متغير حرفي بدليل انه استخدم لتعريف Dim
------------------------

الخطأ في الصيغه

Dim X As Single
As تستخدم لربط اسم المتغير بنوعه اثناء تعريف المتغير

والصيغهDim Var As Type


Const B = 50
لتخزين القيمة 50 في الثابت B

وصيغة تعريف ثابت Const Const1 = Value

---------------


حلقات التكرار
المتغيرM يأخذ القيمة الاوليه للعد 10
الى القيمة النهائية للعد 50

بمقدار زيادة لدورة التكرار 20
ويطلب طباعة لقيمة المتغير M
Next انتهاء حلقة التكرار ... حتى لايستمر التكرار لكل اسطر البرنامج

فايكون سير البرنامج
المتغير يأخذ القيمة الاوليه للعد M=10
طباعة المتغيرM
10
انتهاء الحلقة
ليبدأ من جديد

المتغير يأخذ القيمة التالية باضافة مقدار الزياده M=10+20
طباعة المتغيرM
30
انتهاء الحلقة
ليبدأ من جديد

المتغير يأخذ القيمة التاليه للعد M=30+20
طباعة المتغيرM
50
انتهاء الحلقة
50 القيمة النهائيه للعد فايتوقف التكرار


-------------------



كما ذكرنا في اول برنامج عند طلب طباعة متغير تتم الطباعة لأخر قيمة تخزنت فيه
المتغير A اخذ قيمة 10
بعد ذلك اخذ قيمة 8
عند طباعة قيمة المتغير A تكون النتيجة 8


----------------


عرف مصفوفه اسمها A وعدد عناصرها 3 ونوعها عدد صحيح

اعطى قيم المصفوفه الاول الثاني الثالث
10 8 4

طلب طباعة العنصر الاول والثالث

فكانت النتيجة 10 4


-----------------


اعطى قيم المصفوفة وعددها 5

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

لكن مع حلقة التكرار نحتاج لتعريف متغير عددي يأخذ رقم العنصر

تبدأ الحلقة بـ صفر وتنتهي بـ عدد العناصر -1
For M = 0 TO 4


B (X تاخذ القيم B(0 , B(0+2 , B(2+2
B(0 , B(2 , B(4
القيمة النهائية للعد القيمة الاوليه للعد


ويتم التعويض عن كل من B(0 , B(2 , B(4
بقيم المصفوفه المخزنه سابقا


-------------------------

التعديل

انظر لنتيجة الاولى لانها القيمة الاوليه للعد السعوديه =B(2 قيم العد الاوليه 2
الاخيره لانها القيمة النهائية للعد الاردنيه = B(4 قيمة العد النهائية 4
النتائج الباقية لانها تساعدك في معرفة قيمة الزيادة المغربية = B(3 قيمة الزيادة 1 لان 2+1 = 3 القيمة الاوليه+ قيمة الزيادة
اما المتكرر (المملكة) فهو ثابت =B(0

[النور السعودي]

الله يعطيكي الف عافية ويوفقك ربي يا اخت متميزه وفعلا متميزه في شرحك
وفهمت عليكي وانا مادرست المنهج
الله يرزقك الجنه بإذنه تعالى وييسر عليكي كل عسير يارب
وان شاء الله ربي يسهل عليكي زي ما سهلتي عليه



فقط ياريت تكملي لي لي باقي حل الاسئلة اللي في مشاركه رقم 6 و 7 من نفس الموضوع
زودتها كثير بس اتحمليني
اسفه جدا
وشكرا شكرا شكرا
جزاكي الله الف خير

[متميزه]

Ali " = x"
يعتبر هذا المتغير

( عددي / منطقي / حرفي )




single لايجوز ان يكون اسم لمتغير بسبب
( لانه يتجاوز 255 حرف ـ لانه لم يبدأ بحرف هجاء انجليزي ـ لانه اسم محجوز )




المتغير هو اسم يدل على موقع مخزن داخل ذاكرة الحاسب يتم فيه تخزين قيمة هذا المتغير ( صح / خطأ )


لتصميم واجهة عربية نغير خاصية ( RIGHT TO LEFT ) الى القيمة True ( صح ـ خطأ )


في اداة زر الخيار يمكن للمستخدم اختيار خيار واحد فقط ( صح ـ خطأ )


نستخدم اداة check box لعرض قائمة مكونه من عناصر يختار المستخدم احدهم ( صح ـ خطأ )



عرف ثابث اسم الدولة بقيمة KSa

Const State=KSa

لتحديد المدخلات الخاصة بحساب محيط المستطيل علما بان محيط المستطيل = الطول x العرض على 2

أ الطول والعرض ب / الطول x العرض
ج / محيط المستطيل د / الطول X العرض على 2



تكون نتيجة المقارنه TURE
3+ 6 = >2*5 3+6=>3*3

3+6=<3*2 3+6 = > 3*6



تعتبر اسم صالح لتسمية المتغيرات

AR 23DIM
S& NAME DIM23




اكتب الصيغة اللازمه اذا اردنا ان نخرج المعلومه التاليه ( هذا برنامج خاص بحساب الزكاة ) للمستخدم دون استخدام أدوات
البرنامج مستخدم بالكتاب

Dim m As Single,z As Single
m = Text1.Text
z = 0.025 * m
If m > 1000 Then
z & " الزكاة= " = Text2.Text
Else
"البرنامج يقوم بحساب الزكاة لأكثر من 1000 ريال " = Text2.Text
End If
End Sub

لكن بما انه طلب من دون استخدام ادوات


Dim m As Single,z As Single
("ادخل المبلغ لاحتساب الزكاة" )m = InputBox
z = 0.025 * m
If m > 1000 Then
(z & " الزكاة= " ) MsgBox
Else
("البرنامج يقوم بحساب الزكاة لأكثر من 1000 ريال ") MsgBox
End If
End Sub



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

FOR M = 2 TO 10 STep 2

FOR M 1 TO 10 Step 2


FOR M 1 TO 10 Step3

[متميزه]

اكتشف الخطأ في

n=0
Do while n<30
Print n
n=n+1
loop
قيمة الابتدائيه لـ n
loop اعادة الاجراء مادام الشرط متحققا


For m= 1 TO 10
Print m
Next
القيمة النهائية للعداد


. - ما نتيجة الجملة التالية
Print class(2)

طباعة العنصر الثالث بالمصفوفه

[النور السعودي]

شكرا شكر شكرا
لوقفتك معايا
الصباح بإذنه تعالى اخليه يراجعها
وفقك الله ورعاكي اختي
ورزقك المولى

[متميزه]

العفو .. اعجبتني الاسئله فاتحمست معها

الله يوفقكم

[2011]

السلام عليكم
ارجو مساعدي
في تمرين بالكتاب اعطتنا استاذه الحاسب وعليه اربع درجات من المشاركه وانا حاولت احله بس ماقدرت لانه معقد ياليت تساعدوني : والسوال هو ..س1 :قم بصياغه جيدة لبرنامج يقوم بادخال العمله بالريال السعودي ومن ثم يحولها الى عمله بالدينار الكويتي.قم بتصميم البرنامج على نموذج واحد وحدد:
أ)تحليل عناصر المساله ؟
ب)التصميم على ورق خارجي؟


(ب) اذا ماعرفتوه عادي بس اهم شي( أ )
ارجووووووووكم ساعدوني اخر يوم السبت 19\1\1432

[2011]

اذا ماعرفتوه بساعدكوم بعض المعلومات وهي ان الدينار فيه 12 ريال

[متميزه]

تفضل هنـــــــــــــــــــآ (http://www.7asabco.com/showthread.php?t=11081)

[2011]

مشكووووره ..
الله يزاك خير ويجعله في موازين حسناتك يارب العالمين
اول كنت متعقده منه احل المدخلات والخرجات واوقف هههههه
اكرر شكري لك ياختي متميزه