je cherche un code du tri a bulle , alors si quelqun connai qui me le montre svp , voila

le tri à bulle c´est l´algo le plus simple qu´on puisse faire.

si tu ne dit pas quel langage tu utilise, on ne peut certainement pas te passer un code.

mais dans l´idée c´est très simple :

tu à un tableau à une dimension avec x case dedans.

ensuite tu parcourt le tableau de la première case à l´avant dernière, et si une case est plus petite que la suivante, tu les échange de place, puis tu continu dans le tableau.

et tu parcourt x fois le tableau.

quand t´as finie, ca y est, il est trié.

le code en question est le qbasic . je cherche celui ou il y a permutation . j´en ai fai un mais il marche pas , impossible de le lancer car une fenetre me di " indice en dehors des limites" . alors si on pourrai m´aider .

donen plutot ton code toi, par exemple là : http://wall.cours-info.net/ pour pas le mettre sur le foum, et on corrigera.

mais véridie que tu commence pas trop tot dans le tableau ou que tu t´arrète pas trop tard :

si tu as ça :
dim truc(1 to 100) as integer

tu doit faire ça :
for i=1 to 99
. ..
next
ou alors
for i=2 to 100
. ..
next

Mann, je viens de le refaire d´après mes souvenirs lointains en Turbo Pascal. Ca devrait être fastoche de l´adapter en QB:

uses crt;

const
nbElements = 10;

var
tab: array[1..nbElements] OF Integer;
i, j, temp: Integer;

begin
ClrScr;
{Initialisation du tableau}
Randomize;
FOR i:= 1 TO nbElements DO
tab[i]:= Round(Random(nbElements))+1;
{Affichage du tableau initial}
FOR i:= 1 TO nbElements DO
Write(tab[i], ´ ´);
WriteLN;
{Tri}
FOR i:= 2 TO nbElements DO
FOR j:= 1 TO nbElements-1 DO
IF tab[j] > tab[i] THEN
begin
{Permutation}
temp:= tab[j];
tab[j]:= tab[i];
tab[i]:= temp;
end;
{Affichage du tableau trié}
FOR i:= 1 TO nbElements DO
Write(tab[i], ´ ´);
ReadKey;
end.