المسيلة M'sila 28 لكل الجزائريين و العرب
 
الرئيسيةالتسجيلالأعضاءس .و .جمكتبة الصوردخول

شاطر | 
 

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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
ouali
مدير منتدى المسيلة
مدير منتدى المسيلة
avatar

الجزائر : الجـزائـــــــــر
ذكر عدد الرسائل : 2373
تاريخ الميلاد تاريخ الميلاد : 24/12/1982
العمر : 34
الموقع : http://msila.sd.ma
المزاج : الحمد لله
الدولة : الجزائر
نقاط : 41164
تقييم الاعضاء لك : 56
تاريخ التسجيل : 30/08/2007

مُساهمةموضوع: الكلمة الأساسية IF - THEN   الجمعة مارس 21, 2008 10:05 pm

الكلمات الأساسية 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);
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://msila.4umer.net
 
الكلمة الأساسية IF - THEN
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
المسيلة 28 لكل الجزائريين و العرب m'sila 28 :: ¤®§(§ منتدى البرامج والبرمجة §)§®¤ :: قسم البرمجة :: لغة دلفى delphi-
انتقل الى: