البرمجة بلغة الفيجول بيسك لصف ثالث ثانوي

[shamal]

ب- صيغة ( IF - THEN - END IF )
IF condition THEN
….
statements
….
END IF
وهذه الصيغة تعني بتنفيذ مجموعة من الأوامر إذا تحقق الشرط (condition) بدلاً من تنفيذ أمر واحد، والمثال التالي يوضح ذلك:
IF D >= 50 THEN
Text1 = "ناجح"
Text2 = " مبروك"
END IF
في هذا المثال إذا كانت الدرجة ( D ) أكبر من أو تساوي 50 فإن البرنامج سوف يقوم بتخزين قيمة (ناجح ) في المتغير الحرفي ( Text1 )، وقيمة (مبروك) في المتغير الحرفي (Text2).
ج- صيغة (IF - THEN - ELSE) :
IF condition THEN
….
statements1
….
ELSE
….
statements2
….
END IF
تختلف هذه الصيغة عن الصيغتين السابقتين، وذلك أن هذه الصيغة تنفذ مجموعة الأوامر (statements1) عندما يتحقق الشرط(condition)، أما عندما لا يتحقق الشرط فإنها تنفذ مجموعة الأوامر (statements2)، وهذا المثال يوضح ذلك:
IF D >= 50 THEN
Text1 = "ناجح "
ELSE
Text1 = "راسب"
END IF
يوضح هذا المثال أنه إذا كانت الدرجة ( D ) أكبر من أو تساوي 50 فإن البرنامج سوف يقوم بتخزين قيمة (ناجح ) في المتغير الحرفي ( Text1 ) ، أما إذا كانت الدرجة ( D ) أصغر من 50 فإن البرنامج سوف يقوم بتخزين قيمة (راسب) في المتغير الحرفي (Text1).
د- صيغة (IF - THEN - ELSEIF) :
IF condition THEN
….
statements1
….
ELSEIF condition THEN
….
statements2
….
ELSE
….
END IF
وتختلف هذه الصيغة عن الصيغة الثالثة في أنها تضع شرطاً جديداً عندما لا يتحقق الشرط السابق ، والمثال التالي يوضح هذه الصيغة :
IF D >= 90 THEN
Text1 = " ممتاز"
ELSEIF D >= 80 THEN
Text1 = "جيد جدا"
ELSEIF D >= 70 THEN
Text1 = "جيد"
ELSEIF D >= 60 THEN
Text1 = "مقبول"
Else
Text1 = "راسب"
END IF

ومعنى هذا المثال أنه إذا كانت الدرجة ( D ) أكبر من أو تساوي 90 (تحقق الشرط الأول) فإن البرنامج سوف يقوم بتخزين قيمة (ممتاز) في المتغير الحرفي (Text1)، أما إذا كانت الدرجة ( D ) أكبر من أو تساوي 80 فإن البرنامج سوف يقوم بتخزين قيمة (جيد جداً) في المتغير الحرفي (Text1 ) ، أما إذا كانت الدرجة (D ) أكبر من أو تساوي 70 فإن البرنامج سوف يقوم بتخزين قيمة (جيد) في المتغير الحرفي ( Text1)، أما إذا كانت الدرجة ( D ) أكبر من أو تساوي 60 فإن البرنامج سوف يقوم بتخزين قيمة (مقبول) في المتغير الحرفي (Text1) ، أما إذا كانت الدرجة غير ما سبق فإن البرنامج سوف يقوم بتخزين قيمة (راسب) في المتغير الحرفي (Text1).
ملاحظة /
في صيغة (IF - THEN - ELSEIF) إذا تحقق أحد الشروط فإن الحاسب ينفذ العملية ، ثم يذهب مباشرة إلى نهاية جملة ( END IF ) ولا يقوم بالتحقق من الشروط الأخرى.