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
Comentarios
Publicar un comentario