• 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
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.