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

التعارف و الصداقة و الحوار


 
الرئيسيةأحدث الصورالتسجيلدخول

 

 الدرس الرابع : الثوابت في البرنامج

اذهب الى الأسفل 
كاتب الموضوعرسالة
المدير العام
Admin
المدير العام


انثى
عدد الرسائل : 289
العمر : 49
تاريخ التسجيل : 02/12/2008

الدرس الرابع : الثوابت في البرنامج Empty
مُساهمةموضوع: الدرس الرابع : الثوابت في البرنامج   الدرس الرابع : الثوابت في البرنامج I_icon_minitimeالإثنين يناير 19, 2009 7:23 am

الدرس الرابع : الثوابت في البرنامج



لقد تعرفنا على طريقة تعريف متغيرات بالبرنامج لحفظ البيانات فيها حسب نوعها وذلك داخل التعريف Var


ولكن ماذا لو أردنا تعريف بيانات تكون قيمتها ثابته طوال عمل البرنامج فإننا نستخدم لتعريفها


نوع جديد داخل الأمر Const وتكون على الشكل التالي


Const

A = 30 ;


B = 9.6 ;


C = “Name”;


- طوال عمل البرنامج سيسند للثابت A القيمة 30 ولا يمكن تغيير هذه القيمة خلال البرنامج أبدا


- نلاحظ أن هناك علامة مساواة = بين إسم الثابت وقيمته بينما في تعريف Var المتغيرات هناك علامة : بين إسم المتغير ونوعه


- الثابت المعرف يعامل في البرنامج على أنه كلمة محجوزة Reserved Word

Program Circle(input,output);


Const


Pi=3.14;


Var


Radius : integer ;


Circum , area : real ;


Begin


Writeln ( ‘Enter Radius’);


Read ( radius);


Circum := 2*pi* radius ;


Area := pi * radius * radius ;


Writeln (‘The value of circum is’,circum);


Writeln (‘The value of area is’,area);


End.


في البرنامج السابق قمنا بتعريف ثابت في البرنامج بالإسم pi وهو يتخذ دائما القيمة 3.14


إستخدام الثوابت في البرنامج يسهل عمل البرنامج ويسهل تعديل القيم بسهولة بخاصة في البرامج الكبيرة


لو أردنا تنفيذ البرنامج السابق ولكن بدون الإعتماد على الثوابت فسيكون البرنامج على الشكل


Program Circle(input,output);


Var


Pi : real ;


Radius : integer ;


Circum , area : real ;


Begin


Write (‘Enter Value of pi :’);


Readln (pi);


Writeln ( ‘Enter Radius’);


Read ( radius);


Circum := 2*pi* radius ;


Area := pi * radius * radius ;


Writeln (‘The value of circum is’,circum);


Writeln (‘The value of area is’,area);


End;
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://ahlamannas.yoo7.com
 
الدرس الرابع : الثوابت في البرنامج
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» تعلم برمجة Pascal الدرس الثالث - المتغيرات و الثوابت
» الدرس الأول : أساسيات في الباسكال
» الدرس الثامن : التعابير الرياضية
» الدرس الثاني : أنواع البيانات في الباسكال
» الدرس الثالث : المتغيرات في برنامج الباسكال

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
التعارف و الصداقة و الحوار :: الكمبيوتر و الانترنت :: 

اخبار الكمبيوتر و الانترنات

-
انتقل الى: