مقارنة بين لغة باسكال ولغة سي

ثمة فرق آخر، وإن كان أكثر دقة، يتمثل في دور الفاصلة المنقوطة . ففي لغة باسكال، تفصل الفاصلة المنقوطة بين العبارات الفردية داخل العبارة المركبة؛ أما في لغة سي، فهي تُنهي العبارة. وفي لغة سي، تُعدّ الفاصلة المنقوطة جزءًا من العبارة من الناحية التركيبية (حيث تُحوّل التعبير إلى عبارة). ويتجلى هذا الفرق بشكل رئيسي في حالتين:

• في لغة باسكال، لا يمكن وضع الفاصلة المنقوطة مباشرة قبل الفاصلة else، بينما في لغة سي، فهي إلزامية، إلا إذا تم استخدام عبارة كتلة.
• لا يشترط وضع فاصلة منقوطة بعد العبارة الأخيرة التي تسبق حرف العطف " endأو" .until

يمكن وضع فاصلة منقوطة زائدة في السطر الأخير قبل كلمة end ، وبالتالي إدراج عبارة فارغة بشكل رسمي .

في الطبعة الأولى من لغة C، يوجد فقط /* block comments */. تمت إضافة C لاحقًا // line comments.

في لغة باسكال، يوجد و .{ block comments }(* block comments *)

تختلف لغتا C وباسكال في تفسيرهما للأحرف الكبيرة والصغيرة. لغة C حساسة لحالة الأحرف، بينما لغة باسكال ليست كذلك، لذا MyLabelفإن mylabel`abc` و`abc` اسمان مختلفان في C، لكنهما متطابقان في باسكال. في كلتا اللغتين، تتكون المعرفات من حروف وأرقام، مع قاعدة أن الحرف الأول لا يجوز أن يكون رقمًا. في لغة C، تُحسب الشرطة السفلية كحرف، لذا حتى `abc` اسم صحيح. غالبًا ما تُستخدم الأسماء التي تبدأ بشرطة سفلية لتمييز معرفات النظام الخاصة في لغة C.

تستخدم كل من لغتي C و Pascal الكلمات المفتاحية (كلمات محجوزة لاستخدام اللغة). ومن أمثلتها if و while و const و for و goto ، وهي كلمات مفتاحية مشتركة بين اللغتين. في لغة C، تُعد أسماء الأنواع الأساسية المدمجة كلمات مفتاحية أيضًا (مثل int و char ) أو تركيبات من الكلمات المفتاحية (مثل unsigned char )، بينما في لغة Pascal، تُعد أسماء الأنواع المدمجة مُعرّفات عادية مُعرّفة مسبقًا.

في لغة باسكال، تبدأ تعريفات الإجراءات الفرعية بالكلمات المفتاحية procedure (بدون إرجاع قيمة) أو function (مع إرجاع قيمة)، بينما تبدأ تعريفات الأنواع بالكلمة المفتاحية type . أما في لغة C، فجميع الإجراءات الفرعية لها functionتعريفات (الإجراءات هي void functions)، وتستخدم تعريفات الأنواع الكلمة المفتاحية type typedef. تستخدم كلتا اللغتين مزيجًا من الكلمات المفتاحية وعلامات الترقيم لتعريف الأنواع المعقدة؛ على سبيل المثال، تُعرَّف المصفوفات بالكلمة المفتاحية array في باسكال وبعلامات الترقيم في C، بينما تُعرَّف التعدادات بالكلمة المفتاحية array enumفي C وبعلامات الترقيم في باسكال.

في الدوال الفرعية في لغة باسكال، تُستخدم العلامتان begin و end لتحديد مجموعة من التعليمات مسبوقة بتصريحات محلية، بينما تستخدم دوال لغة C العلامتين { و } لتحديد مجموعة من التعليمات مسبوقة بتصريحات اختيارية  . تنص لغة C (قبل C99) صراحةً على وجوب ظهور أي تصريحات قبل التعليمات داخل كتلة معينة، ولكنها تسمح بظهور كتل داخل كتل أخرى، وهو ما يُعدّ حلاً بديلاً. أما في باسكال، فمن خلال بنية جسم الدالة الفرعية، تُفرض التصريحات قبل التعليمات. كما تسمح باسكال بتغليف تعريفات الأنواع والدوال - وليس فقط تصريحات المتغيرات - داخل تعريفات الدوال بأي مستوى من العمق.  

تتشابه قواعد اللغتين في الحجم. من منظور التنفيذ، يكمن الاختلاف الرئيسي بينهما في أن تحليل لغة C يتطلب الوصول إلى جدول رموز للأنواع، بينما في لغة باسكال يوجد بنية واحدة فقط، وهي التعيين. على سبيل المثال، X * Y;قد يكون جزء C عبارة عن تعريف Yلكائن من نوع مؤشر إلى X، أو عبارة عن جملة تضرب Xفي Y. في المقابل، فإن جزئي باسكال المقابلين واضحان تمامًا؛ ولا يتطلب التحليل الصحيح جدول رموز.var Y : ^X;Z := X * Y;

تتطلب لغة باسكال تحديد نوع جميع المتغيرات والدوال بشكل صريح. أما في لغة سي التقليدية، فيمكن حذف اسم النوع في معظم السياقات، ويُفترض ضمنيًا النوع الافتراضي int(الذي يُقابل النوع الافتراضي integerفي باسكال) (مع ذلك، تُعتبر هذه القيم الافتراضية ممارسة سيئة في لغة سي، وغالبًا ما تُنبّه إليها تحذيرات).

تدعم لغة C أحجامًا مختلفة وأنماطًا مُوقّعة وغير مُوقّعة للأعداد الصحيحة باستخدام مُعدِّلات مثل long`int` shortو`int` signedو` unsignedint` و`int` وما إلى ذلك. يختلف المعنى الدقيق لنوع العدد الصحيح الناتج باختلاف الجهاز، ولكن ما يُمكن ضمانه هو long intألا يكون `int` أقصر من ` int` intوألا intيكون `int` أقصر من `int` short int. مع ذلك، في معيار C، توجد أحجام دنيا مُحدَّدة للأنواع تضمن أن يكون ` int` بايتًاchar واحدًا وأن يكون `int` بايتين على الأقل.int

في لغة باسكال، يتم تنفيذ نهاية مماثلة عن طريق تعريف نطاق فرعي من الأعداد الصحيحة (يمكن للمترجم بعد ذلك اختيار تخصيص مساحة تخزين أصغر للمتغير المُعلن عنه):

النوع أ = 1 .. 100 ؛ ب = -20 .. 20 ؛ ج = 0 .. 100000 ؛​

لا تدعم لغة C ميزة النطاق الفرعي هذه.

يُعدّ أحد الفروق الرئيسية، وإن كانت دقيقة، بين لغتي C وباسكال هو كيفية تعاملهما مع عمليات الأعداد الصحيحة. ففي باسكال، تكون نتيجة العملية مُعرّفة لجميع أنواع الأعداد الصحيحة/النطاقات الفرعية، حتى لو لم تتناسب النتائج الوسيطة مع أي عدد صحيح. وتكون النتيجة غير مُعرّفة فقط إذا لم تتناسب مع العدد الصحيح/النطاق الفرعي الموجود على الجانب الأيسر من عملية الإسناد. قد يُشير هذا إلى تقييد مصطنع لنطاق أنواع الأعداد الصحيحة، أو قد يتطلب تنفيذًا بطيئًا لمعالجة النتائج الوسيطة. مع ذلك، قد يستفيد المُصرّف من النطاقات الفرعية المُقيّدة لإنتاج شيفرة أكثر كفاءة.

في لغة C، يجب أولاً ترقية المعاملات إلى حجم النتيجة المطلوبة: تكون النتائج الوسيطة غير مُعرَّفة إذا لم تكن ضمن نطاق المعاملات المُرَقَّاة. إذا كان نطاق النتيجة المطلوبة أكبر من نطاق المعاملات، فإن هذا عادةً ما يُنتج شيفرة بطيئة وغير فعّالة، حتى مع مُصرِّف مُحسِّن جيد. مع ذلك، لا يُطلب من مُصرِّف لغة C أو يُتوقع منه أبدًا التعامل مع النتائج الوسيطة الخارجة عن النطاق: تقع مسؤولية ضمان أن جميع النتائج الوسيطة ضمن نطاق المعاملات على عاتق المُبرمج.

سمحت تطبيقات ما قبل المعيار للغة C بالإضافة إلى Small-C وما إلى ذلك بخلط أنواع الأعداد الصحيحة والمؤشرات بحرية نسبية.

في لغة C، نوع الأحرف هو ` charn`، وهو نوع من الأعداد الصحيحة التي لا يزيد طولها عن short int`n`. وبالتالي، فإن التعبيرات مثل `n` 'x' + 1صحيحة تمامًا، وكذلك التصريحات مثل `n` int i = 'i';و`n` char c = 74;.

تتضح طبيعة العدد الصحيح char(بايت واحد) بوضوح من خلال تصريحات مثل

unsigned char uc = 255 ; // الحد المشترك signed char sc = -128 ; // الحد السالب المشترك

يعتمد تحديد ما إذا كان charينبغي اعتبار النوع على أنه افتراضي signedأم unsignedلا على التنفيذ.

في لغة باسكال، تُعتبر الأحرف والأعداد الصحيحة أنواعًا منفصلة. يمكن استخدام دوال المُصرّف المُدمجة ord()لتحويل chr()الأحرف المفردة إلى قيمتها العددية المُقابلة في مجموعة الأحرف المُستخدمة، والعكس صحيح. على سبيل المثال، في الأنظمة التي تستخدم مجموعة أحرف ASCII، ord('1') = 49يكون chr(9)الحرف هو حرف الجدولة (TAB).

في لغة باسكال، يُعتبر النوع المنطقي (boolean) نوعًا مُعدّدًا. القيم الممكنة له هي خطأ (false ) وصواب ( true) ، حيث تكون القيمة الترتيبية لخطأ  =  0 وصواب  =  1. ولتحويله إلى عدد صحيح ، يُستخدم النوع ord .

i := ord ( b ) ;

لا توجد دالة قياسية لتحويل الأعداد الصحيحة إلى قيم منطقية ، ومع ذلك، فإن التحويل بسيط من الناحية العملية:

b := i <> 0 ;

تحتوي لغة C على نوع بيانات منطقي (Booleanbool ) منذ إصدار C23 ، بينما لم يكن لديها نوع بيانات منطقي قبل ذلك. تستخدم لغة C عوامل مقارنة ثنائية القيمة (<، >، ==،  !=، <=، >=) والتي يمكن اعتبارها منطقية بمعنى أنها تعطي دائمًا نتائج إما صفر أو واحد. بما أن جميع الاختبارات (&&، ||،  ?:، if ، while ، إلخ) تُجرى عن طريق التحقق من الصفر، فإن القيمة false تُمثل بالصفر، بينما تُمثل القيمة true بأي قيمة أخرى. هذا واضح في boolنوع البيانات العددية المُعرّف في <stdbool.h>الإصدارات السابقة لـ C23.

الحالة := الحالة + [ العلامة الثابتة ] ؛ الحالة := الحالة - [ العلامة الثابتة ] ؛ إذا كانت ( العلامة الثابتة في الحالة ) ...

الحالة |= علامة لاصقة ؛ الحالة &= ~ علامة لاصقة ؛ إذا ( الحالة & علامة لاصقة ) { ...

تتميز لغة C بنموذج أقل صرامة لأنواع الأعداد العشرية مقارنةً بلغة باسكال. ففي لغة C، يمكن تحويل الأعداد الصحيحة ضمنيًا إلى أعداد عشرية، والعكس صحيح (مع إمكانية التنبيه إلى فقدان الدقة المحتمل). أما في لغة باسكال، فيمكن تحويل الأعداد الصحيحة ضمنيًا إلى أعداد عشرية real، ولكن تحويل الأعداد العشرية realإلى integerأعداد عشرية (حيث قد تُفقد بعض المعلومات) يجب أن يتم صراحةً باستخدام الدالتين ` trunc()f` و`f` round()، اللتين تقومان بتقريب أو حذف الكسر، على التوالي.

تتضمن كل من لغتي C و Pascal أنواع التعداد. مثال بلغة Pascal:

نوع اللون = ( أحمر ، أخضر ، أزرق ) ؛ متغير أ : لون ؛

مثال على مكيف الهواء:

enum Color { RED , GREEN , BLUE };enum Color a = RED ;

يختلف سلوك أنواع البيانات في اللغتين اختلافًا كبيرًا. في لغة باسكال، تكون التعدادات ترتيبية ويتم تحليلها باستخدام ` arguments` ord()، وتختلف الدالتان `arguments` و`arguments` عن بنية `arguments`. أما في لغة C، فتُنفذ التعدادات كمصفوفات، ويصبح `arguments` مرادفًا للأرقام 0 و1 و2، ولا يوجد ما يمنع إسناد قيمة خارج هذا النطاق إلى المتغير `arguments` . علاوة على ذلك، تُحظر عمليات مثل `arguments` في باسكال؛ وبدلاً من ذلك، يُستخدم `arguments` . في لغة C، يمكن تحويل التعدادات بحرية من وإلى الأعداد الصحيحة، ولكن في باسكال، يجب استخدام الدالة ` arguments` للتحويل من أنواع التعدادات إلى أعداد صحيحة. لا يمكن تحويل الأعداد الصحيحة إلى أنواع تعدادات، ولكن يمكن استخدام أنواع التعدادات في عبارات قد تستخدم أعدادًا صحيحة.succ()pred()arrayREDGREENBLUEaa = a + 1;a := succ(a);ord()

for a := red to blue do

تسمح كل من لغتي C و Pascal بإنشاء مصفوفات من أنواع معقدة أخرى، بما في ذلك المصفوفات الأخرى. ومع ذلك، ينتهي التشابه بين اللغتين عند هذا الحد. تُعرَّف مصفوفات C ببساطة بنوع أساسي وعدد العناصر.

int a [ SIZE ];

ويتم فهرستها دائمًا من 0أعلى إلى SIZE - 1(أي modulo SIZE).

في لغة باسكال، غالبًا ما يتم تحديد نطاق المؤشرات بواسطة نطاق فرعي (كما هو موضح في قسم الأنواع البسيطة أعلاه). العناصر العشرة لـ

var a : array [ 0 .. 9 ] of integer ;

سيتم فهرسة العناصر من 0 إلى 9 (كما هو الحال في لغة C). يمكن أن تكون فهارس المصفوفة من أي نوع بيانات ترتيبي ، وليس فقط نطاقات.

نوع TColor = ( أحمر ، أخضر ، أزرق ) ؛ (* تعداد *) RGB = مصفوفة [ TColor ] من 0 .. 255 ؛var picture : array [ 1 .. 640 , 1 .. 480 ] of RGBلوحة فار : صفيف [ بايت ، 0 .. 2 ] من البايت

يتم تعريف السلاسل المكونة من n > 1 حرفًا على أنها مصفوفات معبأة بنطاق 1..n.

#include <stdio.h>static char * wordlist [] = { "print" , "out" , "the" , "text" , "message" }; static int listSize = sizeof ( wordlist ) / sizeof ( wordlist [ 0 ]);for ( int i = 0 ; i < listSize ; i ++ ) { printf ( wordlist [ i ]); }for ( int i = listSize - 1 ; i >= 0 ; i-- ) { printf ( wordlist [ i ]) ; }

const minlist = 1 ; maxlist = 5 ; maxword = 7 ;نوع قائمة النطاق = القائمة الدنيا .. القائمة القصوى ؛ نطاق الكلمات = 1 .. الكلمة القصوى ؛ الكلمة = محتويات السجل : مصفوفة مضغوطة [ نطاق الكلمات ] من الأحرف ؛ الطول : نهاية نطاق الكلمات ؛ قائمة الكلمات = مصفوفة [ نطاق القائمة ] من الكلمات ؛ متغير i : عدد صحيح ؛ الكلمات : قائمة الكلمات ؛إجراء إنشاء قائمة ( متغير w : قائمة الكلمات ) ؛ ابدأ w [ 1 ] .contents := ' print' ؛ w [ 1 ] .length : = 5 ؛ w [ 2 ] .contents := ' out' ؛ w [ 2 ] .length : = 3 ؛ w [ 3 ] .contents := 'the' ؛ w [ 3 ] .length : = 3 ؛ w [ 4 ] .contents := 'text' ؛ w [ 4 ] .length : = 4 ؛ w [ 5 ] .contents : = ' message ' ؛ w [ 5 ] .length : = 7 ؛ نهاية ؛ابدأ إنشاء قائمة ( الكلمات ) ؛ من أجل i := القائمة الدنيا إلى القائمة القصوى ، مع الكلمات [ i ] ، اكتب سطرًا ( المحتويات : الطول ) ؛ من أجل i := القائمة القصوى إلى القائمة الدنيا، مع الكلمات [ i ] ، اكتب سطرًا ( المحتويات : الطول ) نهاية .

في كلتا اللغتين، السلسلة عبارة عن مصفوفة بدائية من الأحرف.

في لغة باسكال، يكون النص الحرفي ذو الطول n متوافقًا مع النوع n packed array [1..n] of char. أما في لغة سي، فالنص يكون عمومًا من النوع n char[n].

لا تدعم لغة باسكال المصفوفات ذات الأطوال المتغيرة، لذا فإن أي مجموعة من الإجراءات لتنفيذ عمليات على السلاسل النصية تعتمد على حجم سلسلة نصية محدد. وقد حلّت إضافة "معامل المصفوفة المتوافقة" المعيارية في باسكال هذه المشكلة إلى حد كبير، كما أن العديد من تطبيقات باسكال، إن لم يكن معظمها، تدعم السلاسل النصية الأصلية للغة.

تُعتبر السلاسل النصية في لغة C منتهية بحرف فارغ ؛ أي أن الحرف الفارغ في نهاية السلسلة يُستخدم كعلامة نهاية السلسلة :

// السلسلة s منتهية بـ null const char * s = "the rain in Spain" ;

يجب الحفاظ على إنهاء السلسلة يدويًا لمتغيرات السلسلة المخزنة في المصفوفات (غالبًا ما يتم التعامل مع هذا جزئيًا بواسطة إجراءات المكتبة).

تفتقر لغة C إلى خاصية تعيين السلاسل أو المصفوفات المدمجة، لذلك لا يتم نقل السلسلة إلى p، بل يتم جعل p يشير إلى السلسلة الثابتة في الذاكرة.

في لغة باسكال، على عكس لغة سي، يكون العنصر الحرفي الأول في السلسلة عند الفهرس 1 وليس 0 (مما يؤدي إلى إضافة بادئة الطول ). والسبب في ذلك هو أن باسكال تخزن طول السلسلة عند العنصر 0 من مصفوفة الأحرف. إذا لم يُفهم هذا الاختلاف جيدًا، فقد يؤدي ذلك إلى أخطاء عند نقل أو محاولة ربط الكود البرمجي المُولّد بواسطة اللغتين.

أشار مطور نظام FreeBSD، بول هينينغ كامب ، في مقال له في مجلة ACM Queue ، إلى انتصار السلاسل النصية المنتهية بـ null على السلاسل النصية التي تبدأ بـ length على أنه "أغلى خطأ في بايت واحد" على الإطلاق. ^{[ 1 ]}

يمكن لكل من لغتي C و Pascal تعريف أنواع " السجلات ". في لغة C، تُسمى هذه الأنواع "هياكل".

struct A { int b ; char c ; };

النوع أ = سجل ب : عدد صحيح ؛ ج : حرف ؛ نهاية ؛

في لغة باسكال، يمكننا استخدام الجملة " with name_of_record do" لاستخدام حقول ذلك السجل مباشرةً، كمتغيرات محلية، بدلاً من كتابة name_of_record . name_of_field . إليك مثال:

نوع r = سجل s : سلسلة نصية ؛ c : حرف ؛ نهاية ؛ متغير r1 : r ؛ ابدأ مع r1 do ابدأ s := 'foo' ؛ c := 'b' نهاية نهاية ؛

لا توجد ميزة مكافئة لـ " with" في لغة C.

في لغة C، يمكن تحديد طول البتات الدقيق للحقل:

struct A { unsigned int b : 3 ; unsigned int c : 1 ; };

يعتمد مقدار التخزين المستخدم على خصائص النظام المستهدف (مثل محاذاة الكلمات).

تتوفر هذه الميزة في لغة باسكال باستخدام بنية النطاق الفرعي (3 بتات تعطي نطاقًا من 0 إلى 7) بالاقتران مع الكلمة المفتاحية packed :

النوع أ = سجل مضغوط ب : 0 .. 7 ؛ ج : 0 .. 1 ؛ نهاية ؛

تدعم كل من لغتي C و Pascal السجلات التي يمكن أن تتضمن حقولاً مختلفة متداخلة مع بعضها البعض:

اتحاد A { int a ; float b ; };

نوع أ = سجل حالة منطقية من خطأ : ( أ : عدد صحيح ) ؛ صحيح : ( ب : عدد حقيقي ) نهاية ؛

يُمكن لكلا معالجي اللغة تخصيص مساحة كافية لهذه السجلات لاحتواء أكبر نوع في الاتحاد/السجل. في لغة باسكال، تُسمى هذه البنى سجلات متغيرة ، ويجب عدم الخلط بينها وبين نوع البيانات Variant المُعرّف في لغة فري باسكال.

يتمثل الاختلاف الأكبر بين لغتي C و Pascal في أن Pascal تدعم الاستخدام الصريح لـ "حقل العلامات" لمعالج اللغة لتحديد ما إذا كان يتم الوصول إلى المكون الصحيح لسجل المتغير:

نوع a = سجل حالة q : منطقي من خطأ : ( a : عدد صحيح ) ؛ صحيح : ( b : عدد حقيقي ) نهاية ؛

في هذه الحالة، يجب تعيين حقل الوسم q إلى الحالة الصحيحة للوصول إلى الأجزاء المناسبة من السجل.

تختلف اللغات اختلافاً كبيراً عندما يتعلق الأمر بتقييم التعبيرات، ولكنها في المجمل قابلة للمقارنة.

باسكال

1. النفي المنطقي:not
2. الضرب:* / div mod and
3. مادة مضافة:+ - or
4. العلاقات:= <> < > <= >= in

ج

1. لاحقة أحادية:[] () . -> ++ --
2. البادئة الأحادية:& * + - ! ~ ++ -- (type) sizeof
3. الضرب:* / %
4. مادة مضافة:+ -
5. يحول:<< >>
6. العلاقات:< > <= >=
7. المساواة:== !=
8. عملية AND الثنائية:&
9. عملية XOR الثنائية:^
10. عملية أو بتية:|
11. منطقي و:&&
12. أو المنطقي:||
13. شرطي:? :
14. تكليف:= += -= *= /= %= <<= >>= &= ^= |=
15. فاصلة :,

تؤدي معظم المعاملات في لغة باسكال وظائف متعددة، فعلى سبيل المثال، يمكن استخدام علامة الطرح للنفي أو الطرح أو الفرق بين المجموعات (بحسب نوع البيانات والسياق النحوي)، >=ويمكن استخدام المعامل لمقارنة الأرقام أو السلاسل النصية أو المجموعات، وهكذا. أما لغة سي فتستخدم رموز معاملات مخصصة على نطاق أوسع.

عندما صمم نيكلاوس ويرث لغة باسكال، كان الهدف هو تقليل عدد مستويات الأسبقية (لتقليل عدد إجراءات التحليل، في نهاية المطاف). لذا، تُعامل معاملات OR و XOR تمامًا مثل عملية الجمع (Addop) وتُعالج على مستوى التعبير الرياضي. وبالمثل، تُعامل عملية AND مثل عملية الضرب (Mulop) وتُعالج على مستوى الطرفية (Term). مستويات الأسبقية هي

لاحظ أن هناك مجموعة واحدة فقط من قواعد بناء الجملة، تنطبق على كلا نوعي المعاملات. وفقًا لهذه القواعد، فإن تعابير مثل

 x + (y وليس z) / 3 

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

اتبع مؤلفو لغة C نهجًا معاكسًا تمامًا: فهم يعاملون المعاملات على أنها مختلفة، وفي الواقع، يوجد في لغة C ما لا يقل عن 15 مستوى. وذلك لأن لغة C تحتوي أيضًا على المعاملات '=' و'+=' وما شابهها، مثل '<<' و'>>' و'++' و'--'، إلخ. على الرغم من أن المعاملات الحسابية والمنطقية في لغة C تُعامل بشكل منفصل، إلا أن المتغيرات لا تُعامل كذلك: إذ يمكن إجراء اختبار منطقي على أي قيمة عددية صحيحة.

var i : عدد صحيح ؛ a : مصفوفة مضغوطة [ 1 .. 10 ] من نوع char ؛ ... i := 1 ؛ while ( i <= 10 ) and ( a [ i ] <> 'x' ) do i := i + 1 ؛ ...

const strlen = 10 ; var i : integer ; a : packed array [ 1..strlen ] of char ; found : boolean ; ... i := 1 ; found := false ; while not found and ( i < = strlen ) do if ( a [ i ] = 'x' ) then found := true else i : = i + 1 ; ...

const strlen = 10 ; var i : integer ; a : packed array [ 1..strlen ] of char ; found : boolean ; ... i := 1 ; repeat found := a [ i ] = ' x ' ; if not found then inc ( i ) ; until found or ( i > strlen ) ; ...