Talleres
algoritmo de organización binaria y secuencial:
SubProceso bb(n,v)
li<-1
ls<-n
sw<-Falso
Escribir ""
Escribir "Ingrese el número que quiere buscar"
Leer d
si d >= v(li) entonces
Mientras li<=ls Y sw==Falso Hacer
m<-trunc((li+ls)/2)
Si v(m)== d Entonces
sw=Verdadero
Sino
Si v(m)< d Entonces
li=m+1
SiNo
ls<-m-1
Fin Si
Fin Si
Fin Mientras
finsi
Si sw==Verdadero Entonces
Escribir ""
Escribir "Su número está en la posición: ", m
Sino
Escribir ""
Escribir "El número ", d, " no está en el vector"
Fin Si
Fin SubProceso
SubProceso bs(n,v)
Escribir ""
Escribir "Ingrese el número que quiere buscar"
Leer d
i<-1
Mientras i <= n y v(i)<> d Hacer
i=i+1
Fin Mientras
Si i>n Entonces
Escribir ""
Escribir "El número ", d, " no está en el vector"
Sino
Escribir ""
Escribir "Su número está en la posición: ", i
Fin Si
Fin SubProceso
SubProceso imp(n,v)
Para i<-1 Hasta n con Paso 1 Hacer
Escribir v(i)
Fin Para
Fin SubProceso
SubProceso llenar(n,v)
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir ""
Escribir "Digite dato número ", i
Leer v(i)
Fin Para
Fin SubProceso
Proceso Algoritomos_II
Mientras n<= 0 Hacer
Escribir ""
Escribir "Cantidad de datos en el vector"
Leer n
si n<=0 entonces
Escribir "La cantidad de datos en el vector no puede ser igual o menor que cero"
finsi
Fin Mientras
sw1<-0
sw<-0
Dimension v(n)
Mientras sw==0 Hacer
Escribir ""
Escribir "___MENU___"
Escribir "1-LLENAR VECTOR"
Escribir "2-BUSQUEDAD SECUENCIAL"
Escribir "3-BUSQUEDAD BINARIA"
Escribir "4-SALIR"
Escribir "5-IMPRIMIR VECTOR"
Escribir ""
Leer opc
Segun opc Hacer
1:
llenar(n,v)
sw1<-1
2:
si sw1==1 entonces
bs(n,v)
SiNo
Escribir""
escribir"No a rellenado los datos"
finsi
3:
si sw1==1 entonces
bb(n,v)
SiNo
Escribir""
escribir"No a rellenado los datos"
finsi
4:
sw<-1
5:
si sw1==1 entonces
Escribir ""
imp(n,v)
Escribir ""
SiNo
Escribir ""
escribir"No a rellenado los datos"
finsi
De Otro Modo:
Escribir ""
Escribir "Esa opción no está disponible"
Fin Segun
Fin Mientras
Escribir ""
Escribir "ESO ES TODO"
FinProceso
algoritmo de ordenamiento por selección:
SubProceso ordenamiento_selecion( vec,v )
i<-1
Mientras i<vec Hacer
k<-i
j<-i+1
Mientras j<=vec Hacer
si (v(j)>v(k))Entonces
k<-j
FinSi
j<-j+1
Fin Mientras
intercambio( v,i,k)
i<-i+1
Fin Mientras
i<-1
mientras i<=vec Hacer
Escribir " El vetor en pusicion: ", i, " es igual: ", v(i)
i<-i+1
FinMientras
Fin SubProceso
SubProceso intercambio( v,i,k)
aux<-v(i)
v(i)<-v(k)
v(k)<-aux
Fin SubProceso
SubProceso llenar_vector( vec,v )
Para i<-1 Hasta vec Con Paso 1 Hacer
Escribir "ingresa los numeros del vector: ", i
leer v(i)
FinPara
Fin SubProceso
Proceso sin_titulo
Mientras vec=0 Hacer
Escribir "ingresa la cantida de espacios en vector"
leer vec
Si vec<=0 Entonces
Escribir "OPCIÒN NO VALIADA, INTENTALO DE NUEVO"
Escribir ""
Fin Si
FinMientras
Dimension v(vec)
Repetir
Escribir ""
Escribir "____Menu____"
Escribir "1.llenar vetor"
Escribir "2.ordenamiento por selecion"
Escribir "3. salir"
Escribir "Ingresa una opción"
leer opc
Segun opc Hacer
1:
llenar_vector( vec,v )
sw=1
2:
si sw==1 Entonces
ordenamiento_selecion( vec,v )
SiNo
Escribir""
escribir"No a rellenado los datos"
FinSi
De Otro Modo:
Fin Segun
Hasta Que opc=3
Escribir "Chaooo"
FinProceso