by الباسكال الثوابت في الباسكال
الباسكال
الثوابت في الباسكال
الباسكال
الثوابت في الباسكال
لقد تعرفنا على طريقة تعريف متغيرات بالبرنامج لحفظ البيانات فيها حسب نوعها وذلك داخل التعريف 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;
ولكن ماذا لو أردنا تعريف بيانات تكون قيمتها ثابته طوال
عمل البرنامج فإننا نستخدم لتعريفها
نوع جديد داخل الأمر 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;
» ترحيب بالأعضاء
» برنامج يعلمك لغة الدلفي بشكل مثير
» دليل هاتف الدلفي
» سلسلة فيبوناتشي
» كود جميل ورائع جربه واعرف بنفسك ماذا يعمل
» المبرمجون مستائون من الواجهة الرسومية لويندوز ٨ (Windows 8)(نسخة المطورين)
» حزيرة للعلماء
» اسباب تجعل الكمبيوتر يعمل بشكل بطيء
» دروس المبتدئين.....الدرس الأول (تعليم القص)