Recibos de energía eléctrica en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Se necesita un programa para calcular el valor de los recibos de energía eléctrica, para lo cual se tiene en cuenta:
- El número de kilovatios consumidos se obtiene por diferencia de lecturas.
- El valor de kilovatio es de $110.
- Se aplican descuentos según el estrato (estrato 1 10%; estrato 2 6%; estrato 3 5%)
- Se debe imprimir lectura anterior, lectura actual, consumo en kilovatios, valor total, descuento, valor a pagar.

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

Proceso RecibosDeEnergiaElectrica

    Escribir Sin Saltar "Ingresa el valor de lectura actual:";

    Leer lectura_actual;

    Escribir Sin Saltar "Ingresa el valor de lectura anterior:";

    Leer lectura_anterior;

    Escribir "Selecciona el valor de estrato.";

    Escribir "    1.- estrato 1";

    Escribir "    2.- estrato 2";

    Escribir "    3.- estrato 3";

    Escribir Sin Saltar "    :";

    Repetir

        Leer estrato;

        Si estrato<1 O estrato>3 Entonces

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

        FinSi

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

    consumo_en_kilovatios <- lectura_actual-lectura_anterior;

    total <- consumo_en_kilovatios*110;

    descuento <- 0;

    Si estrato = 1 Entonces

        descuento <- total*0.1;

    FinSi

    Si estrato = 2 Entonces

        descuento <- total*0.06;

    FinSi

    Si estrato = 3 Entonces

        descuento <- total*0.05;

    FinSi

    pago <- total-descuento;

    Escribir "Valor de consumo en kilovatios: ", consumo_en_kilovatios;

    Escribir "Valor de descuento: ", descuento;

    Escribir "Valor de pago: ", pago;

    Escribir "Valor de total: ", total;

FinProceso