سلاسل. الأساسيات

لسوء الحظ ، لا توجد وظيفة في باسكال تسمح بقراءة أسطر متعددة مفصولة بمسافات من سطر واحد. للقيام بذلك ، عليك كتابة الوظيفة الخاصة بك: <قبل> فارز ، ث: خيط ؛ i ، j ، ind: عدد صحيح ؛ أ: مجموعة من الخيط. يبدأ readln (ق) ؛ setlength (a ، length (s)) ؛ أنا: = 1 ؛ ind: = 0 ؛ بينما أنا العلامة & lt ؛ طول (ق) تفعل يبدأ بينما (i ​​& lt ؛ length (s)) و (& # 39 ؛ & # 39 ؛ + s [i] = & # 39 ؛ & # 39 ؛) أفعل أنا + = 1 ؛ ي: = أنا + 1 ؛ ث: = & # 39 ؛ & # 39 ؛ + s [i] ؛ بينما (j & lt ؛ length (s)) و (& # 39 ؛ & # 39 ؛ + s [j] & lt ؛ & gt ؛ & # 39 ؛ & # 39 ؛) تبدأ w + = s [j] ؛ ي + = 1 ؛ نهاية؛ a [ind]: = w ؛ إيند + = 1 ؛ أنا: = ي ؛ نهاية؛ اكتب (أ [0] ، أ [1]) ؛ نهاية.

نتيجة لذلك ، نحصل على مجموعة من السلاسل.

يمكن إضافة السلاسل معًا باستخدام علامة "+". تسمى هذه العملية تسلسل السلسلة أو التسلسل . & nbsp؛
على سبيل المثال ، <قبل> s: = & # 39 ؛ مرحبًا ، & # 39 ؛؛ s1: = & # 39 ؛ world & # 39 ؛؛ writeln (s + s1) ؛ ستعرض الشاشة عبارة & quot؛ Hello world & quot؛ (بدون اقتباسات).

الإشارة إلى فهارس الصفوف كل حرف في السلسلة له رقمه الخاص (يُطلق عليه & nbsp ؛ index ) ، وتبدأ الفهرسة في لغة البرمجة Pascal من واحد. أي أن الحرف الأول به فهرس 1 ، والثاني به فهرس 2 ، وهكذا.
يمكن الوصول إلى أحرف السلسلة بواسطة الفهارس ، والتي يشار إليها بين قوسين مربعين & nbsp؛ s [i] .
نبسب ؛

مثال & nbsp؛

<الجسم>

String S	H	e	l	l	o
الفهرس	S [1]	S [2]	S [3]	S [4]	S [5]

ملاحظة. تفترض العديد من طرق السلسلة في PascalABC.NET أن السلاسل مفهرسة من الصفر. لن نستخدم طرق السلسلة التي تعمل مع الفهارس الصفرية في الوقت الحالي. هناك بدائل مكافئة لهذه الوظائف الخارجية تفترض أن الصفوف مفهرسة من 1. & nbsp؛
نبسب ؛

نظرًا لأنه يمكن الوصول إلى الحرف عن طريق الفهرس ، يمكنك استخدام حلقة متغيرة للتكرار على جميع الأحرف ، والتي ستأخذ قيم الفهرس الممكنة. على سبيل المثال ، سيبدو البرنامج الذي يعرض جميع رموز الأحرف في السلسلة s بهذا الشكل <قبل> بالنسبة إلى i: = 1 إلى length (s) writeln (s [i] ، ord (s [i])) شروحات للبرنامج:
1) تحدد الدالة length (s) طول السلسلة. فهرس الحرف الأول هو 1 وفهرس الأخير هو الطول (الأطوال). سيأخذ متغير الحلقة i القيم من 1 إلى الطول (الأطوال).
2) في كل سطر ، سيتم عرض الرمز نفسه أولاً ، ثم رمزه ، والذي يتم إرجاعه بواسطة الوظيفة المضمنة ord ()

يمكن كتابة نفس التعداد بشكل أقصر: <قبل> ل c in s do & nbsp؛ نبسب ؛ نبسب ؛ writeln (c ، ord (c)) ؛ في هذا الجزء ، يدور رأس الحلقة عبر جميع الأحرف s ، ويضعها بدورها في المتغير c.

إن خصوصية باسكال عند التعامل مع الجمل هي أن الأوتار هي كائنات قابلة للتغيير. بمعنى آخر ، يمكننا تغيير الأحرف الفردية لسلسلة.
على سبيل المثال ، سوف تعمل العبارة التالية <قبل> ق [5]: = & # 39 ؛ أ & # 39 ؛؛ يمكنك أيضًا إنشاء سلسلة جديدة من الأحرف بالتغييرات المطلوبة.
على سبيل المثال ، برنامج يستبدل جميع الأحرف & # 39 ؛ a & # 39 ؛ إلى الشخصيات & # 39 ؛ b & # 39 ؛ سيبدو هكذا: <قبل> قراءة (ق) ؛ نبسب ؛ نبسب ؛ بالنسبة إلى i: = 1 إلى length (s) ابدأ نبسب ؛ نبسب ؛ نبسب ؛ نبسب ؛ if s [i] = & # 39 ؛ a & # 39 ؛ ثم s [i]: = & # 39 ؛ b & # 39 ؛؛ نبسب ؛ نبسب ؛ نهاية؛ writeln (s) ؛ في هذا المثال ، نقوم بعمل حلقة عبر جميع أحرف السلسلة s. في نص الحلقة ، نتحقق من قيمة المتغير s [i]: إذا كان الحرف يطابق الحرف & # 39 ؛ a & # 39 ؛ ثم نستبدلها بـ & # 39 ؛ b & # 39 ؛.
نبسب ؛