Pascal - Ordenación por inserción

Agosto 2017

A continuación un procedimiento recursivo que permite ordenar una matriz de n enteros utilizando el método Ordenamiento por inserción:

Procedure Orden_Ins (Var t: TAB; n: integer);
Var aux,i : integer;
begin
        If n > 1 Then
             begin
                  Orden_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;

Consulta también

Publicado por Carlos-vialfa. Última actualización: 17 de noviembre de 2009 a las 16:22 por Carlos-vialfa.
El documento «Pascal - Ordenación por inserción» se encuentra disponible bajo una licencia Creative Commons. Puedes copiarlo o modificarlo libremente. No olvides citar a CCM (es.ccm.net) como tu fuente de información.