Ada

Procédure de tri à bulles

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Procédure de tri à bulles

dj_titeuf

Bonsoir,

Ayant vu en cours une procédure de tri à bulles que je n'ai pas bien comprise, je vous la poste, en espérant que vous pourrez m'éclairer quelque peu:

Code :

PROCEDURE Tri_Bulles(T: IN OUT Tableau) IS
Aux: Integer;
Tri_Fini: Boolean;
Nbre_Passes: Natural :=0;
BEGIN
WHILE NOT Tri_Fini LOOP
Nbre_Passes := Nbre_Passes + 1;
Tri_Fini := True;
FOR I IN T'First..T'Last-Nbre_Passes LOOP
IF T(I) > T(I+1) THEN
Tri_Fini := False;
Aux := T(I);
T(I) := T(I+1);
T(I+1) := Aux;
END IF;
END LOOP;
END LOOP;
END Tri_Bulles;

Dans cette situation, je ne parviens pas à faire "tourner" la procédure sur un exemple simple. Notamment, je ne comprends pas pourquoi Nbre_Passes := Nbre_Passes + 1 et Tri_Fini := True sont placés là où ils sont.. Pourriez-vous peut-être me détailler un peu comment les choses se passent sur un exemple? Par exemple sur le tableau (vecteur) 3741?

J'applique la procédure de tri à ce vecteur à 4 "composantes":

- Je rentre dans la boucle While;
- Dès lors, on a Nbre_passes qui se retrouve égal à 1! (0(valeur initiale) + 1) Pourquoi ne fait-on pas le cas Nbre_passes:= 0 dans la boucle? Vu qu'on commence à la valeur 1, on n'a jamais un parcours complet du tableau (de T'First à T'Last)! N'est-ce pas ennuyeux de ne pas accéder à la dernière case? Il me semble que si..
- Suite...?

Merci d'avance!

Publicité

masklinn

í dag viðrar vel til loftárása

http://en.wikipedia.org/wiki/Bubble_sort

---------------
Stick a parrot in a Call of Duty lobby, and you're gonna get a racist parrot. — Cody

vttman2

Je suis Open ...

Un exemple simple => 1 - 10 -2 - 9 à trier

Essayons de Dérouler le programme

* 1ere passe

tri_fini <- True
t(1) > t(2) => non ! 1 - 10 reste tel quel

t(2) > t(3) => oui ! inversion 10 - 2 devient 2 - 10
tri_fini <- False

t(3) > t(4) => oui ! inversion 10 - 9 devient 9 - 10
tri_fini <- False

résultat 1ere passe donne 1 - 2 - 9 - 10

* 2eme passe

tri_fini <- True

t(1) > t(2) => non ! 1 - 2 reste tel quel
t(2) > t(3) => non ! 2 - 9 reste tel quel
t(3) > t(4) => non ! 9 - 10 reste tel quel

Fin de programme car pas de changement détecté donc tri OK

ça va mieux ?

---------------
il n'y a pas que le VTT dans la vie, il y a le Snowboard aussi ...

FORUM HardWare.fr

Programmation

Ada

Procédure de tri à bulles

Sujets relatifs
[MYSQL 5] Resultat d'une procédure stockée dans une table temporaire	[maple ] resolution d une procedure recursive maple avec solve
[VBA Excel] Procédure redondante dans Userform	Problème de procédure de maj bd, je suis bloqué !!
Utiliser Enterprise Library avec Oracle Stored Procedure	modification d'une matrice dans une procedure
[ACCESS] Procédure double clic sur enregistrement	appel procedure stockée de MySQL avec du java
[JDBC/Procédure stockée] Curseur "forward-only", j'en veux pas!	Exécuter une procédure contenu dans un module
Plus de sujets relatifs à : Procédure de tri à bulles

Page générée en 0.048 secondes