Algoritmo Archivos Computacion Ii
Inicio
Registro t_cliente.
Entero cedula, teléfono, plan_conex
Carácter dirección
Fin registro
T_cliente cliente[100]
Registro t_planes.
Enteron_plan
Carácter canales[14][50]
Real costo_p
Fin registro.
T_plan plan[5]
Entero opc=1,i,j,plan,n,cedula,
Carácter resp,
Real ncosto
Repetir mientras (opc=!5)
Mostrar(“Ingreseel numero de la opción a reali zar”)
Mostrar(“1.Registrar planes”)
Mostrar(“2.Registrar clientes”)
Mostrar(“3.Modificar costo de plan”)
Mostrar(“4.Recibo de pago”)
Mostrar(“5.Salir”)
Leer(opc)En caso de (opc)
Caso 1:
Repetir desde i=1 hasta i==5
Mostrar(“Ingrese numero del plan”)
Leer(plan [i].n_plan)
Repetir desde j=1 hasta j=14Mostrar(“ingrese el canal numero”, j )
Leer(plan[i].canal[j])
Fin repetir desde
Mostrar(“Ingrese costo del plan”,i)Leer(plan[i].costo_p)
Fin repetir desde
Caso 2:
Repetir mientras (resp==’s’)
Repetir desde i=1 hasta i==50
Mostrar(“Ingresela cedula,dirección,teléfono y el numero de plan
de conexión del cliente”, i )
Leer(Cliente[i].cedula, Cliente[i].direccion,Cliente[i].telefono,
Cliente[i]. plan_conex)
Fin repetir desde
Mostrar(“Desea registrar nuevos clientes s/n”)Leer(resp)
Si(resp==’s’)
Mostrar(“ingrese el número de clientes a registrar no debe excedermayores a 50”)
Leer(n)
Repetir desde j=1 hasta j==n
Mostrar(“Ingrese la cedula, dirección, teléfono y el...
Regístrate para leer el documento completo.