Ordenamiento por inserción

1// Muestra el arreglo completo solo si es corto (30 o menos)2SubProceso MostrarDatos(titulo, datos, n)3    Definir i Como Entero4    Si n <= 30 Entonces5        Escribir Sin Saltar titulo6        Para i <- 1 Hasta n Hacer7            Escribir Sin Saltar datos[i], " "8        FinPara9        Escribir ""10    SiNo11        Escribir titulo, n, " números (el primero es ", datos[1], " y el último ", datos[n], ")"12    FinSi13FinSubProceso1415Algoritmo OrdenamientoInsercion16    Definir datos, n, i, j, actual, desplazamientos Como Entero17    Definir ubicado Como Logico18    Escribir "¿Cuántos números quieres ordenar? (1 a 512)"19    Leer n20    Dimension datos[n]21    Para i <- 1 Hasta n Hacer22        datos[i] <- Aleatorio(1, 99)23    FinPara24    MostrarDatos("Antes:   ", datos, n)25    desplazamientos <- 026    // Las posiciones 1 a i-1 ya están ordenadas; insertamos datos[i] entre ellas27    Para i <- 2 Hasta n Con Paso 1 Hacer28        actual <- datos[i]29        j <- i - 130        ubicado <- Falso31        // Corremos un lugar a la derecha los que son mayores que actual32        Mientras j >= 1 Y (NO ubicado) Hacer33            Si datos[j] > actual Entonces34                datos[j + 1] <- datos[j]35                j <- j - 136                desplazamientos <- desplazamientos + 137            SiNo38                ubicado <- Verdadero39            FinSi40        FinMientras41        // El hueco que quedó es su lugar42        datos[j + 1] <- actual43    FinPara44    MostrarDatos("Después: ", datos, n)45    Escribir "Desplazamientos: ", desplazamientos46FinAlgoritmo