• Lenguaje

    Pascal

  • Descripción

    Elabore un algoritmo para una empresa eléctrica que permita ingresar el código de suministro y la cantidad de Kilowatts consumidos. Calcule y muestre los siguientes pagos:
    - Importe inicial.
    - El pago del 3.5% por alumbrado público.
    - El pago del $1.80 por mantenimiento.
    - El pago de $4.80 por reajuste de acuerdo a ley.
    - El 19% por pago del IGV.
    - El pago total.
    Los datos a ingresar son el nombre de usuario, la cantidad de Kilowatts, considerar para todos los casos que la tarifa por cada Kilowatts es de $0.50.
    Nota: Los porcentajes son con respecto al importe inicial.

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
27
28
29
30
31
program EmpresaElectrica;
uses crt;

var IGV, alumbrado_publico, cantidad_de_kilowatts, importe_inicial, mantenimiento : real;
var pago_total, reajuste : real;
var codigo_de_suministro, nombre_de_usuario : string;
begin
    write ('Ingresa el codigo de suministro: ');
    readln (codigo_de_suministro);
    write ('Ingresa el nombre de usuario: ');
    readln (nombre_de_usuario);
    write ('Ingresa el valor de cantidad de kilowatts: ');
    readln (cantidad_de_kilowatts);
    importe_inicial := 0.5*cantidad_de_kilowatts;
    alumbrado_publico := importe_inicial*0.035;
    mantenimiento := 1.8;
    reajuste := 4.8;
    IGV := importe_inicial*0.19;
    pago_total := importe_inicial+alumbrado_publico+mantenimiento+reajuste+IGV;
    writeln ('Codigo de suministro: ', codigo_de_suministro);
    writeln ('Nombre de usuario: ', nombre_de_usuario);
    writeln ('Valor de IGV: ', IGV:0:6);
    writeln ('Valor de alumbrado publico: ', alumbrado_publico:0:6);
    writeln ('Valor de importe inicial: ', importe_inicial:0:6);
    writeln ('Valor de mantenimiento: ', mantenimiento:0:6);
    writeln ('Valor de pago total: ', pago_total:0:6);
    writeln ('Valor de reajuste: ', reajuste:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.