Make your own free website on Tripod.com

الدرس الثالث : المنطق والشرط

في اللغة العربية ندرس ما يعرف بالشرط ، ويتكون مما يلي :

إذا كان الجو ملبدا بالغيوم ، فإنه من المحتمل مطره .

أداة الشرط

إذا تسمي

فعل الشرط

الجو ملبدا بالغيوم 

جواب الشرط

من المحتمل مطره

 

وتقول الرياضيات أن هناك أنواع للجملة فهناك جمل منطقية أي يمكن الحكم عليه بالصواب أو الخطأ ، وأخري تكون مفتوحة لا نستطيع الحكم عليها بالصواب والخطأ ، لنسبية الحكم عليها .

 

أمثلة

ليست جملة لأن السيارة قد تكون جميلة بالنسبة للبعض وغير جميلة بالنسبة للبعض الآخر .

سيارتي جميلة

جملة لأن الجميع يجمع علي أن 2 < 3

2 < 3

لأنه قد يكون بعض الصينيون طوال القامة .

كل الصينيون قصار القامة .

جملة لأنها حقيقة يقرها الجميع .

الشمس تطلع من الشرق.

جملة لأن الجميع يجمع علي أن الثابت "موز" لا يساوي الثابت "برتقال"

"موز" = "برتقال"

جملة لأن الجميع يجمع علي عدم تساوي الثابت الحرفي والثابت العددي .

"2"=2

 

ولا شك أننا نهتم هنا بالجمل التي تأخذ الشكل الرياضي أي تحوي تعبير رياضي لأنه من السهل تمثيلها أو التعبير  في الفيجوال بيسك ، بل تستطيع أن تعبر بقوة عن الأحداث المنطقية باستخدام المؤثرات المنطقية :

 

أداة الشرط أو   OR :

إذا كان لديك قطعة عملتي علي أحد أوجهها صورة ، وعلي الوجه الآخر كتابة ، وأطحت بالقطعتين في الهواء ، فهل لك أن تخمن عندما تستقر القطعتين علي الأرض ما السطح الظاهر لك ؟ ما لأوجه الأخرى التي من المحتمل أن تراها ؟

 

قطعة العملة الثانية

قطعة العملة الأولي

صورة

صورة

كتابة

صورة

صورة

كتابة

كتابة

كتابة

 

وأداة الربط أو OR تعني بالحكم علي تعبيرين -أو أكثر- فمثلا :

نتيجة الحكم

 

أحمد في القاهرة  أو في الإسكندرية

= صواب

(صواب أو صواب)

2 < 3 أو 2 < 5

= صواب

(صواب أو خطأ)    

2 ³ 3   (2 < 3 أو 2 = 3)

= خطأ

(خطأ أو صواب) 

2 > 3 أو 5 < 7

= خطأ

(خطأ أو خطأ)    

2 £ 3   (2 > 3 أو 2 = 3)

 

فأداة الشرط المنطقية تعطي حكم صواب طالما أن أحد الجملتين صحيح ، وتعطي حكم خطأ إذا كان كلتا الجملتين خطأ .

 

مثال توضيحي :

 

 

 

   

لعلك تذكر شكل فن المعروف لك عند دراسة تقاطع مجموعتين لندرس احتمال صواب أداة الشرط أو ، فإذا وجد عنصر لا ينتمي لكلتا المجموعتين ، فوقوع العنصر في المجموعة س  ، يعني صواب الجملة أو ، ووقوع العنصر في المجموعة ص يعني صواب الجملة أو ، وإذا وقع العنصر في تقاطع المجموعتين س Ç ص  فهذا يعني صواب الجملة  أو OR ، والحالة الوحيدة  هي أن يقع العنصر خارج المجموعتين -اللون البرتقالي- وهنا لا ينتمي العنصر لأي من المجموعتين .

 

مثال توضيحي :

تأمل الشكل التالي  :

لا يدخل

يدخل

يدخل

يدخل

مغلق أو مغلق

مغلق أو مفتوح

مفتوح أو مغلق

مفتوح أو مفتوح

خطأ أو خطأ

خطأ أو صواب

صواب أو خطأ

صواب أو صواب

لنفرض أن لدينا حديقة وبها بابين فمتي يمكن للأرنب الدخول للحديقة ؟ لا شك أن الأرنب يمكنه أن يدخل الحديقة في حال فتح أحد الأبواب (البابين مفتوحين - الأحمر مفتوح والأزرق مغلق ، والأحمر مغلق ، والأزرق مفتوح ) أما في حالة غلق كلا البابين ، فإن الأرنب لن يتمكن من الدخول ، فشرط الدخول يتحقق في حالة فتح أحد الأبواب (صواب) .

 

وفيما يلي جدول يوضح قيمة الصحة الجملة المركبة لأداة الربط المنطقية OR  

س Ú ص

ص

س

صواب

صواب

صواب

صواب

خطأ

صواب

صواب

صواب

خطأ

خطأ

خطأ

خطأ

حمل برنامج تعليم أدوات المنطق ، ولدي عمله سوف تظهر النافذة التالية :

أعط قيمة قيمتين عدديتين ، واختر أداة الربط المناسبة ، وخمن الحل وستجد أن الكمبيوتر قدم لك قيمة الصحة مباشرة ، وأعط قيم للمربع الأيسر ، بنفس الطريقة ، وحاول أن تخمن أثر أداة الربط OR وستجد الناتج .

 

وفي لغة البيسك :

X=5 :y=10

IF X<= 6 OR Y>6 THEN ANSER$=" "نعم

مثال :

ابدأ مشروع جديد في فيجوال بيسك وضع علي نافذة المشروع ثلاث أزار أوامر حسب الجدول التالي :

Command1

Command1

Command1

CmdRun

Name

CmdCls

Name

CmdExit

Name

نفذ

Caption

امسح

Caption

خروج

Caption

 

حتى تبدو شكل نافذة المشروع كما يلي :

 

ففي منطقة الإعلانات اكتب :

Option Explicit

 Dim x As Integer

 Dim y As Integer

 Dim answer As String

 

وفي حدث  النقر للزر CmdExit أكتب :

 

Private Sub CmdExit_Click()

End

End Sub

وفي حدث النقر للزر CmdCls اكتب :

Private Sub CmdCls_Click()

Form1.Cls

End Sub

لعلك تذكر من نظام التشغيل الأمر CLS فهو يمسح الشاشة ، كذلك فهو في لغة البيسك يمسح ، ولكنه هنا مقترن بنافذة المشروع Form1 لذا فهو يمسح نافذة المشروع . هل يمسح الأدوات الموجودة علي النافذة ؟ .

وفي حدث النقر علي الزر CmdRun اكتب الشفرة التالية :

Private Sub cmdrun_Click()

x = 5: y = 10

If x <= 6 Or y > 6 Then answer = "نعم"

Form1.Print answer

End Sub

  العب مع هذا المشروع لبعض الوقت . 

 

أداة الربط المنطقية و And:

تعتبر أداة الربط المنطقية "و" and  من الأدوات المنطقية الهامة ، وتعطي نتيجة صحيحة في حالة صواب التعبيرين فقط  

 

 

 

ص Çس

  فبلغة المجموعات هي عبارة عن تقاطع المجموعتين ، بينما أداة الربط أو هي اتحاد المجموعتين ، فتعتبر العبارة المركبة من أداة الربط المنطقية "و" and صحيحة في حالة صحة التعبيرين فقط ولا تعتبر صحيحة في الاحتمالات الأخرى .

 

هل يمكنك أن تخمن متي يستطيع الأرنب الدخول للحديقة ؟

لا يدخل

يدخل

يدخل

يدخل

مغلق و مغلق

مغلق و مفتوح

مفتوح و مغلق

مفتوح أو مفتوح

خطأ و خطأ

خطأ و صواب

صواب و خطأ

صواب أو صواب

خطأ

خطأ

خطأ

صواب

 

لا شك أن الرسم يوضح أن الأرنب يمكنه الدخول في حالة واحدة وهي فتح البابين ، أما باقي الحالات فلن يتمكن من الدخول .

 

والجدول التالي يوضح قيمة الصحة  للعبارة أو الجملة المركبة من أداة الربط المنطقية "و" and :

 

س Ù ص

ص

س

صواب

صواب

صواب

خطأ

خطأ

صواب

خطأ

صواب

خطأ

خطأ

خطأ

خطأ

  حاول أن تجرب الأمثلة التالية مع برنامج تعليم المنطق

أمثلة من  البيسك :

2 <3 and 4<6

2 <3 and 4 >5

2<1 and 4 <5

2<1 and 4 > 6

أداة النفي ~ Not

تغير أداة الربط المنطقية ليس Not من حالة الجملة من الصواب إلي الخطأ والعكس

Not 2>4

True

Not 3 <2

True

Not 5<10

False

 

ففي منطقة الإعلانات اكتب :

Option Explicit

 Dim x As Integer

 Dim y As Integer

 Dim answer As String

 

وفي حدث  النقر للزر CmdExit أكتب :

 

Private Sub CmdExit_Click()

End

End Sub

وفي حدث النقر للزر CmdCls اكتب :

Private Sub CmdCls_Click()

Form1.Cls

End Sub

 

لعلك تذكر من نظام التشغيل الأمر CLS فهو يمسح الشاشة ، كذلك فهو في لغة البيسك يمسح ، ولكنه هنا مقترن بنافذة المشروع Form1 لذا فهو يمسح نافذة المشروع . هل يمسح الأدوات الموجودة علي النافذة ؟ .

وفي حدث النقر علي الزر CmdRun اكتب الشفرة التالية :

Private Sub cmdrun_Click()

x = 5: y = 10

If x <= 6 and y > 6 Then answer = "نعم"

Form1.Print answer

End Sub

 
صفحة البداية ما الجديد حاليا ؟ فيجوال بيسك للتطبيقات موضوعات متقدمة فيجوال بيسك لتلاميذ المدارس

أرسل استفسارك أو تعليقك  الآن

أرسل رسالتك أو استفسارك الآن

أكتب ملاحظتك أو استفسارك أو تعليقك أو ابحث عن مواقع فيجوال بيسك أخري و غيره.....

حقوق الطبع والنسخ محفوظة  © 2000 مركز الكمبيوتر التربوي
آخر تعديل: April 18, 2001