-
Lenguaje
Pascal
-
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
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
program EmpresaDeElectricidad;
uses crt;
var consumo_en_KWH, impuesto_IGV, pago, subtotal : real;
begin
write ('Ingresa el valor de consumo en KWH: ');
readln (consumo_en_KWH);
subtotal := consumo_en_KWH*0.2;
if consumo_en_KWH>50 then
begin
subtotal := subtotal+(consumo_en_KWH-50)*0.05;
end;
if consumo_en_KWH>100 then
begin
subtotal := subtotal+(consumo_en_KWH-100)*0.07;
end;
impuesto_IGV := subtotal*0.19;
pago := subtotal+impuesto_IGV;
writeln ('Valor de impuesto IGV: ', impuesto_IGV:0:6);
writeln ('Valor de pago: ', pago:0:6);
writeln ('Valor de subtotal: ', subtotal:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var consumo_en_KWH, impuesto_IGV, pago, subtotal : real;
begin
write ('Ingresa el valor de consumo en KWH: ');
readln (consumo_en_KWH);
subtotal := consumo_en_KWH*0.2;
if consumo_en_KWH>50 then
begin
subtotal := subtotal+(consumo_en_KWH-50)*0.05;
end;
if consumo_en_KWH>100 then
begin
subtotal := subtotal+(consumo_en_KWH-100)*0.07;
end;
impuesto_IGV := subtotal*0.19;
pago := subtotal+impuesto_IGV;
writeln ('Valor de impuesto IGV: ', impuesto_IGV:0:6);
writeln ('Valor de pago: ', pago:0:6);
writeln ('Valor de subtotal: ', subtotal:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.