Ordenamiento por mezcla

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    FinSi13FinSubProceso1415// Une dos tramos ya ordenados: datos[izquierda..medio] y datos[medio+1..derecha]16SubProceso Mezclar(datos, temporal, izquierda, medio, derecha)17    Definir i, j, k Como Entero18    i <- izquierda19    j <- medio + 120    k <- izquierda21    // Tomamos siempre el menor de los dos frentes22    Mientras i <= medio Y j <= derecha Hacer23        // Con <= los iguales conservan su orden: por eso es estable24        Si datos[i] <= datos[j] Entonces25            temporal[k] <- datos[i]26            i <- i + 127        SiNo28            temporal[k] <- datos[j]29            j <- j + 130        FinSi31        k <- k + 132    FinMientras33    // Copiamos lo que haya sobrado de cualquiera de las dos mitades34    Mientras i <= medio Hacer35        temporal[k] <- datos[i]36        i <- i + 137        k <- k + 138    FinMientras39    Mientras j <= derecha Hacer40        temporal[k] <- datos[j]41        j <- j + 142        k <- k + 143    FinMientras44    // Devolvemos el tramo mezclado al arreglo original45    Para k <- izquierda Hasta derecha Hacer46        datos[k] <- temporal[k]47    FinPara48FinSubProceso4950// Los arreglos se pasan por referencia: el subproceso ordena el arreglo del algoritmo51SubProceso OrdenarPorMezcla(datos, temporal, izquierda, derecha)52    Definir medio Como Entero53    // Un tramo de un solo elemento ya está ordenado: ahí termina la recursión54    Si izquierda < derecha Entonces55        medio <- Trunc((izquierda + derecha) / 2)56        OrdenarPorMezcla(datos, temporal, izquierda, medio)57        OrdenarPorMezcla(datos, temporal, medio + 1, derecha)58        Mezclar(datos, temporal, izquierda, medio, derecha)59    FinSi60FinSubProceso6162Algoritmo OrdenamientoMezcla63    Definir datos, temporal, n, i Como Entero64    Escribir "¿Cuántos números quieres ordenar? (1 a 512)"65    Leer n66    // temporal es la memoria extra que necesita la mezcla67    Dimension datos[n], temporal[n]68    Para i <- 1 Hasta n Hacer69        datos[i] <- Aleatorio(1, 99)70    FinPara71    MostrarDatos("Antes:   ", datos, n)72    OrdenarPorMezcla(datos, temporal, 1, n)73    MostrarDatos("Después: ", datos, n)74FinAlgoritmo