Hicham Al Sayed ahmed

اهلا و سهلا بكم في منتدى تقنيات الحاسوب 2013

منتدى و عالم تقنيات الحاسوب و البرمجة وانظمة التشغيل و الصيانة 2013

تؤمن لكل من يحب ان يتعلم البرمجة و كل من يدرس في هذا الاختصاص برامج و مواضيع و افكار جديدة و كيفية العمل و الكثير و الكثير و ايضا تتيح لاي شخص ان ينضم لهذا المنتدى و خاصة طلاب تقنيات الحاسوب و انظمة التشغيل و الصيانة المادية و البرمجية
تعلم الفجوال بيسك - الدلفي - السي ++ - الباسكال و الكثير و الكثير

اطرح سؤالك على فريق العمل في الفيسبوك

تابعنا على الفيسبوك

مشاركة الموضوع عبر الفيسبوك

Log in

I forgot my password

Top posting users this week

Who is online?

In total there is 1 user online :: 0 Registered, 0 Hidden and 1 Guest :: 1 Bot

None


Most users ever online was 85 on Tue Nov 05, 2013 5:00 am

تابعنا على الفيسبوك


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

Share
avatar
سيد برتوكول
Administrator
Administrator

نقاط : 146584

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

Post by سيد برتوكول on Wed Dec 28, 2011 4:52 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;

    Current date/time is Fri Jan 18, 2019 10:58 am