La tri à bulle, mieux connu sous le nom de «Bubble Sort» est habituellement utilisé à des fins d'apprentissage. L'idée derrière cette technique est très simple, parcourir le tableau et permuter deux éléments lorsque cela s'avère nécessaire. Vous trouverez la réponse que vous souhaitez, à l'aide du code source Delphi suivant :
- Program BubbleTri;
-
- {$APPTYPE CONSOLE}
-
- Uses SysUtils;
-
- Const
- Tableau : Array[0..7] of Byte = (15, 10, 23, 2, 8, 9, 14, 16);
-
- Var
- K,L,I,J,T:Byte;
-
- BEGIN
- Write('Avant:');
- For K := 0 to High(Tableau) do Begin
- Write(Tableau[K],', ');
- End;
- For I := (High(Tableau) + 1) - 2 downto 0 do Begin
- For J := 0 to I do Begin
- If Tableau[J + 1] < Tableau[J]Then Begin
- T := Tableau[J + 1];
- Tableau[J + 1] := Tableau[J];
- Tableau[J] := T;
- End;
- End;
- End;
- WriteLn;
- Write('Après:');
- For L := 0 to High(Tableau) do Begin
- Write(Tableau[L],', ');
- End;
- WriteLn;
- END.
on obtiendra le résultat suivant :
Avant:15, 10, 23, 2, 8, 9, 14, 16,Après:2, 8, 9, 10, 14, 15, 16, 23,
Voir également
Dernière mise à jour : Dimanche, le 17 août 2014