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