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
pos <-(-1);
FinSi
FinSubProceso


https://drive.google.com/file/d/16laOZ2mz_Dn138IFFGcagjTUw-WYkObD/view?usp=sharing