Compañía de luz del Centro 1 en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

La compañía de luz "Del Centro" desea imprimir los recibos de un grupo de empleados. Desea obtener también el total de cobros del periodo. Por cada cliente se ingresa su nombre, dirección, registro inicial y registro final del consumo. El cobro se efectúa en base a la siguiente tabla:
- 140 KVH o Menos: S/. 3.20.
- Los siguientes 170 KVH: S/. 0.15 por KVH.
- Exceso sobre 310 KVH: S/. 0.097 por KVH.
Por cada cliente se debe imprimir un recibo indicando sus datos y montos.

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

Proceso CompaniaDeLuzDelCentro1

    total_de_cobros <- 0;

    Repetir

        Escribir Sin Saltar "Ingresa el nombre:";

        Leer nombre;

        Escribir Sin Saltar "Ingresa el direccion:";

        Leer direccion;

        Escribir Sin Saltar "Ingresa el valor de registro final en KVH:";

        Leer registro_final_en_KVH;

        Escribir Sin Saltar "Ingresa el valor de registro inicial en KVH:";

        Leer registro_inicial_en_KVH;

        consumo_en_KVH <- registro_final_en_KVH-registro_inicial_en_KVH;

        cobro <- 0;

        Si consumo_en_KVH<=140 Entonces

            cobro <- 3.2;

        FinSi

        Si consumo_en_KVH>140 Entonces

            cobro <- consumo_en_KVH*0.15;

        FinSi

        Si consumo_en_KVH>310 Entonces

            cobro <- cobro+(consumo_en_KVH-310)*0.097;

        FinSi

        total_de_cobros <- total_de_cobros+cobro;

        Escribir "Nombre: ", nombre;

        Escribir "Direccion: ", direccion;

        Escribir "Valor de cobro: ", cobro;

        Escribir "Valor de consumo en KVH: ", consumo_en_KVH;

        Escribir "";

        Repetir

            Escribir Sin Saltar "¿Deseas repetir el proceso? (S/N):";

            Leer tecla_repetir;

        Hasta Que tecla_repetir='s' O tecla_repetir='n' O tecla_repetir='S' O tecla_repetir='N'

    Hasta Que tecla_repetir='n' O tecla_repetir='N'

    Escribir "Valor de total de cobros: ", total_de_cobros;

FinProceso