Format imprimable Astuces Programmation Langages Pascal

Pascal - Tri par insertion - Récursivité-

Dernière mise à jour le 17 novembre 2009 à 14:25 par marlalapocket
Publié par ZOUARI

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;

Je vous invite à me faire part de votre critiques et suggestions à l’adresse email suivante: Lazhar.zouari@laposte.net

Précédent Décaler les éléments d'un tableau (Rotation) -Récursivité-

Suivant Gestion d'écran en Pascal

Meilleures réponses pour « Pascal Tri par insertion Récursivité » dans :

Pascal - Tri par insertion - Récursivité- Voir 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 insertion par méthode récursive Voir

Algorithme de tri Voir

Tri à bulles -récursivité- VoirVoici une procédure récursive qui permet de trier un tableau de n entiers en utilisant la méthode de tri à bulles : Procedure Tri_bulles (var t : TAB; n : integer); Var i, aux : integer; Function Trier (t : TAB; n : integer) : Boolean; ...

Tri par fusion - récursivité- VoirVoici une procédure récursive qui permet de trier un tableau de n entiers en utilisant la méthode de tri par fusion : Procedure Tri_Fusion (Var t : TAB; g, d : integer); Var m, i, j, k : integer; s : TAB; Begin If d > g Then ...

[Windows] Exécution automatique à l'insertion d'un CD / clé USB Voir

Tri par insertion(PASCAL) Voir

[faire un tri en pascal] Voir

Tri d'un tableau en pascal Voir

LaTeX - Insertion d'images VoirStyle LaTeX permet d'insérer des images de différents formats. Le plus simple est d'insérer des fichiers de type eps (Encapsuled Postscript) : Il suffit d'insérer dans le préambule la ligne suivante : \usepackage{graphicx} Puis d'insérer...

SQL - Tri VoirTri des résultats Il est possible en SQL d'organiser les résultats grâce à la clause ORDER BY. La clause ORDER BY est suivie des mots clés ASC ou DESC, qui précisent respectivement si le tri se fait de manière croissante (par défaut) ou...