Búsqueda Lineal con Barrido interrumpido

Búsqueda Lineal con Barrido interrumpido

Algoritmo:

SubProceso pos <- buscar ( v, n)

Definir sw Como Caracter;

Definir K, pos Como Entero;

k<-0;

pos<-(-1);

sw<-"n";

//Inicio

Mientras (k<10) y (sw="n") Hacer

Si (v(k)=n) Entonces

sw<-"S";

pos<-k;

FinSi

k<-k+1;

FinMientras

FinSubProceso

SubProceso llenar(v, num por valor)

Definir k Como entero;

//Inicio

Para k<-0 Hasta num-1 Con Paso 1 Hacer

Leer v[k];

FinPara

FinSubProceso

Proceso Ejemplo_busqueda_interrumpida

Definir num, pos, vec, n Como Entero;

num<-10;

Dimension vec[10];

//Inicio

llenar(vec, num);

Escribir "Digite 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