Ver Mensaje Individual
  #1  
Antiguo 15-10-2007
alba13 alba13 is offline
Miembro
 
Registrado: oct 2007
Posts: 22
Reputación: 0
alba13 Va por buen camino
busqueda binaria recursiva

hola, estoy codificando el algoritmo busqueda binaria recursiva y al devolver la posición en la que se encuentra el número me devuelve siempre el último resultado, y eso no es lo correcto al ser recursivo.

Código Delphi [-]
function busquedaBinariaRec3 (dato : integer;inicio : integer;
 fin : integer; var aBB: array of integer  ) : integer;
var
    pivote : integer;
begin
    pivote := (inicio + fin) div 2;
    if inicio > fin then
        result := -1
    else if dato = aBB[pivote] then
        result := pivote
    else if dato < aBB[pivote] then
        busquedaBinariaRec3(dato,inicio,pivote-1,aBB)
    else if dato > aBB[pivote] then
        busquedaBinariaRec3(dato,pivote+1,fin,aBB);
end;

pd: perdon por no haber usado etiquetas en el foro anteriormente. espero q ahora si lo haya hecho correctamente. un saludo

Última edición por dec fecha: 15-10-2007 a las 14:17:09.
Responder Con Cita