أساسيات البرمجة بلغة Pascal — هيكل البرنامج والمتغيرات والثوابت — الأولى ثانوي (شعبة تقني رياضي) — الإعلام الآلي

🎯 أهداف التعلم

• التعرف على هيكل البرنامج في لغة Pascal
• التعرف على مفهوم المتغيرات والثوابت وأنواع البيانات
• تمييز العمليات الحسابية والمنطقية والعلائقية
• كتابة برامج بسيطة باستخدام عمليات الإدخال والإخراج
• تطبيق المفاهيم عبر تمارين محلولة

🔍 تمهيد

بعد أن تعلمنا مفهوم الخوارزمية وطرق تمثيلها بالمخططات الانسيابية والشيفرة الوصفية في الدرس السابق، حان الوقت لتحويل هذه الخوارزميات إلى برامج حاسوبية قابلة للتنفيذ. تعد لغة Pascal واحدة من أهم اللغات التعليمية المستخدمة في المنهاج الجزائري لتعلم أساسيات البرمجة، وهي لغة بسيطة ومنظمة تساعد على فهم المفاهيم البرمجية الأساسية.

💻 أولاً: هيكل البرنامج في لغة Pascal

يتكون أي برنامج مكتوب بلغة Pascal من الأجزاء التالية:

1. رأس البرنامج (Program Heading): يبدأ بكلمة Program متبوعة باسم البرنامج.
2. قسم الإعلانات (Declaration Section): وفيه نصرح عن:
   • Uses — استيراد المكتبات (مثل Crt)
   • Const — تعريف الثوابت
   • Var — تعريف المتغيرات
   • Type — تعريف أنواع بيانات جديدة
3. قسم الأوامر (Statement Section): ويبدأ بـ Begin وينتهي بـ End. (بنقطة).

Program HelloWorld;
Uses Crt;
Var
  name: String;
Begin
  ClrScr;
  Write('أدخل اسمك: ');
  ReadLn(name);
  WriteLn('مرحباً بك ', name, ' في عالم البرمجة!');
  ReadLn;
End.

📊 ثانياً: أنواع البيانات الأساسية في Pascal

📝 ثالثاً: الثوابت (Constants)

الثابت هو قيمة لا تتغير أثناء تنفيذ البرنامج، ويعرف باستخدام Const:

Program ConstDemo;
Const
  Pi = 3.14159;
  Max = 100;
Var
  r, area: Real;
Begin
  Write('أدخل نصف القطر: ');
  ReadLn(r);
  area := Pi * r * r;
  WriteLn('مساحة الدائرة = ', area:0:2);
  ReadLn;
End.

🧮 رابعاً: العمليات في Pascal

1. العمليات الحسابية:

2. العمليات العلائقية (المقارنة):

3. العمليات المنطقية:

📥📤 خامساً: عمليات الإدخال والإخراج

📝 سادساً: التنسيق في الطباعة

WriteLn(value:total_width:decimal_places);
// مثال:
WriteLn(area:0:2);  // يطبع رقمين بعد الفاصلة

Program Temperature;
Var
  c, f: Real;
Begin
  Write('أدخل درجة الحرارة بالسيلسيوس: ');
  ReadLn(c);
  f := (c * 9 / 5) + 32;
  WriteLn(c:0:2, '°C = ', f:0:2, '°F');
  ReadLn;
End.

Program Calculate;
Var
  a, b, c, S: Integer;
  P: LongInt;
  Moy: Real;
Begin
  Write('أدخل العدد الأول: '); ReadLn(a);
  Write('أدخل العدد الثاني: '); ReadLn(b);
  Write('أدخل العدد الثالث: '); ReadLn(c);
  S := a + b + c;
  P := a * b * c;
  Moy := S / 3;
  WriteLn('المجموع = ', S);
  WriteLn('الجداء = ', P);
  WriteLn('المعدل = ', Moy:0:2);
  ReadLn;
End.

📍 دروس مشابهة:

• الخوارزميات — مفهومها وطرق تمثيلها (المخطط الانسيابي والشيفرة الوصفية) — الأولى ثانوي (شعبة تقني رياضي) — الإعلام الآلي
• أنظمة التشغيل: مفهومها ووظائفها وأنواعها – الأولى ثانوي (شعبة تقني رياضي) – الإعلام الآلي