Elinacion de contacto

Flussdiagrammknoten

• Inicio

•           Declarar int Pos_Borrar Como Entero;           Pos_Borrar <- -1           Declarar i Como Entero;           Declarar Cel Como Entero;

•           Escribir "\t ***** Eliminar contacto *****";           Escribir "\tIngresa el numero de contacto que desea eliminar:";

• Leer Cel;

• Para i<-0 Hasta Contador Con Paso 1 Hacer

•  Si   (Cel<-x[i].Cel)   Pos_Borrar<-i;

• Si       (Pos_Borrar<0) 

• Escribir "El contaco no fue encontrado o no existe";

•                               x[Pos_Borrar],Nombre= "";                               x[Pos_Borrar],Apellido="";                               x[Pos_Borrar],Correo="";                               x[Pos_Borrar],Colonia="";                               x[Pos_Borrar],Municipio="";                               x[Pos_Borrar],Calle="";                               x[Pos_Borrar],Cel<-0;

• Escribir "El contacto ha sido eliminado, no hay rastro de el";

• Fin