𝙁𝙄𝙉𝘼𝙇𝙀𝙎
𝐏𝐀𝐑𝐂𝐈𝐀𝐋 𝟏:
Funcion ordenar_vec1 ( vec,n )
Para i <- 1 Hasta n Con Paso 1 Hacer
Escribir "Ingrese el elemento ", i , " del vector: "
Leer vec[i]
j <- i
Mientras j > 1 Y vec[j] < vec[j-1] Hacer
aux <- vec[j]
vec[j] <- vec[j-1]
vec[j-1] <- aux
j <- j - 1
Fin Mientras
Escribir "El vector ordenado es: "
Para k <- 1 Hasta n Con Paso 1 Hacer
Escribir vec[k]
Fin Para
Fin Para
Fin Funcion
Funcion ordenar_vec ( vec,n )
para i=1 hasta n-1 hacer
Para j<-1 Hasta n-1 Hacer
si vec(j)>vec(j+1) Entonces
temp=vec(j)
vec(j)=vec(j+1)
vec(j+1)=temp
FinSi
Fin Para
finpara
Fin Funcion
Funcion llenar ( vec,n )
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir "ingrese el dato ",i
leer vec(i)
Fin Para
Fin Funcion
Funcion p <- busqueda_secuencial ( vec,n,d )
p=1
Mientras p<=n y vec(p)<>d Hacer
p=p+1
Fin Mientras
Fin Funcion
Funcion p <- busqueda_binaria ( vec,n,d )
li=1
ls=n
p=0
Mientras li<=ls y p=0 Hacer
m=trunc((li+ls)/2)
si vec(m)=d Entonces
p=m
SiNo
si vec(m)>d Entonces
ls=m-1
SiNo
li=m+1
FinSi
FinSi
Fin Mientras
Fin Funcion
Algoritmo sin_titulo
dimension vec(100)
Repetir
Escribir "*******MENU********"
Escribir "escoja una opcion"
Escribir "1.llenar vector"
Escribir "2.busqueda por metodo secuencial metodo secuencial"
Escribir "3.busqueda por metodo binario metodo binario"
Escribir "5.salir"
leer menu
Segun menu Hacer
1:
Escribir "¿como desea ordenar el vector?"
Escribir "1.luego de ingresar los datos"
Escribir "2.a medida que se ingresan los datos"
leer orvec
Segun orvec Hacer
1:
Limpiar Pantalla
Escribir "ingrese la cantidad de datos"
leer n
llenar(vec,n)
ordenar_vec(vec,n)
Escribir "el vector ordenado es"
para f = 1 Hasta n Con Paso 1 Hacer
Escribir vec(f)
FinPara
2:
Limpiar Pantalla
Escribir "ingrese la cantidad de datos"
leer n
ordenar_vec1(vec,n)
Fin Segun
2:
Limpiar Pantalla
Escribir "ingrese el dato a buscar"
leer d
p=busqueda_secuencial(vec,n,d)
si (p>n) Entonces
Escribir "el dato no existe/no fue ha sido ingresado"
SiNo
Escribir "el dato existe y esta en la posicion ",p," del vector"
FinSi
3:
Limpiar Pantalla
Escribir "ingrese el dato a buscar"
leer d
p=busqueda_binaria(vec,n,d)
si p=0 Entonces
Escribir "el dato no se encontro/no ha sido ingresado"
SiNo
Escribir "el dato existe y esta en la posicion ",p," del vector"
FinSi
Fin Segun
Hasta Que menu=5
FinAlgoritmo
𝐏𝐀𝐑𝐂𝐈𝐀𝐋 𝟐:
