Pago por kilovatio según la zona en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
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

Proceso PagoPorKilovatioSegunLaZona

    Escribir Sin Saltar "Ingresa el apellido:";

    Leer apellido;

    Escribir Sin Saltar "Ingresa el cedula del cliente:";

    Leer cedula_del_cliente;

    Escribir Sin Saltar "Ingresa el valor de kilovatios consumidos:";

    Leer kilovatios_consumidos;

    Escribir "Selecciona el valor de zona.";

    Escribir "    1.- Rural";

    Escribir "    2.- Urbana";

    Escribir "    3.- Comercial";

    Escribir Sin Saltar "    :";

    Repetir

        Leer zona;

        Si zona<1 O zona>3 Entonces

            Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";

        FinSi

    Hasta Que zona>=1 Y zona<=3;

    costo_del_kilovatio <- 0;

    Si zona = 1 Entonces

        costo_del_kilovatio <- 32;

        Escribir "Zona rural";

    FinSi

    Si zona = 2 Entonces

        costo_del_kilovatio <- 43.25;

        Escribir "Zona urbana";

    FinSi

    Si zona = 3 Entonces

        costo_del_kilovatio <- 55;

        Escribir "Zona comercial";

    FinSi

    subtotal <- kilovatios_consumidos*costo_del_kilovatio;

    iva <- subtotal*0.12;

    total <- subtotal+iva;

    Escribir "Apellido: ", apellido;

    Escribir "Cedula del cliente: ", cedula_del_cliente;

    Escribir "Valor de costo del kilovatio: ", costo_del_kilovatio;

    Escribir "Valor de iva: ", iva;

    Escribir "Valor de subtotal: ", subtotal;

    Escribir "Valor de total: ", total;

FinProceso