-
Lenguaje
Pascal
-
Descripción
Calcula los kilovatios consumidos según la zona donde vive. Si la zona es rural, el costo del kilovatio es de 32. Si la zona es urbana el costo del kilovatio es de 43.25, y si la zona es comercial es de 55. Visualizar; apellido y cédula del cliente, zona donde vive, y tomar en cuenta el iva (12%).
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
program PagoPorKilovatioSegunLaZona;
uses crt;
var zona : integer;
var costo_del_kilovatio, iva, kilovatios_consumidos, subtotal, total : real;
var apellido, cedula_del_cliente : string;
begin
write ('Ingresa el apellido: ');
readln (apellido);
write ('Ingresa el cedula del cliente: ');
readln (cedula_del_cliente);
write ('Ingresa el valor de kilovatios consumidos: ');
readln (kilovatios_consumidos);
writeln ('Selecciona el valor de zona.');
writeln (' 1.- Rural');
writeln (' 2.- Urbana');
writeln (' 3.- Comercial');
write (' : ');
repeat
readln (zona);
if (zona<1) or (zona>3) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (zona>=1) and (zona<=3);
costo_del_kilovatio := 0;
if zona=1 then
begin
costo_del_kilovatio := 32;
writeln ('Zona rural');
end;
if zona=2 then
begin
costo_del_kilovatio := 43.25;
writeln ('Zona urbana');
end;
if zona=3 then
begin
costo_del_kilovatio := 55;
writeln ('Zona comercial');
end;
subtotal := kilovatios_consumidos*costo_del_kilovatio;
iva := subtotal*0.12;
total := subtotal+iva;
writeln ('Apellido: ', apellido);
writeln ('Cedula del cliente: ', cedula_del_cliente);
writeln ('Valor de costo del kilovatio: ', costo_del_kilovatio:0:6);
writeln ('Valor de iva: ', iva:0:6);
writeln ('Valor de subtotal: ', subtotal:0:6);
writeln ('Valor de total: ', total:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var zona : integer;
var costo_del_kilovatio, iva, kilovatios_consumidos, subtotal, total : real;
var apellido, cedula_del_cliente : string;
begin
write ('Ingresa el apellido: ');
readln (apellido);
write ('Ingresa el cedula del cliente: ');
readln (cedula_del_cliente);
write ('Ingresa el valor de kilovatios consumidos: ');
readln (kilovatios_consumidos);
writeln ('Selecciona el valor de zona.');
writeln (' 1.- Rural');
writeln (' 2.- Urbana');
writeln (' 3.- Comercial');
write (' : ');
repeat
readln (zona);
if (zona<1) or (zona>3) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (zona>=1) and (zona<=3);
costo_del_kilovatio := 0;
if zona=1 then
begin
costo_del_kilovatio := 32;
writeln ('Zona rural');
end;
if zona=2 then
begin
costo_del_kilovatio := 43.25;
writeln ('Zona urbana');
end;
if zona=3 then
begin
costo_del_kilovatio := 55;
writeln ('Zona comercial');
end;
subtotal := kilovatios_consumidos*costo_del_kilovatio;
iva := subtotal*0.12;
total := subtotal+iva;
writeln ('Apellido: ', apellido);
writeln ('Cedula del cliente: ', cedula_del_cliente);
writeln ('Valor de costo del kilovatio: ', costo_del_kilovatio:0:6);
writeln ('Valor de iva: ', iva:0:6);
writeln ('Valor de subtotal: ', subtotal:0:6);
writeln ('Valor de total: ', total:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.