quienes son los encargados de colocar tarjetas de crédito a los clientes. Las tarjetas que ofrecen son de dos tipos: Clásica y Platinum. Los agentes tienen un sueldo fijo mensual según la zona:
Catacaos S/.500
Sechura S/.600
Paita S/.400
Talara S/.650
y adicionalmente ganan una comisión: S/.8 por cada tarjeta clásica que colocan y S/.14 por cada tarjeta Platinum.
Escriba el algoritmo que permita registrar a varios agentes promotores junto con la cantidad de tarjetas de cada tipo colocada. La aplicación debe permitir registrar a varios agentes
conforme se responda a la pregunta ¿Desea registrar a otro agente?
Se pide:
1. Realice al menos cuatro validaciones cualquiera en los datos de entrada (3 ptos)
2. Calcular y mostrar por cada agente: su sueldo fijo, la ciudad asignada, la comisión y el sueldo final (5 ptos)
3. Calcular el número de agentes asignados a cada ciudad (4 ptos)
4. Calcular el total de tarjetas platinum y el total de tarjetas clásicas colocadas (4 ptos)
5. Calcular el promedio del sueldo de los agentes asignados a Talara (4 ptos)
Una empresa de telefonía tiene N vendedores (asignados a diferentes ciudades: Piura, Sullana y Talara) quienes son los encargados de vender líneas pre pago y postpago.
Los vendedores tienen un sueldo fijo y ganan por comisión: S/.5 por cada línea pre pago vendida y S/.8 por cada línea post pago.
Escriba el algoritmo que permita registrar a cada vendedor y la cantidad de líneas de cada tipo vendida. El algoritmo debe mostrar el sueldo fijo, la comisión ganada por
cada tipo de línea telefónica vendida y el sueldo final.
Luego, debe mostrar un resumen informando lo siguiente:
- El total de líneas pre pago vendidas (considerando todos los vendedores)
- El total de líneas post pago vendidas (considerando todos los vendedores)
- La cantidad de líneas prepago vendidas en Piura, en Sullana y Talara
- La cantidad de vendedores asignados a Piura, Sullana y Talara.
ADICIONAL
A)LA APLICACION DEBE INDICAR EN QUE CIUDAD SE VENDIO MAS LINEAS PRE PAGO
B)LA APLICACION DEBE INDICAR EN QUE CIUDAD SE VENDIO MAS LINEAS POST PAGO
AUTOR: MARKO ARRUNATEGUI URBINA
fecha: 18/10/2017 - 11:15 am.
*/
ENTERO J,P,PREP,POST ,COMISION
ENTERO TOTALPRE, TOTALPOST, TOTALPRE_C, TOTALPRE_S, TOTALPRE_P, TOTALPRE_T, TOTALPOST_C, TOTALPOST_S, TOTALPOST_P,TOTALPOST_T
CADENA [30] NOMBRE, N //DEL VENDEDOR
CARACTER CIUDAD //LA LETRA DE LA CIUDAD C,S,P,T
REAL SFIJO, SFINAL
CARACTER RPT
INICIO
TOTALPRE <- 0
TOTALPOST <- 0
TOTALPRE_C <- 0
TOTALPRE_S <- 0
TOTALPRE_P <- 0
TOTALPRE_T <- 0
TOTALPOST_C <- 0
TOTALPOST_S <- 0
TOTALPOST_P <- 0
TOTALPOST_T <- 0
LLAMAR NUEVA_LINEA
LLAMAR COLOR_TEXTO(11)
ESCRIBA " ================BANCO FRANK============"
LLAMAR NUEVA_LINEA
LLAMAR NUEVA_LINEA
LLAMAR COLOR_TEXTO(14)//14 AMARILLO
RPT <- 'S' //INICIALIZANDO PARA QUE ENTRE LA 1RA VEZ
MIENTRAS (RPT = 'S')O (RPT = 's') HAGA
ESCRIBA "INGRESE UN PROMOTOR: "
LEA N
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(11)
ESCRIBA "DESEA INGRESAR A OTRO PROMOTOR?(S/N)"
LEA RPT
FIN MIENTRAS
ESCRIBA "INGRESE NOMBRE DEL PROMOTOR: "
LLAMAR COLOR_TEXTO(11)
LEA NOMBRE
CIUDAD <- 'X' //VALOR INICIAL PARA 1 ENTRE LA 1RA VEZ
MIENTRAS (CIUDAD<>'C')Y(CIUDAD<>'c')Y(CIUDAD<>'S') Y(CIUDAD<>'s')Y(CIUDAD<>'P')Y(CIUDAD<>'p')Y(CIUDAD<>'T')Y(CIUDAD<>'t') HAGA
LLAMAR COLOR_TEXTO(14)
LLAMAR NUEVA_LINEA()
ESCRIBA "INGRESE LA CIUDAD"
LLAMAR NUEVA_LINEA()
LLAMAR NUEVA_LINEA
ESCRIBA "[C] CATACAOS - [S] SECHURA - [P] PAITA - [T] TALARA : "
LLAMAR COLOR_TEXTO(11)
LEA CIUDAD
LLAMAR NUEVA_LINEA
SI (CIUDAD<>'C')Y(CIUDAD<>'c')Y(CIUDAD<>'S') Y(CIUDAD<>'s')Y(CIUDAD<>'P')Y(CIUDAD<>'p')Y(CIUDAD<>'T')Y(CIUDAD<>'t') ENTONCES //ERROR
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(12) //12 ROJO
ESCRIBA "ERROR. LETRA DE CIUDAD INCORRECTA.INTENTE OTRA VEZ"
LLAMAR COLOR_TEXTO(14) //14 AMARILLO
FIN SI
FIN MIENTRAS
//EL SUELDO FIJO
SI (CIUDAD= 'C' ) ENTONCES
SFIJO <- 500
SINO
SI (CIUDAD = 'S')ENTONCES
SFIJO <- 600
SINO
SI (CIUDAD = 'P') ENTONCES
SFIJO <- 400
SINO
SI (CIUDAD = 'T')ENTONCES
SFIJO <- 650
FIN SI
FIN SI
FIN SI
FIN SI
PREP <- -1
MIENTRAS(PREP <0) HAGA
LLAMAR COLOR_TEXTO(14)
LLAMAR NUEVA_LINEA()
ESCRIBA "INGRESE LINEAS DE PREPAGO VENDIDAS: "
LLAMAR COLOR_TEXTO(11)
LEA PREP
SI(PREP<0)ENTONCES
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(12) //12 ROJO
ESCRIBA "ERROR. SUELDO INCORRECTO. INTENTE OTRA VEZ"
LLAMAR COLOR_TEXTO(14)//14 AMARILLO
SINO
TOTALPRE<-TOTALPRE+PREP
CASO CIUDAD
'C' , 'c': TOTALPRE_C<-TOTALPRE_C+PREP
'S' , 's': TOTALPRE_S<-TOTALPRE_S+PREP
'P' , 'p': TOTALPRE_P<-TOTALPRE_P+PREP
'T' , 't': TOTALPRE_T<-TOTALPRE_T+PREP
FIN CASO
FIN SI
FIN MIENTRAS
POST <- -1
MIENTRAS(POST <0) HAGA
LLAMAR COLOR_TEXTO(14)
LLAMAR NUEVA_LINEA()
ESCRIBA "INGRESE LINEAS DE POSTPAGO VENDIDAS: "
LLAMAR COLOR_TEXTO(11)
LEA POST
SI(POST<0)ENTONCES
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(12) //12 ROJO
ESCRIBA "ERROR. SUELDO INCORRECTO. INTENTE OTRA VEZ"
LLAMAR COLOR_TEXTO(14)//14 AMARILLO
SINO
TOTALPOST<-TOTALPOST+POST
CASO CIUDAD
'C' , 'c': TOTALPOST_C<-TOTALPRE_C+PREP
'S' , 's': TOTALPOST_S<-TOTALPRE_S+PREP
'P' , 'p': TOTALPOST_P<-TOTALPRE_P+PREP
'T' , 't': TOTALPOST_T<-TOTALPRE_T+PREP
FIN CASO
FIN SI
FIN MIENTRAS
//CALCULANDO LA COMISION
COMISION <-5*PREP + 8*POST //SEGUN EL ENUNCIADO
//CALCULANDO SUELDO FINAL
SFINAL <- SFIJO + COMISION
//MOSTRANDO RESULTADOS
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(11) //11 CELESTE
ESCRIBA "==========="
LLAMAR NUEVA_LINEA()
ESCRIBA " VENDEDOR: " ,NOMBRE
LLAMAR NUEVA_LINEA()
ESCRIBA " CIUDAD: ",CIUDAD
LLAMAR NUEVA_LINEA()
ESCRIBA " CANTIDAD DE PRE PAGO: ", PREP
LLAMAR NUEVA_LINEA()
ESCRIBA " CANTIDAD POST PAGO:", POST
LLAMAR NUEVA_LINEA()
ESCRIBA " SUELDO FIJO : $", SFIJO
LLAMAR NUEVA_LINEA()
ESCRIBA " COMISION : $",COMISION
LLAMAR NUEVA_LINEA()
ESCRIBA " SUELDO FINAL : $", SFINAL
LLAMAR NUEVA_LINEA()
ESCRIBA "========================"
LLAMAR COLOR_TEXTO(14)//VOLVEMOS A AMARILLO
LLAMAR NUEVA_LINEA()
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(13)
ESCRIBA " REPORTE FINAL "
LLAMAR NUEVA_LINEA()
LLAMAR NUEVA_LINEA()
ESCRIBA " TOTAL DE TARJETA CLASICA : ", TOTALPRE
LLAMAR NUEVA_LINEA()
ESCRIBA " TOTAL DE TARJE PLATINUM : ", TOTALPOST
LLAMAR NUEVA_LINEA()
ESCRIBA " TOTAL DE TARJETAS CLASICAS EN CATACAOS : ", TOTALPRE_C
LLAMAR NUEVA_LINEA()
ESCRIBA " TOTAL DE TARJETAS CLASICAS EN SECHURA : ", TOTALPRE_S
LLAMAR NUEVA_LINEA()
ESCRIBA " TOTAL DE TARJETAS CLASICAS EN PAITA : ", TOTALPRE_P
LLAMAR NUEVA_LINEA()
ESCRIBA " TOTAL DE TARJETAS CLASICAS EN TALARA : ", TOTALPRE_T
LLAMAR NUEVA_LINEA()
ESCRIBA " TOTAL DE TARJETAS PLATINUIM EN CATACAOS : ", TOTALPOST_C
LLAMAR NUEVA_LINEA()
ESCRIBA " TOTAL DE TARJETAS PLATINUIM EN SECHURA : ", TOTALPOST_S
LLAMAR NUEVA_LINEA()
ESCRIBA " TOTAL DE TARJETAS PLATINUIM EN PAITA : ", TOTALPOST_P
LLAMAR NUEVA_LINEA()
ESCRIBA " TOTAL DE TARJETAS PLATINUIM EN TALARA : ", TOTALPOST_T
LLAMAR NUEVA_LINEA()
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(14)
FIN
No hay comentarios.:
Publicar un comentario