Les Allergies
Alimentaires

Pascal - Tri par insertion - Récursivité-

Partager
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;


Publié par ZOUARI - Dernière mise à jour le 11 mars 2010 à 16:16 par irongege
Partager
Ce document intitulé « Pascal - Tri par insertion - Récursivité- » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Gestion d'écran en Pascal Décaler les éléments d'un tableau (Rotation) -Récursivité-
Dossier à la une
Windows 8 - À quoi s'attendre ?
Gestion d'écran en Pascal
Décaler les éléments d'un tableau (Rotation) -Récursivité-