[ahmad12]

سؤال آخر :

س2: في الجمل الشرطية النوع التالت
if_Then_Else_End If
ممكن في أي حالة نستخدمه
لأنو موجود عنا بالكتاب لكن بدون أمثله

الإجابة

تعتبر جمله If من الجمل الشرطيه نظرا لوجود شرط في صياغتها ويتم اختبار تحقق هذا الشرط (اي ناتج الشرط اما صواب True او خطأ False)
وفي حاله تحققه (اي ناتج الشرط صواب True) تنفذ الاوامر التي تلي كلمه Then اما في حاله عدم تحققه (اي ناتج الشرط خطأ False ) تنفذ الاورامر التي تلي كلمه Else

وصيغتها كالتالي :-

If Condition Then
....................
Codes
.....................
Else
.....................
Codes1
......................
End If

حيث Condition هي الشرط

Codes هي الاوامر التي تنفذ اذا تحقق الشرط او نتيجه الشرط صواب True

Codes1 هي الاوامر التي تنفذ اذا لم يتحقق الشرط او نتيجه الشرط خطأ False

مثال: مدرس يحتاج لكتابة برنامج يقوم بطباعة ناجح " pass " إذا كانت علامة الطالب " mark " أكبر من أو يساوي 50 ويطبع راسب " Fail " إذا كانت علامة الطالب أقل من 50.

طبعا في هذا السؤال يظهر لنا وجود شرط وهو " اذا كانت العلامة أكبر من أو يساوي 50 " وبناء عليه سنستخدم الجملة الشرطية If...........Then.........Else.

Dim mark As Integer

هنا سنعطي للعلامة قيمة 52 وبذلك سيطبع البرنامج Pass

mark = 52

اذا كانت العلامة اكبر من او يساوي 50 اطبع ناجح

If mark >= 50 Then

Print "Pass"

وإلا اطبع راسب
Else

Print "Fail"

End If