action créer une liste [الأرشيف] - منتديات الجلفة لكل الجزائريين و العرب

malak54

2015-10-27, 18:20

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

2015-10-28, 21:28

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 .

http://store1.up-00.com/2015-10/1446062460521.jpg