ملتقى المهندسين السوريين
أهلاً بك زائرنا الكريم (زائرتنا الكريمة)... ملتقى المهندسين السوريين يرحب بك و يدعوك للانضمام إلى فريقه للمساهمة في تطوير المنتدى و تحسينه أكثر فأكثر... إن تسجيلك في المنتدى يعطيك فرصة أكبر للاستفادة من محتواه...

يمكنك الآن المشاركة بمسابقة المنتدى وربح جوائز قيمة من خلال الرابط التالي http://shamra.sy/?c_ref=Ghadeer85

الثوابت في باسكال

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

الثوابت في باسكال

مُساهمة من طرف Admin في 7/3/2012, 3:31 pm

الباسكال
الثوابت في الباسكال
لقد تعرفنا على طريقة تعريف متغيرات بالبرنامج لحفظ البيانات فيها حسب نوعها وذلك داخل التعريف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;


شارك بمسابقة شمرا واربح لابتوب بمواصفات عالية جداً وعشرات الجوائز الأخرى
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

Admin
مدير الموقع
مدير الموقع

الجنس : ذكر
البرج : الحوت
عدد المساهمات : 2760
السٌّمعَة : 116
تاريخ التسجيل : 15/09/2010
العمر : 31

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


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