24 - سلسلة تبسيط البرمجة – برنامج استخدام تعليمة الشرط
السلام عليكم ورحمة الله وبركاته
بسم الله الرحمن الرحيم
سننتقل إلى المثال في الدرس :
08 - سلسلة تبسيط البرمجة - آلية الشرط
وفي الدرس الذي يليه سنكمل بقية المثال في الدرس 07
ورد في الدرس 08 المثال التالي :
بعد أن قامت الأم بتطبيق برنامجها على طفلها لعدة ساعات أصبح شاطر في العمليات الحسابية
الآن أرادت الأم أن تزيد من مستوى التمرين فأفهمت الطفل أنهم سيقومون بالتالي :
الأم تعطيه رقمين فقط فإذا كان الرقم الأول أكبر من الثاني يقوم الطفل بالطرح وإعادة الناتج
وإلا يقوم الطفل بالجمع ثم إعادة الناتج
أي أن الطفل سيقوم بتلقي الرقم الأول ثم ينتظر
ثم يتلقى الرقم الثاني
بعدها يجري مقارنة سريعة في ذهنه للعددين فإن وجد الأول أكبر يطرح الثاني منه ويقول الناتج
وإلا يقوم بالجمع ثم ينطق بالناتج
بعد أن فهم الطفل ما الذي سيفعله وأنه مستعد للتدريب بدأت الأم :
5 2
فقارن الطفل العددين فوجد 5 < 2 فقام بتطبيق عملية الطرح 5-2 وكان الجواب 3
ثم قالت الأم :
3 6 ففحص الطفل في ذهنه هل (3 < 6) فكان الجواب لا حينها طبق الاحتمال الثاني وهو الجمع فقال 9
ثم قالت الأم :
4 4
هنا فحص الطفل الشرط هل (4 < 4) فكان الجواب خطأ أي أن الشرط الذي وضعته الأم لم يتحقق فانتقل إلى الاحتمال الثاني وهو تطبيق عملية الجمع فقال 8
قد تتساؤلون لماذا لم يتوقف الطفل عن التطبيق حيث أن العددان متساويان أي أن العدد الأول ليس أكبر وكذلك ليس أصغر
وأقول أن الأم أفهمته من البداية أن يتحقق من الشرط، فإن اختل الشرط، ينتقل مباشرة للاحتمال الثاني بغض النظر عما إذا كان هنا تفرع للشرط
لأنها قالت له (وإلاّ) ولم تقل له : أما إذا كان الثاني أكبر فانتقل للاحتمال الثاني
لأنها لو قالت ذلك لكان لدينا احتمال ثالث - وهو احتمال المساواة - لم تحدد له ما هو التصرف في هذه الحالة
لذا فالشرط يكون لدينا احتمالان إما أن يتحقق أو لا
سنقوم بتحويل هذه الخوارزمية إلى برنامج كما يلي :
Module Module1
Sub Main()
Dim X1, X2, Result As Integer
Console.WriteLine("Enter First Number :")
X1 = Console.ReadLine()
Console.WriteLine("Enter Second Number :")
X2 = Console.ReadLine()
If X1 > X2 Then
Result = X1 - X2
Console.WriteLine(String.Format("The subtraction of {1} from {0} is : {2}", X1, X2, Result))
Else
Result = X1 + X2
Console.WriteLine(String.Format("The sum of {0} and {1} is : {2}", X1, X2, Result))
End If
Console.ReadLine()
End Sub
End Module
نلاحظ أن النصف الأول هو ذاته في البرنامج السابق لأن المتغيرات والإدخالات نفسها
أما الاختلاف الآن أنه لدينا شرط وبناء على تحققه نريد من البرنامج أن ينفذ شيء مختلف
لهذا استخدمنا القالب الشرطي المكون من الكلمات المحجوزة If Then Else End If
و هي تعني أن يقوم بالمقارنة في التعبير الذي يأتي بعد كلمة If فإن كانت النتيجة صح فالشرط قد تحقق حينها ينتقل لتنفيذ البلوك الذي بعد كلمة Then
وفي حالة كانت النتيجة خطأ أي أن الشرط لم يتحقق حينها يجب أن يقفز عن بلوك Then و ينتقل التنفيذ مباشرة للبلوك الذي يلي Else
وكترجمة لما سبق
إذا كان X1 أكبر من X2 حينها
نفذ كذا
وإلا
نفذ كذا
وبهذا نستطيع ومن خلال تعليمة الشرط أن نغير مسار التنفيذ بناء على شروط مبنية على الحالة الراهنة للمتغيرات حين وصول التنفيذ إليها
جربوا إدخال مرة القيمة الأولى أكبر من الثانية
ومرة الثانية أكبر من الأولى
ومرة متساويين وراقبوا النتائج
الواجب :
عمل بلوك شرطي جديد داخل بلوك Else يفحص إن كان المتحول أصغر تماما يطبع ناتج الجمع
وإلا يطبع ناتج الجداء ونكتب في العبارة مربع العدد كذا هو كذا وذلك لأنه في هذه الحالة العددان متساويان وكأننا ضربنا العدد بنفسه
دمتم بخير