Pascal - Ordenação por inserção - Recursão

Dezembro 2016

Veja um procedimento recursivo para classificar uma tabela de números inteiros, utilizando o método de ordenação por inserção:
Procedimentp Ordenação_Ins (Var t: TAB; n: integer);   
Var aux,i : integer;   
begin   
        If n > 1 Then   
             begin   
                  Ordenação _por_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; 




Tradução feita por Lucia Maurity y Nouira

Veja também :
Este documento, intitulado « Pascal - Ordenação por inserção - Recursão »a partir de CCM (br.ccm.net) está disponibilizado sob a licença Creative Commons. Você pode copiar, modificar cópias desta página, nas condições estipuladas pela licença, como esta nota aparece claramente.