Búsqueda lineal interrumpida PSeInt

Proceso BusquedaInterrumpida
Definir num,pos,vec Como Entero;
num <- 10;
Dimension vec[10];

llenar(vec,num);
Escribir "Digite valor a buscar";
leer num;
pos <-buscar(vec,num);
si (pos<>-1) Entonces
Escribir "El numero ", num, " fue hallado en la posición ", pos;
SiNo
Escribir "El numero ", num, " no fue hallado";
FinSi

FinProceso


SubProceso llenar(v,num Por Valor)
Definir k como entero;

Escribir "Digite numeros";
Para k<-0 hasta num-1 con paso 1 hacer
Leer v[k];
FinPara

FinSubProceso

SubProceso pos <- buscar(v,n)
Definir sw como caracter;
Definir K,pos como entero;
k<-0;
pos<-(-1);
sw <- "n";

mientras (k<10) y (sw="n") hacer
si (v[k]=n) entonces
sw <- "S";
pos <- k;
FinSi
k <-k+1;
FinMientras
FinSubProceso