action créer une liste

[malak54]

Action créer (n:entier ;l:liste);
var i : entier ;
p , q : liste
debut
allow (p);
l:=p
p^.val := 1 ;
pour i = 2 à n faire
allow (q);
q^.val:=i ;
p^.succ:= q ;
p:=q;
fin ;
p^.succ:=nil ;
fin .


ممكن شرح كل سطر , و ان امكن بالرسم كي افهم جيداا و شكراا

[Abe_sparrow1]

Action créer (n:entier ;l:liste);// إجراء فرعي لإنشاء ليست بها ن خانة من الأعداد الصحيحة
var i : entier ; //
p , q : liste  // مؤشران لخانات من نوع لست
debut
allow (p); //حجز خانة في الذاكرة
l:=p      //هذا هو رأس اللست
p^.val := 1 ; //وضع القيمة 1 في الخانة الأولى أي الراس
pour i = 2 à n faire  // إنشاء باقي الخانات
allow (q);  //حجز خانة
q^.val:=i ; //إوضع قيمة في الهانة
p^.succ:= q ;//ربط الخانة السابقة بالخانة الجددية
p:=q;       // نقل المؤشر إلى الخانة الموالية أي الأخيرة في اللست
fin ;
p^.succ:=nil ; // نيل يعني أن الخانة الأخيرة لا يوجد خانة تأتي بعدها.
fin .

[malak54]

mrc bcp rabii yewaf9ek nchallah