Pseudocódigo de fácil entendimiento de Búsqueda Binaria:

Dato_ap_pat=space(10)
Input«Ingresa apellido paterno»;Dato_ap_pat
use Tabla.DBF
go top
inicial=recno()
go bottom
final=recno()
central=ENT((inicial+final)/2)
go central
Dato_central=ap_pat
Do while (Dato_ap_pat<>Dato_central) and (inicial<final)
      if Dato_central<Dato_ap_pat
            inicial=central+1
      else
            final=central-1
      endif
      central=ENT((inicial+final)/2)
      go central
      Dato_central=ap_pat
Endwhile
Do imprime

Imprime:
If Dato_ap_pat=Dato_central
      print cod_alu
      print ap_pat
Endif

LINKs DE INTERES:
Video:
Link:
Link: