Buscar

inicio

Definir Band Como Entero;

Band <- 0;

Definir Cel Como Entero;

Definir i Como Entero;

Escribir "\t ***** Buscar contacto *****";

Escribir "\tIngresa el numero del contacto a buscar:";

Leer Cel;

Para i<-0 Hasta Contador Con Paso 1 Hacer

Si

(Cel<-x[i].Cel)

Escribir "Se ha encontrado el contacto:\n";

Escribir "\tEl nombre del contacto es: ",x[i],Nombre;

Escribir "\tEl apellido del contacto es: ",x[i],Apellido;

Escribir "\tEl correo del contacto es: ",x[i],Correo;

Escribir "\tEl colonia del contacto es: ",x[i],Colonia;

Escribir "\tEl municipio del contacto es: ", x[i],Municipio;

Escribir "\tEl calle del contacto es: ",x[i],Calle;

Escribir "\tEl numero de celular del contacto es: ",x[i],Cel;

Escribir "El contacto no fue encontrado o no existe";

Fin