-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Una cierta empresa de distribución de electricidad ha fijado las siguientes tarifas para aplicar los cobros a sus clientes:
- Hasta de 50 KWH, $0.20 por cada KWH
- Más 50 KWH y hasta 100 KWH, $0.25 por cada KWH de exceso, y
- Más de 100 KWH $0.32 por cada KWH de exceso.
Al ingresar el consumo de un cliente, calcule el valor que deberá pagar. Este valor debe incluir el impuesto IGV (19%).
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Proceso EmpresaDeElectricidad
Escribir Sin Saltar "Ingresa el valor de consumo en KWH:";
Leer consumo_en_KWH;
subtotal <- consumo_en_KWH*0.2;
Si consumo_en_KWH>50 Entonces
subtotal <- subtotal+(consumo_en_KWH-50)*0.05;
FinSi
Si consumo_en_KWH>100 Entonces
subtotal <- subtotal+(consumo_en_KWH-100)*0.07;
FinSi
impuesto_IGV <- subtotal*0.19;
pago <- subtotal+impuesto_IGV;
Escribir "Valor de impuesto IGV: ", impuesto_IGV;
Escribir "Valor de pago: ", pago;
Escribir "Valor de subtotal: ", subtotal;
FinProceso
Escribir Sin Saltar "Ingresa el valor de consumo en KWH:";
Leer consumo_en_KWH;
subtotal <- consumo_en_KWH*0.2;
Si consumo_en_KWH>50 Entonces
subtotal <- subtotal+(consumo_en_KWH-50)*0.05;
FinSi
Si consumo_en_KWH>100 Entonces
subtotal <- subtotal+(consumo_en_KWH-100)*0.07;
FinSi
impuesto_IGV <- subtotal*0.19;
pago <- subtotal+impuesto_IGV;
Escribir "Valor de impuesto IGV: ", impuesto_IGV;
Escribir "Valor de pago: ", pago;
Escribir "Valor de subtotal: ", subtotal;
FinProceso