صفوف » صفوف لغات البرمجة » Delphi دلفي » الكلمة الأساسية IF - THEN

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

أضيف في: 11/08/2009

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

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

PHP CODE: 0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
[COLOR=#0000BB]<?php var

x:integer;

begin
x:=StrToInt(Edit1.Text)

if x>10 then

Label1.Caption:='عليك أن تدخل عدد من 1 -10';
end;
?> [/COLOR]

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

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

Visual Basic CODE: 0000
0001
0002
0003
0004
0005
0006
0007
0008
if x>10 then

begin

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

Edit1.text:= '10';

end;

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

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

Visual Basic CODE: 0000
0001
0002
0003
0004
0005

if x=0 then y:=0

else

y:=sin(x);