-
Lenguaje
Pascal
-
Descripción
La empresa eléctrica desea calcular el pago por el consumo del mes. La tarifa por cada kwh es de $0.15. Leer datos del cliente, lecturas del medidor (del mes anterior y del mes actual). Calcular el consumo mensual en base a las lecturas del medidor, subtotal considerando el valor de la tarifa, 8% para bombero y total a pagar. Presentar los resultados consumo mensual, subtotal, impuesto de los bomberos, total a pagar junto a los datos del cliente.
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
26
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program ConsumoMenusalDeElectricidad;
uses crt;
var consumo_mensual, impuesto_de_los_bomberos, lectura_del_mes_actual, lectura_del_mes_anterior, subtotal : real;
var total_a_pagar : real;
var datos_del_cliente : string;
begin
write ('Ingresa el datos del cliente: ');
readln (datos_del_cliente);
write ('Ingresa el valor de lectura del mes actual: ');
readln (lectura_del_mes_actual);
write ('Ingresa el valor de lectura del mes anterior: ');
readln (lectura_del_mes_anterior);
consumo_mensual := lectura_del_mes_actual-lectura_del_mes_anterior;
subtotal := consumo_mensual*0.15;
impuesto_de_los_bomberos := consumo_mensual*0.08;
total_a_pagar := subtotal+impuesto_de_los_bomberos;
writeln ('Datos del cliente: ', datos_del_cliente);
writeln ('Valor de consumo mensual: ', consumo_mensual:0:6);
writeln ('Valor de impuesto de los bomberos: ', impuesto_de_los_bomberos:0:6);
writeln ('Valor de subtotal: ', subtotal:0:6);
writeln ('Valor de total a pagar: ', total_a_pagar:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var consumo_mensual, impuesto_de_los_bomberos, lectura_del_mes_actual, lectura_del_mes_anterior, subtotal : real;
var total_a_pagar : real;
var datos_del_cliente : string;
begin
write ('Ingresa el datos del cliente: ');
readln (datos_del_cliente);
write ('Ingresa el valor de lectura del mes actual: ');
readln (lectura_del_mes_actual);
write ('Ingresa el valor de lectura del mes anterior: ');
readln (lectura_del_mes_anterior);
consumo_mensual := lectura_del_mes_actual-lectura_del_mes_anterior;
subtotal := consumo_mensual*0.15;
impuesto_de_los_bomberos := consumo_mensual*0.08;
total_a_pagar := subtotal+impuesto_de_los_bomberos;
writeln ('Datos del cliente: ', datos_del_cliente);
writeln ('Valor de consumo mensual: ', consumo_mensual:0:6);
writeln ('Valor de impuesto de los bomberos: ', impuesto_de_los_bomberos:0:6);
writeln ('Valor de subtotal: ', subtotal:0:6);
writeln ('Valor de total a pagar: ', total_a_pagar:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.