Aide sur tri recursive
Fermé
offa
Messages postés
21
Date d'inscription
samedi 18 mai 2002
Statut
Membre
Dernière intervention
23 avril 2008
-
27 déc. 2007 à 23:45
hassib - 5 janv. 2011 à 21:01
hassib - 5 janv. 2011 à 21:01
A voir également:
- Aide sur tri recursive
- Trier sur excel - Guide
- Logiciel tri photo gratuit - Guide
- Ppcm recursive ✓ - Forum Programmation
- Tri automatique excel sans macro ✓ - Forum Excel
- Colis rejeté par le centre de tri aliexpress - Forum Consommation & Internet
2 réponses
vlmath
Messages postés
794
Date d'inscription
vendredi 20 octobre 2006
Statut
Contributeur
Dernière intervention
4 septembre 2011
160
29 déc. 2007 à 17:52
29 déc. 2007 à 17:52
Salut,
Après une brève recherche sur notre ami Google, j'ai trouvé quelques liens :
http://www.dailly.info/algorithmes-de-tri/insertion.php
http://fr.wikipedia.org/wiki/Tri_à_bulles
https://fr.wikipedia.org/wiki/Tri_rapide
Voila, comme tu ne donne pas dans quel langage tu veux programmer, je t'ai mis quelque liens qui sont soit en pseudo-code, ou qui peuvent facilement être transposer dans le langage que tu utilises.
@Bientôt
Après une brève recherche sur notre ami Google, j'ai trouvé quelques liens :
http://www.dailly.info/algorithmes-de-tri/insertion.php
http://fr.wikipedia.org/wiki/Tri_à_bulles
https://fr.wikipedia.org/wiki/Tri_rapide
Voila, comme tu ne donne pas dans quel langage tu veux programmer, je t'ai mis quelque liens qui sont soit en pseudo-code, ou qui peuvent facilement être transposer dans le langage que tu utilises.
@Bientôt
Voici une procédure récursive qui permet de trier un tableau de n entiers en utilisant la méthode de tri par insertion :
Procedure Tri_Ins (Var t: TAB; n: integer);
Var aux,i : integer;
begin
If n > 1 Then
begin
Tri_Ins (t,n - 1);
If t[n] < t[n - 1] Then
Begin
aux:= t[n];
i := n;
Repeat
t[i] := t[i - 1];
i := i - 1;
Until (i = 1) Or (aux > t[i - 1]);
t[i] := aux;
End;
Procedure Tri_Ins (Var t: TAB; n: integer);
Var aux,i : integer;
begin
If n > 1 Then
begin
Tri_Ins (t,n - 1);
If t[n] < t[n - 1] Then
Begin
aux:= t[n];
i := n;
Repeat
t[i] := t[i - 1];
i := i - 1;
Until (i = 1) Or (aux > t[i - 1]);
t[i] := aux;
End;