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