action créer

[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 .


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