Búsqueda binaria

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 BusquedaBinaria16    Definir datos, n, i, buscado, izquierda, derecha, medio, posicion, pasos Como Entero17    Escribir "¿Cuántos números tiene la lista? (1 a 512)"18    Leer n19    // La búsqueda binaria necesita datos ordenados: usamos los pares 2, 4, 6...20    Dimension datos[n]21    Para i <- 1 Hasta n Hacer22        datos[i] <- 2 * i23    FinPara24    MostrarDatos("Lista: ", datos, n)25    // Un número al azar entre 1 y 2n: si es impar, no estará en la lista26    buscado <- Aleatorio(1, 2 * n)27    Escribir "Buscando el ", buscado28    izquierda <- 129    derecha <- n30    posicion <- 031    pasos <- 032    Mientras izquierda <= derecha Y posicion = 0 Hacer33        medio <- Trunc((izquierda + derecha) / 2)34        pasos <- pasos + 135        Escribir "  Paso ", pasos, ": miro la posición ", medio, " (", datos[medio], ")"36        Si datos[medio] = buscado Entonces37            posicion <- medio38        SiNo39            // Descartamos la mitad donde seguro no está40            Si datos[medio] < buscado Entonces41                izquierda <- medio + 142            SiNo43                derecha <- medio - 144            FinSi45        FinSi46    FinMientras47    Si posicion > 0 Entonces48        Escribir "Encontrado: el ", buscado, " está en la posición ", posicion, "."49    SiNo50        Escribir "El ", buscado, " no está en la lista."51    FinSi52    Escribir "Comparaciones: ", pasos, " de ", n, " elementos."53FinAlgoritmo