Una compañía de seguros ofrece tres tipos se seguro para el público en general:
Tipo seguro Pago mensual (S/.) Cantidad de Beneficiarios Cobertura (S/.)
A 80.00 Hasta 02 50,000
B 100.00 Hasta 04 100,000
C 250.00 Hasta 06 175,000
Se necesita una aplicación de computadora que permita registrar a los clientes afiliados (apellidos y nombres), el tipo de seguro que desean adquirir y la cantidad de beneficiarios.
La aplicación debe permitir registrar a varios clientes conforme se responda a la pregunta ¿Desea registrar a otro cliente?
Se pide:
1. Validaciones:
o Validar el ingreso del tipo de seguro. Solo debe aceptar las letras A, B y C (en mayúsculas y minúsculas) (1 pto)
o Validar la cantidad de beneficiarios. Cuando el seguro es tipo A solo debe aceptar valores desde 1 hasta 2. Cuando es tipo B,
solo debe aceptar desde 1 hasta 4. Cuando es tipo C solo debe aceptar desde 1 hasta 6. Para un valor mayor a 6, la aplicación debe indicar "Por favor consulte a un agente de seguro". En cualquier otro caso informar "Error". (4 ptos)
2. Por cada cliente registrado, la aplicación debe mostrar un resumen indicando: el pago mensual, la cantidad de beneficiarios indicados, y la cobertura. Como resumen final, debe mostrar la cantidad total de clientes registrados(5 ptos)
3. Hallar el número de clientes afiliados al seguro tipo A (5 ptos)
4. Calcular y mostrar el total de pagos del seguro tipo A (5 ptos)
AUTOR : FRANK PIÑIN ATO
FECHA : 08-11-2017 , 11:25 AM
*/
CADENA [50] NOMA
CARACTER RPT
CARACTER TI
ENTERO IN ,CONT,CONT2,CONT3,PAG
INICIO
CONT <- 0
CONT2 <- 0
CONT3 <- 0
ESCRIBA "==============================TIPOS DE SEGUROS=============================="
LLAMAR NUEVA_LINEA()
RPT <- 'S'
LLAMAR COLOR_TEXTO(11)
MIENTRAS (RPT = 'S') O (RPT = 's') HAGA
ESCRIBA "INGRESE EL NOMBRE Y APELLIDO DEL CLIENTE AFILIADO:"
LLAMAR NUEVA_LINEA()
LEA NOMA
LLAMAR NUEVA_LINEA()
ESCRIBA "QUE TIPO DE SERGURO DESEA ADQUIRIR?"
ESCRIBA "TIPO: [A], [B] Y [C]"
LLAMAR NUEVA_LINEA()
LEA TI
CASO TI
'A', 'a' :
IN <- 3 //SIEMPRE SE DEBE DECLARAR UN VALOR INICIAL PARA QUE EL CICLO INICIE
LLAMAR COLOR_TEXTO(10)
MIENTRAS (IN > 2 ) HAGA
ESCRIBA "CUANTOS DESEAS INGRESAR?: "
LEA IN
SI (IN > 2) ENTONCES
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(12) //ROJO
ESCRIBA "ERROR, DATO ERRONEO. REINTENTE."
LLAMAR COLOR_TEXTO(10)
LLAMAR NUEVA_LINEA()
SINO
LLAMAR COLOR_TEXTO(11)
ESCRIBA "HAY ",IN, " BENEFICIARIOS"
LLAMAR NUEVA_LINEA()
ESCRIBA "EL PAGO MENSUAL ES DE S/80.00"
LLAMAR NUEVA_LINEA()
ESCRIBA "LA COBERTURA ES DE S/50,000"
FIN SI
FIN MIENTRAS
CONT2 <- CONT2 + IN
PAG <- 80
'B', 'b' : IN <- 5 //SIEMPRE SE DEBE DECLARAR UN VALOR INICIAL PARA QUE EL CICLO INICIE
LLAMAR COLOR_TEXTO(10)
MIENTRAS (IN > 4 ) HAGA
ESCRIBA "CUANTOS DESEAS INGRESAR?: "
LEA IN
SI (IN > 4) ENTONCES
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(12) //ROJO
ESCRIBA "ERROR, DATO ERRONEO. REINTENTE."
LLAMAR COLOR_TEXTO(10)
LLAMAR NUEVA_LINEA()
SINO
LLAMAR COLOR_TEXTO(11)
ESCRIBA "HAY ",IN, " BENEFICIARIOS"
LLAMAR NUEVA_LINEA()
ESCRIBA "EL PAGO MENSUAL ES DE S/100.00"
LLAMAR NUEVA_LINEA()
ESCRIBA "LA COBERTURA ES DE S/100,000"
FIN SI
FIN MIENTRAS
'C', 'c' : IN <- 7 //SIEMPRE SE DEBE DECLARAR UN VALOR INICIAL PARA QUE EL CICLO INICIE
LLAMAR COLOR_TEXTO(10)
MIENTRAS (IN > 6 ) HAGA
ESCRIBA "CUANTOS DESEAS INGRESAR?: "
LEA IN
SI (IN > 6) ENTONCES
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(12) //ROJO
ESCRIBA "ERROR, DATO ERRONEO. REINTENTE."
LLAMAR COLOR_TEXTO(10)
LLAMAR NUEVA_LINEA()
SINO
LLAMAR COLOR_TEXTO(11)
ESCRIBA "HAY ",IN, " BENEFICIARIOS"
LLAMAR NUEVA_LINEA()
ESCRIBA "EL PAGO MENSUAL ES DE S/250.00"
LLAMAR NUEVA_LINEA()
ESCRIBA "LA COBERTURA ES DE S/175,000"
FIN SI
FIN MIENTRAS
SINO:
LLAMAR COLOR_TEXTO(12)//ROJO
ESCRIBA "ERROR .LETRA INCORRECTA"
FIN CASO
LLAMAR NUEVA_LINEA()
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(14)
ESCRIBA "DESEA INGRESAR A OTRO CLIENTE? (S/N):"
LEA RPT
LLAMAR COLOR_TEXTO(11)
CONT <- CONT + IN
FIN MIENTRAS
ESCRIBA "CLIENTES REGISTRADOS :", CONT
LLAMAR NUEVA_LINEA()
ESCRIBA "CLIENTES REGISTRADOS EN SEGURO A:", CONT2
LLAMAR NUEVA_LINEA()
ESCRIBA "PAGO TOTAL EN SEGURO A :", PAG*CONT2, " SOLES"
FIN
No hay comentarios.:
Publicar un comentario