Section courante

A propos

Section administrative du site

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 Free Pascal suivant :

  1. Program BubbleTri;
  2.  
  3. Const
  4.  Tableau : Array[0..7] of Byte = (15, 10, 23, 2, 8, 9, 14, 16);
  5.  
  6. Var
  7.  K,L,I,J,T:Byte;
  8.  
  9. BEGIN
  10.  Write('Avant:');
  11.  For K := 0 to High(Tableau) do Begin
  12.   Write(Tableau[K],', ');
  13.  End;
  14.  For I := (High(Tableau) + 1) - 2 downto 0 do Begin
  15.   For J := 0 to I do Begin
  16.    If Tableau[J + 1] < Tableau[J]Then Begin
  17.     T := Tableau[J + 1];
  18.     Tableau[J + 1] := Tableau[J];
  19.     Tableau[J] := T;
  20.    End;
  21.   End;
  22.  End;
  23.  WriteLn;
  24.  Write('Après:');
  25.  For L := 0 to High(Tableau) do Begin
  26.   Write(Tableau[L],', ');
  27.  End;
  28.  WriteLn;
  29. 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

Algorithme - Tri

Dernière mise à jour : Jeudi, le 29 décembre 2011