الموضوع: الخوارزميات -العدد 9

[ALIGN=CENTER][TABLETEXT="width:70%;background-colorrange;border:4px double red;"][CELL="filter:;"][ALIGN=right]************************************************** ***********

نكمل مشوارنا المتسلسل حول الخوارزميات
الموضوع : enregistrement et les ensembles ( المجموعات و السجلات )
الجزء الاول enregistrement :
وهي الاهم ونحتاجها عندما نريد ان نعرف متغير ياخذ اكثر من نوعين مثلا التاريخ فهو ياخذ اليوم الشهر والسنة
ويكون التصريح بها في قسم الانواع لاننا نصنع نوع جديد متكون من عدة انواع
طريقة التصريح بها في الخوارزمية والباسكال

كود:

type
tdate=article
dd:1..31;
mm:1..12;
an:1900.....2010:
fin;
var
date:tdate;

ترجمة االكلمات الى الباسكال
article هي record في الباسكال
*********تنبيه مهم********
**بعد كلمة record لاتكتب ";" وايضا نكتب fin عندما ننتهي من تعريف النوع ولكن بدون begin
**تستطيع بها صناعة اي نوع يتكون من عدة انواع مثلا نوع الطالب الذي يتكون من الاسم و الرقم ......الخ
**************************************************
طريقة كتابتها في الخوارزمية

كود:

debut
lire(date.dd);
lire(date.mm);
lire(date.an);
fin.

**هنا نفس الشي بالنسبة للباسكال وتوجد كذلك طريقة اخرى

كود:

begin
with date do
read(dd);
read(mm);
read(an);
end;
end.

*****ساضع امثلة و تمارين عنها عن قريب *******
الجزء الثاني : ensembles
** وهي اقل اهمية من الثانية لذللك ساختصر فيها
***المجموعات من احد المزايا الخاصه للغه باسكال، والتى نادرا ما نجدها في
لغات البرمجه الاخرى,اغلب المبرمجين يتجاهلوا هذه الخاصيه ويقوموا بدلا عن ذلك باستخدام
المصفوفات ، لما يوجد من تشابه بينهما , انا شخصيا نادرا ما استخدمها ايضا ، لكنها مفيده في بعض الاحيان....
**المجموعة هي تجميع للاشياء من نفس النوع مثلا اذا كنا نريد مجموعة الالوان

كود:

type
couleur=(rouge,noire,vert,jaune);
var
c:ensemble de couleur;

في الباسكال

كود:

couleur=(rouge,noire,vert,jaune);
var
c:set of couleur;

وهكذا في اي مجموعة .....ونفس الشكل بالنسبة للباسكال وهذه صورة توضيحية عن العمليات في المجموعات



وهذا مثال تطبيقي على المجموعات

كود:

Program exemple ;
Uses crt;
Type
Days = (Sunday, Monday, Tuesday, Wednesday, Thursday,
Friday, Saturday);
Var
allday : set of days;
workday : set of Monday .. Friday;
thisday : days;
Begin
thisday:= Monday;
If thisday in workday then
writeln('This day I''m in work')
Else
Writeln ('This day I''m on holiday’);
End.

شكرا على حسن الاصغاء والمتابعة

[/ALIGN][/CELL][/TABLETEXT][/ALIGN]

مشكووووور اخ حمزة

جزاك الله خيراااا

السلام عليكم و رحمة الله
مشكور أخي حمزة ...
هناك ملاحظة صغيرة بخصول l'enregistrement أضن أن ترجمتها هي المسجلات ...
تقبل مروري

[center:1ky2tsz7]شكرا جزيلا لك أخي حمزة جعلتني أتحمس للبرمجة أكثر وأكثر
بارك الله فيك وجعله في مــــــــــــــــــــــــ ــــــــــيزان حسناتـــــــــك[/center:1ky2tsz7]

مشكور على العمل الرائع .

المشاركة الأصلية كتبت بواسطة نصرالدين

السلام عليكم و رحمة الله
مشكور أخي حمزة ...
هناك ملاحظة صغيرة بخصول l'enregistrement أضن أن ترجمتها هي المسجلات ...
تقبل مروري

وعليكم السلام ورحمة الله وبركاته تعالى
تعرف اخي ان وضع الدرووووس من تنسيقي واعدادي وقد اكون قد اصيب او اخطا وعندما اضع اي موضوع انتظر النقد وتصحيح الاخطاء , وقد اكون قد اخدت بعض المعرفات من بعض الكتب التي قراتها في الباسكال , لذا الترجمة الى العربية قد لاتكون بالمعنى الحرفي , لكن المهم الفكرة توصل
*************************************

المشاركة الأصلية كتبت بواسطة ياسين

[center:38dq461u]شكرا جزيلا لك أخي حمزة جعلتني أتحمس للبرمجة أكثر وأكثر
بارك الله فيك وجعله في مــــــــــــــــــــــــ ــــــــــيزان حسناتـــــــــك[/center:38dq461u]

اخي ياسين نحن نسعى لنشر العلم بين الطلبة ونريد ثواب الله فقط , لذلك ادع الله ان يثبتنا
******************************
شكرا لكل من اطل شذى قلمه هنا