Busqueda Dicotomica/Binaria en Pascal

[harryalcorta]

Hola chicos, no soy muy participe de ésta sección pero hoy necesito de su ayuda

Soy estudiante de ingeniería en sistemas, y tengo muchas dudas en como es el algoritmo de la búsqueda dicotómica/binaria, necesito saberlo para el final, porque me tire a rendir la mesa pasada y justo me tomaron esa búsqueda, no recuerdo porque no la dimos en clase..

Espero que alguien me de una mano, ya se en que consiste la búsqueda digamos, pero me gustaría que alguien me adjunte un código pascal, algún ejemplo de búsqueda en algún arreglo, o algo así sencillo, aunque en realidad después lo tengo que aplicar a lógica de archivos.

Agradezco muchísimo el aporte que puedan hacer , nos vemos !

[pulpo_paul]

¿Sabés Pascal? Si es así, entonces no queda claro cómo puede ser que entiendas el algoritmo de la búsqueda binaria pero no sepas cómo codificarlo en Pascal.

[harryalcorta]

Si se Pascal, se en que consiste la busqueda, pero ahora estoy preparando otra materia y no tengo mucho tiempo para sentarme a pensar el codigo..

[Kryptonyte]

En Internet vas a encontrar la descripción del método y código en algún lenguaje que puede no ser Pascal.

PD: Te hice tu trabajo en cosa de 10 segundos, y encontré esto:


function search( key : typekey; var r : dataarray ) : integer;
var high, j, low : integer;

begin
low := 0;
high := n;
while high-low > 1 do begin
j := (high+low) div 2;
if key <= r[j].k then high := j
else low := j
end;
if r[high].k = key then search := high {*** found(r[high]) ***}
else search := -1; {*** notfound(key) ***}
end;


Google no muerde.

[harryalcorta]

Bue loco ya había buscado en google y no me convenció ninguno, de hecho, ese tampoco me convence y ya lo había visto. Pedí una ayuda de onda, si nadie se prende ya fue, estudio con lo que tengo :/

[pulpo_paul]

Bue loco ya había buscado en google y no me convenció ninguno, de hecho, ese tampoco me convence y ya lo había visto.

¿Qué cosa no te convence? Hace lo que dice el algoritmo de búsqueda binaria al pie de la letra.