malak54
2015-11-02, 20:41
ممكن تصحيح حلي الخاص و شكراا :) :)
action trier (varl : liste )
var p,q: liste;
x:entier;
trouve:boolean;
debut
p:=l;
q:=l^.succ;
tq (p<>nil) et ( trouve=faux) fair
si p^.val>q^.val alors
x:=p^.val;
p^.val:=q^.val;
q^.val:=x;
trouve:=vrai;
fin si;
p:=p^.succ;
q:=q^.succ;
fin tq;
fin .
lprofe 9ali akii ghal6a mais masa7olich :/ plzzzzzzzzz 9ololi win la faut et mrc khawtii
action trier (varl : liste )
var p,q: liste;
x:entier;
trouve:boolean;
debut
p:=l;
q:=l^.succ;
tq (p<>nil) et ( trouve=faux) fair
si p^.val>q^.val alors
x:=p^.val;
p^.val:=q^.val;
q^.val:=x;
trouve:=vrai;
fin si;
p:=p^.succ;
q:=q^.succ;
fin tq;
fin .
lprofe 9ali akii ghal6a mais masa7olich :/ plzzzzzzzzz 9ololi win la faut et mrc khawtii