Ordenamiento por montículo

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// En un montículo, el padre de la posición k está en Trunc(k / 2)16// y sus hijos en 2k y 2k + 1. Cada padre es mayor o igual que sus hijos.17// Hundir baja el valor de la posición raiz hasta que vuelve a cumplirse.18SubProceso Hundir(datos, raiz, tamanio)19    Definir actual, hijo, aux Como Entero20    Definir listo Como Logico21    actual <- raiz22    listo <- Falso23    Mientras (NO listo) Y 2 * actual <= tamanio Hacer24        // Elegimos el mayor de los dos hijos25        hijo <- 2 * actual26        Si hijo + 1 <= tamanio Entonces27            Si datos[hijo + 1] > datos[hijo] Entonces28                hijo <- hijo + 129            FinSi30        FinSi31        Si datos[hijo] > datos[actual] Entonces32            aux <- datos[actual]33            datos[actual] <- datos[hijo]34            datos[hijo] <- aux35            actual <- hijo36        SiNo37            listo <- Verdadero38        FinSi39    FinMientras40FinSubProceso4142Algoritmo OrdenamientoMonticulo43    Definir datos, n, i, ultimo, aux Como Entero44    Escribir "¿Cuántos números quieres ordenar? (1 a 512)"45    Leer n46    Dimension datos[n]47    Para i <- 1 Hasta n Hacer48        datos[i] <- Aleatorio(1, 99)49    FinPara50    MostrarDatos("Antes:   ", datos, n)51    // 1) Armamos el montículo, desde el último padre hasta la raíz52    Para i <- Trunc(n / 2) Hasta 1 Con Paso -1 Hacer53        Hundir(datos, i, n)54    FinPara55    // 2) El mayor está en la raíz: lo llevamos al final y reparamos el resto56    Para ultimo <- n Hasta 2 Con Paso -1 Hacer57        aux <- datos[1]58        datos[1] <- datos[ultimo]59        datos[ultimo] <- aux60        Hundir(datos, 1, ultimo - 1)61    FinPara62    MostrarDatos("Después: ", datos, n)63FinAlgoritmo