-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
CADELA tiene una promoción denominada LUZ AL DÍA que consiste en dar descuentos a las personas que deben recibos de luz desde hace varios años. El recibo que se emitió antes del año 1996, recibirá un descuento del 65%. El recibo que se emitió entre el año 1996 y el 2000 recibirá un descuento del 45%. El recibo que se emitió después del año 2000 recibirá un descuento del 8%. Realice un algoritmo, que teniendo los datos de entrada de 2000 clientes: Año del recibo, monto del consumo de luz (sin descuento), determine:
a) Monto a pagar por el consumo de luz
b) Monto del descuento.
c) Monto a pagar por aseo urbano, el cual corresponde a 1000 Bs. por cada año de atraso.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Proceso PromocionLuzAlDia
Para i<-1 Hasta 2000 Con Paso 1 Hacer
Escribir "PROCESO ", i;
Escribir Sin Saltar "Ingresa el valor de ano del recibo:";
Leer ano_del_recibo;
Escribir Sin Saltar "Ingresa el valor de consumo de luz:";
Leer consumo_de_luz;
descuento <- 0;
Si ano_del_recibo<1996 Entonces
descuento <- consumo_de_luz*0.65;
FinSi
Si ano_del_recibo>=1996 Y ano_del_recibo<=2000 Entonces
descuento <- consumo_de_luz*0.45;
FinSi
Si ano_del_recibo>2000 Entonces
descuento <- consumo_de_luz*0.08;
FinSi
aseo_urbano <- (2017-ano_del_recibo)*1000;
monto_a_pagar <- consumo_de_luz-descuento+aseo_urbano;
Escribir "Valor de aseo urbano: ", aseo_urbano;
Escribir "Valor de descuento: ", descuento;
Escribir "Valor de monto a pagar: ", monto_a_pagar;
Escribir "";
FinPara
FinProceso
Para i<-1 Hasta 2000 Con Paso 1 Hacer
Escribir "PROCESO ", i;
Escribir Sin Saltar "Ingresa el valor de ano del recibo:";
Leer ano_del_recibo;
Escribir Sin Saltar "Ingresa el valor de consumo de luz:";
Leer consumo_de_luz;
descuento <- 0;
Si ano_del_recibo<1996 Entonces
descuento <- consumo_de_luz*0.65;
FinSi
Si ano_del_recibo>=1996 Y ano_del_recibo<=2000 Entonces
descuento <- consumo_de_luz*0.45;
FinSi
Si ano_del_recibo>2000 Entonces
descuento <- consumo_de_luz*0.08;
FinSi
aseo_urbano <- (2017-ano_del_recibo)*1000;
monto_a_pagar <- consumo_de_luz-descuento+aseo_urbano;
Escribir "Valor de aseo urbano: ", aseo_urbano;
Escribir "Valor de descuento: ", descuento;
Escribir "Valor de monto a pagar: ", monto_a_pagar;
Escribir "";
FinPara
FinProceso