الدرس الثاني عشر - Types, Records و Sets

الدرس الثاني عشر  - Types, Records و Sets

الانواع :

من الممكن ان تقوم بإنشاء نوع متغيرات خاص بك بإستخدام الامر type .

النّوع الاول الذي يمكن ان تعمله هو نوع records (سجلات) . السجلات هي عباره عن متغيّران او اكثر من انواع مختله في واحد . على سبيل المثال ان يكون المستخدم طالب و لديه رقم و اسم الطالب . كيف سوف ننشئ نوعاً من البيانات :

program Types;



Type

   Student = Record

      Number:

      Name;

   end;



begin

end.

بعد ان تنشئ النوع يجّب ان تعلن عن متغير من النوع الذي قمنا بإنشاءه لكي يمكننا استخدامه :

program Types;



Type

   StudentRecord = Record

      Number:

      Name;

   end;



var

   Student: StudentRecord;



begin

end.

للوصول إلى العدد و الاسم من السجل يجب ان تتبع الآتي :

program Types;



Type

   StudentRecord = Record

      Number:

      Name;

   end;



var

   Student: StudentRecord;



begin

   Student.Number := 12345;

   Student.Name := 'John Smith';

end.

النوع الآخر هو set , النوع set ليس له فائده كبيره , و اي شئ يمكنك عمله مع set يمكن ان يعمل بسهوله في طريقة اخرى . على سبيل المثال لدينا نوع set يدعى Animal و المعلومات المخزنه dog , cat و rabbit :

program Types;



Type

   Animal = set of (dog, cat, rabbit);



var

   MyPet: Animal;



begin

   MyPet := dog;

end.

لا يمكنك استخدام Readln او Writeln في sets . يمكنك ان تنشئ مدى من المتغيرات من 'a' إلى 'z' . في هذا النوع يمكنك ان تختبر إذا كان المتغير من ضمن المدى :

program Types;



uses

   crt;



Type

   Alpha = 'a'..'z';



var

   Letter: set of Alpha;

   c: Char;



begin

   c := ReadKey;

   if c in [Letter] then

      Writeln('You entered a letter');

end.