الكلمة الأساسية IF - THEN

الكلمات الأساسية Else – If , Then





هناك بعض مظاهر البرمجة المشتركة في كل لغات البرمجة ومنها عبارة الشرط if


تستخدم هذه العبارة لفحص شرط معين وثم تنفذ شيفرة معينة إذا تحقق الشرط True وعدم تنفيذه في حالة عدم تحقق الشرط








var



x:integer;



begin

x:=StrToInt(Edit1.Text)


if x>10 then




Label1.Caption:='عليك أن تدخل عدد من 1 -10';

end;







في المثال السابق يقوم البرنامج بطلب إدخال من المستخدم ويقارن المدخل بشرط بحيث إذا كان الشرط x>10 متحققا وكان العدد المدخل أكبر من عشرة ينفذ البرنامج الجملة بعد الشرط ويطلب بإدخال عدد أصغر من 10











تنفيذ عدة عبارات داخل الشرط





لنفترض أن لديك عدة سطور من البرمجة يجب أن تنفذ عندما يكون الشرط محققاً عندها سوف تحتاج إلى begin..end لتجعل هذه السطور تشكل كتلة واحدة يكون داخلها تنفيذ الشرط إذا كان متحقق







if x>10 then



begin



Label1.Caption:='عليك أن تدخل عدد من 1 -10';



Edit1.text:= '10';



end;








إستخدام الشرط Else





أحياناً تحتاج لعمل تنفيذ ما إذا كان الشرط محققاً ولكن تريد البرنامج بأن يؤدي عملاً آخر إذا كان الشرط غير محقق مثل:







if x=0 then y:=0



else



y:=sin(x);