الكلمة الأساسية If - Then

الهوى ماهو كلام · 04-30-2006, 06:02 مساءً

الكلمات الأساسية 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);

مبحرفى ذكرياتي · 10-22-2006, 03:33 مساءً

مشكور أخوي ويعطيك العافية وجزاك الله خيرا ...

pascal · 02-09-2007, 01:52 صباحاً

شكرا يا غالي

04-30-2006, 06:02 مساءً	#1 (permalink)
الهوى ماهو كلام اسرة ابن الخليج تاريخ التسجيل: Jul 2005 الدولة: K S A المشاركات: 4,844 معدل تقييم المستوى: 655	الكلمة الأساسية 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); من مواضيع الهوى ماهو كلام في المنتدى الجيش الإسلامي في العراق/ فلم قصف تجمعات العدو الأمريكي في أبو غريب رحبوا بحبيب قلبي سراااق القلوب أطفال للبيع على موقع إنترنت صيني !! أنواع الشـــباب عند إشارات المرور !! كيف تستخدم محرك البحث Google بشكل متقدم

10-22-2006, 03:33 مساءً	#2 (permalink)
مبحرفى ذكرياتي اسرة ابن الخليج تاريخ التسجيل: Jun 2006 الدولة: ذكرياتي المشاركات: 1,946 معدل تقييم المستوى: 1564	مشاركة: الكلمة الأساسية If - Then مشكور أخوي ويعطيك العافية وجزاك الله خيرا ... من مواضيع مبحرفى ذكرياتي في المنتدى [ تمبلت ] تلوين السكرول بار [ تمبلت ] إشتراك + بحث + كتابة موضوع بالقسم هاك الرد السريع للرسائل الخاصة vBulletin.v3.6.0.GoLd.NULL-Sc®iPt -=- TeAm صدور النسخة الذهبية 3.6.0 __________________ مبحرفى ذكرياتي

02-09-2007, 01:52 صباحاً	#3 (permalink)
pascal عضو جديد تاريخ التسجيل: Jan 2007 المشاركات: 2 معدل تقييم المستوى: 9	رد: الكلمة الأساسية If - Then شكرا يا غالي من مواضيع pascal في المنتدى

أدوات الموضوع
عرض نسخة صالحة للطباعة أرسل هذا الموضوع إلى صديق
طرق مشاهدة الموضوع
العرض العادي الانتقال إلى العرض المتطور الانتقال إلى العرض الشجري

المواضيع المتشابهه
الموضوع	كاتب الموضوع	المنتدى	مشاركات	آخر مشاركة
للمبتدئين في 3D Studio Max الأشكال الأساسية	ADMIN	دروس 3D Studio Max	23	10-07-2008 01:58 صباحاً
تحذير: المكونات الأساسية لمستحضرات التجميل قد تزيد التجاعيد	الأسرة والصحة	جمال و أناقة و مستحضرات تجميل	0	05-24-2008 02:04 صباحاً
خطوات الماكياج الأساسية	الأسرة والصحة	جمال و أناقة و مستحضرات تجميل	0	05-22-2008 02:00 صباحاً
ماذا تقول الكلمة (للأخت من العراق)	ناصر	ادب و فنون	2	10-16-2007 02:50 مساءً
:: إلغاء الخط السفلي تحت الكلمة ::	فاطمه	مشاكل وحلول الـ مواقع	4	06-05-2007 02:48 مساءً

	Sitemap \| Archive \| Tag Could
	$معهد مطور - ينتهي الإعلان بتاريخ 16\10\2008$

$منتديات نظرة حب - ينتهي الاعلان بتاريخ 6\11\2008$		$الرَّقائق دعوة لترقيق القلوب - ينتهي الاعلان بتاريخ 6\11\2008$
		$نغمات إنتظار الشادي - ينتهي الاعلان بتاريخ 6\11\2008$

الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)

الكلمة الأساسية If - Then

منتديات شبكة ابن الخليج