NOTAS:
Algoritmo de busqueda binaria. Devuelve la posicion que ocupa
un elemento o NULO en caso de no encontrarlo

DATOS : Es un arreglo ordenado
L1 : Limite inferior
LS : Limite superior
ELEMENTO :  Elemento de informacion
PRIN : Principio de una parte de DATOS
FINAL : Final de una parte de DATOS
MIT : Mitad de una parte de DATOS
LUG : La posicion en que se encuentra el elemento buscado

procedure binaria
  PRIN = L1
  FINAL = LS
  MIT = INT((PRIN+FINAL)/2)
  
  while (PRIN <= FINAL AND DATOS[MIT]<>ELEMENTO
    if (ELEMENTO < DATOS[MIT]) then
       FINAL = MIT - 1
    else
       PRIN = MIT + 1
    end if
       
    MIT = INT((PRIN+FINAL)/2)
  end while
  
  if (DATOS[MIT]=ELEMENTO) then
     LUG = MIT
  else
     LUG = NULO
  end if
end binaria