Ils ont besoin de votre aide

Pascal - Tri par insertion - Récursivité-

Publié par ZOUARI, dernière mise à jour le samedi 12 janvier 2008 à 12:43:17 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

Autres Astuces dans la catégorie Pascal