الإعلام الآلي — السلاسل النصية (Chaînes de caractères / Strings) في لغة Pascal — التعريف والدوال الأساسية مع تمارين محلولة — الإعلام الآلي — الأولى ثانوي — المنهاج الجزائري

أهداف الدرس

• التعرف على مفهوم السلاسل النصية (Strings) في لغة Pascal.
• معرفة كيفية تعريف المتغيرات النصية والدوال الأساسية لمعالجتها.
• قراءة وكتابة البرامج البسيطة لمعالجة النصوص.

1. تعريف السلسلة النصية

السلسلة النصية (String) هي متغير يخزن مجموعة من الأحرف (Chars) متتابعة. في Pascal نستخدم الكلمة string.

var
  nom : string;        { سلسلة طولها 255 حرف افتراضيا }
  adresse : string[50]; { سلسلة بطول أقصى 50 حرفا }

2. الدوال الأساسية للسلاسل النصية

الدالة	الوصف	مثال
Length(ch)	تعود طول السلسلة	Length(‘BAC’) = 3
Copy(ch, p, n)	تقطع n حرفا من الموضع p	Copy(‘Bac2024′,1,3)=’Bac’
Pos(sous, ch)	تعود موضع أول ظهور لسلسلة داخل أخرى	Pos(‘Alg’,’Alger’)=1
Concat(ch1,ch2)	دمج سلسلتين	Concat(‘Bon’,’jour’)
Delete(ch, p, n)	تحذف n حرفا من الموضع p	Delete(‘Bac2024’,4,4)
Insert(src, ch, p)	تدرج سلسلة داخل أخرى في الموضع p	Insert(‘Examen’,’Bac’,1)
Val(ch, n, code)	تحول سلسلة إلى رقم	Val(‘123’,n,code)
Str(n, ch)	تحول رقما إلى سلسلة نصية	Str(123,ch)

3. الوصول إلى الأحرف الفردية

يمكن الوصول إلى حرف معين في السلسلة باستخدام المصفوفة [] مع رقم الموضع (1 = أول حرف).

ch := 'Bonjour';
writeln(ch[1]);  { يطبع الحرف B }
ch[1] := 'b';     { تغيير أول حرف إلى b }

4. أمثلة برمجية

مثال 1: برنامج لحساب طول اسم المستخدم

program LongueurNom;
var
  nom: string;
begin
  write('Entrez votre nom: ');
  readln(nom);
  writeln('Votre nom contient ', Length(nom), ' lettres.');
  readln;
end.

مثال 2: برنامج لتحويل أول حرف إلى كبير

program PremiereLettre;
var
  ch: string;
begin
  write('Donnez un mot: ');
  readln(ch);
  if Length(ch) > 0 then
    ch[1] := UpCase(ch[1]);
  writeln('Resultat: ', ch);
  readln;
end.

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

التمرين 1:

أكتب برنامجا يقرأ اسما كاملا ثم يعرض عدد أحرفه.

program Exo1;
var
  nom: string;
begin
  write('Entrez votre nom complet: ');
  readln(nom);
  writeln('Longueur: ', Length(nom));
  readln;
end.

التمرين 2 (بكالوريا):

أكتب برنامجا يقرأ جملة ويستخرج أول 5 أحرف منها.

program Exo2;
var
  phrase: string;
begin
  write('Entrez une phrase: ');
  readln(phrase);
  if Length(phrase) >= 5 then
    writeln('Les 5 premieres: ', Copy(phrase, 1, 5))
  else
    writeln('Phrase trop courte.');
  readln;
end.

خلاصة: السلاسل النصية أداة قوية في برمجة Pascal. تذكر أن الفهرسة تبدأ من 1 وليس 0 كما في بعض اللغات الأخرى.