Procedure tri_rapid(var t:tab;g,d:integer);
begin
if g<d
then
begin
pivot:=g;
p:=g;
end;
for i:=pivot+1 to d do
begin
if t[i]<t[pivot]
then
p:=p+1;
if i<>p
then
pemut(t[i],t[p]);
end;
permut(t[p],t[pivot]);
tri_rapide(t,g,p-1);
tri_rapide(t,p+1,g);
end;
end.
c'est mieux pour vous