الثوابت في باسكال
صفحة 1 من اصل 1
الثوابت في باسكال
الباسكال
الثوابت في الباسكال
الثوابت في الباسكال
لقد تعرفنا على طريقة تعريف متغيرات بالبرنامج لحفظ البيانات فيها حسب نوعها وذلك داخل التعريف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;
Admin- مدير الموقع
- الجنس :
البرج :
عدد المساهمات : 2787
السٌّمعَة : 116
تاريخ التسجيل : 15/09/2010
العمر : 39
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
اليوم في 21:20 من طرف Admin
» سجل في هذا الموقع واحصل على 10 دولار شهرياً بدون جهد ولا ايداع
الجمعة 19 أبريل 2024 - 12:05 من طرف Admin
» موقع للربح من النت من تعدين البيتكوين مجاناً وبدون إيداع وسحب الارباح الى منصات متعددة
الخميس 18 أبريل 2024 - 22:13 من طرف Admin
» دارات الكترونية عملية ومجربة
الأحد 14 مايو 2023 - 14:30 من طرف ramoo
» تطبيق اندرويد رائع للربح من الانترنيت من شركة موثوقة وقديمة في مجال الربح من النت
الأربعاء 15 فبراير 2023 - 23:44 من طرف Admin
» كتاب pdf عربي عن الرافعات الشوكية .. يرجى وضع الردود
الأحد 11 ديسمبر 2022 - 2:17 من طرف Admin
» افضل تطبيق اندرويد لمشاهدة قنوات التلفزيون ومتابعة مباريات كأس العالم مجاناً
الجمعة 25 نوفمبر 2022 - 2:09 من طرف Admin
» هل تريد الإعلان على الانترنيت عن موقعك او منتجك؟؟؟وهل تريد كسب المال من وضع الاخرين للاعلانات في موقعك؟؟؟
الأحد 13 نوفمبر 2022 - 7:45 من طرف Admin
» موقع بديل لغوغل ادسنس... ضع اعلانات في موقعك واحصل على الارباح
الأربعاء 9 نوفمبر 2022 - 6:43 من طرف Admin
» منتدى ربح أونلاين... منتدى جديد مختص بمجال الربح من الانترنيت.. نرجو دعمكم
الجمعة 4 نوفمبر 2022 - 5:31 من طرف Admin