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

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

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

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

أمثلة

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

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

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

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

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

مثال توضيحي :

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

مثال توضيحي :

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

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

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

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

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

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

X=5 :y=10

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

مثال :

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

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

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

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 من حالة الجملة من الصواب إلي الخطأ والعكس

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

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