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

من طرف **Admin** 7/3/2012, 12:46 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;