Le tri à bulles
-->
Principe
1.Comparer le contenu des cases n°1 et 2
s'il ne sont pas dans le bon ordre, les inverser.
2. Faire de même pour les cases n°2 et 3, 3et 4 .., et ainsi de suite jusqu'à (N-1 et N)
3. Si au moins une inversion a été effectuée, recommencer au début du tableau.
Les processus s'arrête lorsqu'au cours du "balayage' complet du tableau, aucune inversion n'a été effectuée (on effectue donc toujours un "tour pour rien").
-->
-------------
procedure tribulle(var T:tab ; N:integer);
var
i: integer;
test: boolean;
begin
repeat
test:=false;
for i:=1 to n-1 do
begin
if t[i] > t[i+1] then
begin
permut (t[i] ,t[i+1]);
test:=true;
end;
end;
n:=n-1;
until test=false;
end;
-------------
-->
Retour
