المصفوفات في الباسكال

المصفوفات: ARRAYتعريف: المصفوفة ARRAY كلمة محجوزة تمثل مجموعة من العناصر من نفس النوع ومخزنة تحت إسم واحد يمثل إسم المصفوفة، ويمكن الوصول إلى أي عنصر من عناصر المصفوفة بمعرفة ترتيبه فيها.
ولها الصيغة التالية:

كود:
TYPE NAME = ARRAY [N1..N2 , M1..M2 , ..] OF TYP
E
وحيث:
NAME : اسم المصفوفة.
N1..N2 : مجال عداد الصفوف من N1 ولغاية N2 .
M1..M2 : مجال عداد الأعمدة من M1 ولغاية M2.
TYPE : نوع هذه المصفوفة (صحيح،أو حقيقي،أو ........الخ)
مثال: var
كود:
A : ARRAY[1..3 , 1..5] OF integer ;
b : ARRAY [0..10,-5..5]OF char ;
ويتم الإشارة إلى أي عنصر من عناصر المصفوفة بالشكل:
arrayname[ place ]
مثال:A [ 2,3] B [ 5,0 ]

تطبيق:
إكتب برنامجاٌ يقوم بإدخال سلسلة مؤلفة من عشرة رموز ثم يطبعها وفق ترتيب الإدخال ثم بعكسه.
كود:
PROGRAM invert ;
VAR n : integer ;
str : ARRAY[1..10] OF char ;
BEGIN
FOR n := 1 TO 10 DO readln(str[n]);
FOR n := 1 TO 10 DO write(str[n]);
writeln ;
FOR n := 10 DOWNTO 1 DO write(str[n]);
writeln
END.
تعليمة القفز :GOTO تعليمة قفز قسري تستخدم للقفز إلى أمر حدد بلافتة label تم تعريفها مسبقاٌ .
لها الصيغة التالية:
كود:
GOTO N
تعليمة الشرط :CASE تعليمة شرطية تستخدم لتنفيذ تعليمة واحدة من عدة تعليمات حسب الشرط expression وإلا تنفذ التعليمة الواردة بعد else (يمكن أن لاتكون موجودة ) .
لها الصيغة التالية:
كود:
CASE expression OF
value1 : statement1;
value2 : statement2;
.
.
valuen : statementn
else
statement
END .
حيث: expression : تعبير صحيحاٌ أو رمزياٌ أو منطقياٌ أو تعدادياٌولايمكن أن يكون حقيقياٌ .
statement1..statementn :عبارات بسيطة أو مركبة.

مثال: برنامج يقوم بكتابة الكلمة المقابلة لكل رقم من (1-5)
. كود:
PROGRAM numbers ;
VAR I : 1.. 5 ;
BEGIN
READ ( I ) ;
CASE I OF
1 : WRITELN(’ONE’);
2 : WRITELN(’TOW’);
3 : WRITELN (’THREE’);
4 : WRITELN(’FOUR’);
5 : WRITELN(’FIVE’);
ELSE WRITELN (‘NOT FROM ONE TO FIVE ‘)
END
END .

__________________

شكرا