Búsqueda lineal contra 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    FinSi13FinSubProceso1415// Revisa los elementos uno por uno; devuelve cuántas comparaciones hizo16Funcion comparaciones <- BuscarLineal(datos, n, buscado)17    Definir comparaciones, i Como Entero18    Definir encontrado Como Logico19    comparaciones <- 020    encontrado <- Falso21    i <- 122    Mientras i <= n Y (NO encontrado) Hacer23        comparaciones <- comparaciones + 124        Si datos[i] = buscado Entonces25            encontrado <- Verdadero26        FinSi27        i <- i + 128    FinMientras29FinFuncion3031// Parte el rango a la mitad en cada paso; devuelve cuántas comparaciones hizo32Funcion comparaciones <- BuscarBinaria(datos, n, buscado)33    Definir comparaciones, izquierda, derecha, medio Como Entero34    Definir encontrado Como Logico35    comparaciones <- 036    encontrado <- Falso37    izquierda <- 138    derecha <- n39    Mientras izquierda <= derecha Y (NO encontrado) Hacer40        medio <- Trunc((izquierda + derecha) / 2)41        comparaciones <- comparaciones + 142        Si datos[medio] = buscado Entonces43            encontrado <- Verdadero44        SiNo45            Si datos[medio] < buscado Entonces46                izquierda <- medio + 147            SiNo48                derecha <- medio - 149            FinSi50        FinSi51    FinMientras52FinFuncion5354Algoritmo CompararBusquedas55    Definir datos, objetivos, n, i, mitades, resto Como Entero56    Escribir "¿Cuántos números tiene la lista? (1 a 512)"57    Leer n58    Dimension datos[n], objetivos[4]59    Para i <- 1 Hasta n Hacer60        datos[i] <- 2 * i61    FinPara62    MostrarDatos("Lista: ", datos, n)63    // Cuatro casos: el primero, uno al azar, el último y uno que no está (impar)64    objetivos[1] <- datos[1]65    objetivos[2] <- datos[Aleatorio(1, n)]66    objetivos[3] <- datos[n]67    objetivos[4] <- 2 * Aleatorio(1, n) - 168    Para i <- 1 Hasta 4 Hacer69        Escribir "Buscar el ", objetivos[i], " -> comparaciones: lineal ", BuscarLineal(datos, n, objetivos[i]), ", binaria ", BuscarBinaria(datos, n, objetivos[i])70    FinPara71    // Cuántas veces se puede partir n a la mitad: el peor caso de la binaria72    mitades <- 073    resto <- n74    Mientras resto > 0 Hacer75        mitades <- mitades + 176        resto <- Trunc(resto / 2)77    FinMientras78    Escribir "Peor caso con ", n, " elementos: lineal ", n, ", binaria ", mitades, "."79FinAlgoritmo