التعبيرات والعمليات في لغة Pascal: العوامل الحسابية والمنطقية وعمليات الإدخال والإخراج (Read, Write) مع تمارين محلولة — الإعلام الآلي — الأولى ثانوي — المنهاج الجزائري

التعبيرات والعمليات في لغة Pascal: العوامل الحسابية والمنطقية وعمليات الإدخال والإخراج (Read, Write)

الأهداف التعليمية:

• التعرف على أنواع البيانات الأساسية في لغة Pascal
• استخدام العوامل الحسابية والمنطقية وعوامل المقارنة
• كتابة تعبيرات بسيطة ومركبة
• استخدام أوامر الإدخال والإخراج (Read, Readln, Write, Writeln)

1. تمهيد

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

2. أنواع البيانات الأساسية في Pascal

3. التعريف بالمتغيرات

Var
  nombre : Integer;
  moyenne : Real;
  note : Real;
  lettre : Char;
  nom : String[50];
  valide : Boolean;

4. العوامل الحسابية (Opérateurs arithmétiques)

5. العوامل المنطقية وعوامل المقارنة

أ. عوامل المقارنة (Opérateurs relationnels):

ب. العوامل المنطقية (Opérateurs logiques):

6. عمليات الإدخال والإخراج

أ. الإخراج (Write / Writeln):

Write('أهلاً بالعالم');   { يطبع النص ويبقى المؤشر في نفس السطر }
Writeln('مرحباً');        { يطبع النص ثم ينتقل إلى سطر جديد }
Writeln('النتيجة = ', x); { يطبع نصاً ثم قيمة متغير }

ب. الإدخال (Read / Readln):

Var
  age : Integer;
  nom : String;
Begin
  Write('أدخل اسمك: ');
  Readln(nom);
  Write('أدخل عمرك: ');
  Readln(age);
  Writeln('مرحباً ', nom, '، عمرك ', age, ' سنة.');
End.

7. أمثلة تطبيقية

مثال 1: برنامج لحساب مجموع عددين:

Program Somme;
Var
  a, b, s : Integer;
Begin
  Write('أدخل العدد الأول: '); Readln(a);
  Write('أدخل العدد الثاني: '); Readln(b);
  s := a + b;
  Writeln('مجموع العددين = ', s);
  Readln;  { انتظار حتى يضغط المستخدم Enter }
End.

مثال 2: التحقق من حالة العدد (زوجي أم فردي):

Program PairImpair;
Var
  n : Integer;
Begin
  Write('أدخل عدداً: '); Readln(n);
  If (n Mod 2 = 0) Then
    Writeln(n, ' عدد زوجي')
  Else
    Writeln(n, ' عدد فردي');
  Readln;
End.

8. تمارين محلولة

التمرين 1: اكتب برنامجاً بلغة Pascal يحسب مساحة ومحيط دائرة علماً أن نصف قطرها r يدخله المستخدم (استخدم π = 3.14).

الحل:

Program Cercle;
Var
  r, surface, perimetre : Real;
Begin
  Write('أدخل نصف القطر: '); Readln(r);
  surface := 3.14 * r * r;
  perimetre := 2 * 3.14 * r;
  Writeln('مساحة الدائرة = ', surface:0:2);
  Writeln('محيط الدائرة = ', perimetre:0:2);
  Readln;
End.

ملاحظة: (surface:0:2) تعني طباعة العدد بمنزلتين عشريتين.

التمرين 2: أكمل الفراغ: نتيجة العملية 17 Mod 4 = ……

الحل: 17 ÷ 4 = 4 ويتبقى 1، إذاً 17 Mod 4 = 1

التمرين 3: اكتب تعبيراً منطقياً يتحقق مما إذا كان العدد x محصوراً بين 10 و 20 (بما فيهما).

الحل: (x >= 10) And (x <= 20)

9. خلاصة

دروس مشابهة:

• أساسيات البرمجة بلغة Pascal — هيكل البرنامج والمتغيرات والثوابت — الأولى ثانوي — الإعلام الآلي
• الخوارزميات — مفهومها وطرق تمثيلها (المخطط الانسيابي والشيفرة الوصفية) — الأولى ثانوي — الإعلام الآلي
• تمثيل المعلومات في الحاسوب — الأولى ثانوي — الإعلام الآلي