Vídeo Insertar Ordenado
Proceso busquedabinaria Definir n,pos,vec Como Entero; Dimension vec[10]; Escribir "Digite 10 valores para el vector: "; llenar(vec); Escribir "Digite el valor a buscar: "; leer n; pos <- buscar(vec,n); si (pos<>-1) Entonces Escribir "El numero ", n, " fue hallado en la posición ", Pos; SiNo Escribir " el numero", n, " no fue hallado"; FinSi FinProceso SubProceso llenar(v) Definir k como entero; para k <-0 hasta 9 con paso 1 hacer leer v(k); FinPara FinSubProceso SubProceso pos <- buscar(vec,n) Definir inf,sup, central, pos como entero; inf <- 1; sup <- 9; central <- trunc((inf + sup)/2); Mientras inf <- sup y vec[central] <> n hacer si n<vec[central] entonces sup <- central -1; SiNo inf <- central+1; FinSi central <- trunc((inf+sup)/2); FinMientras si (n= vec[central]) Entonces pos <- central; SiNo ...