Administrador de contactos

 Algoritmo AdministradorContactos

//Hecho por Anthony Daniel Celleri Benitez

Dimension contactos[20]

Dimension nombre[20]

Dimension numero[20]

contador = 1

Repetir

Escribir '||==========================||'

Escribir '||opciones                  ||'

Escribir '||1- agregar contactos      ||'

Escribir '||2- ver contactos agregados||'

Escribir '||3- eliminar contactos     ||'

Escribir '||4- salir                  ||'

Escribir '||==========================||'

Escribir 'Ingrese una opción:'

Leer opcion

Segun opcion Hacer

Caso 1:

Escribir 'Ingrese el nombre del contacto:'

Leer nombre[contador]

Repetir

Escribir 'Ingrese el número del contacto:'

Leer numero[contador]

Si Longitud(numero[contador]) > 10 Entonces

Escribir 'El número debe tener 10 dígitos. Por favor, ingrese nuevamente.'

FinSi

Hasta Que Longitud(numero[contador]) = 10

contactos[contador] = nombre[contador] + ' - ' + numero[contador]

contador = contador + 1

Caso 2:

Escribir 'Contactos agregados:'

Para i = 1 Hasta contador - 1 Hacer

Escribir contactos[i]

FinPara

Caso 3:

Escribir 'Ingrese el nombre del contacto a eliminar:'

Leer nombreEliminar

Encontrado = Falso

Para i = 1 Hasta contador - 1 Hacer

Si nombre[i] == nombreEliminar Entonces

contactos[i] = ''

Encontrado = Verdadero

FinSi

FinPara

Si Encontrado == Falso Entonces

Escribir 'No se encontró el contacto'

FinSi

Caso 4:

Escribir 'Saliendo del programa...'

De Otro Modo:

Escribir 'Opción inválida'

FinSegun

Hasta que opcion == 4

FinAlgoritmo