Búsqueda lineal interrumpida PSeInt

Prueba de escritorio : https://www.youtube.com/watch?v=JfAC333sVo4

 
Algoritmo 

Algoritmo BusquedaInterrumpida

Definir k, num, pos Como Entero

Dimension vec[10]

Escribir "Ingrese los valores del vector: "

LlenarVector(vec)

Escribir "Digite el valor a buscar: "

Leer num

pos<- buscar(vec,num)

Si (pos <> -1) Entonces

Escribir "El número ", num, " fue hallado en la posición", pos

SiNo

Escribir "El número ", num, " no fue hallado"

FinSi

FinAlgoritmo

SubProceso pos <- buscar(vec,num)

Definir k, pos Como Entero

Definir sw, N Como Caracter

sw <- "N"

pos <- -1

k <- 1

Mientras  k <= 9 Y sw = "N" Hacer

Si vec[k] = num Entonces

sw <- "S" 

pos <- k

FinSi

k <- k + 1

FinMientras

FinSubProceso

SubProceso LlenarVector(vec)

Definir k Como Entero

Para k <- 0 hasta 9 Con Paso 1 Hacer

leer Vec[k]

FinPara

FinSubProceso