Licencias de un programa en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Una empresa vende licencias de un programa a los precios dados en la siguiente tabla:
Versión | Precio
Estudiante | $90.00
Profesional | $120.00
Empresarial | $150.00

Como oferta especial la empresa aplica un porcentaje de descuento sobre el importe de la compra de acuerdo a la siguiente tabla:
Cantidad de licencias | Descuento
<5 | 11%
≥5 y <10 | 13%
≥10 | 14%

Diseñe un programa que permita efectuar ventas y muestre luego de cada una de ellas la siguiente información:
El importe de la compra
El importe del descuento
El importe a pagar
La cantidad de licencias vendidas de cada tipo entre todas las ventas.
El importe total acumulado de todas las ventas

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
53
54
55
56
57
58
59
60

Proceso LicenciasDeUnPrograma

    cantidad_empresarial <- 0;

    cantidad_estudiante <- 0;

    cantidad_profesional <- 0;

    total_acumulado <- 0;

    Repetir

        Escribir Sin Saltar "Ingresa el valor de cantidad de licencias:";

        Leer cantidad_de_licencias;

        precio <- 0;

        importe_del_descuento <- 0;

        Escribir "Selecciona el valor de version.";

        Escribir "    1.- Estudiante";

        Escribir "    2.- Profesional";

        Escribir "    3.- Empresarial";

        Escribir Sin Saltar "    :";

        Repetir

            Leer version;

            Si version<1 O version>3 Entonces

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

            FinSi

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

        Si version = 1 Entonces

            precio <- 90;

            cantidad_estudiante <- cantidad_estudiante+cantidad_de_licencias;

        FinSi

        Si version = 2 Entonces

            precio <- 120;

            cantidad_profesional <- cantidad_profesional+cantidad_de_licencias;

        FinSi

        Si version = 3 Entonces

            precio <- 150;

            cantidad_empresarial <- cantidad_empresarial+cantidad_de_licencias;

        FinSi

        importe_de_la_compra <- precio*cantidad_de_licencias;

        Si cantidad_de_licencias<5 Entonces

            importe_del_descuento <- importe_de_la_compra*0.11;

        FinSi

        Si cantidad_de_licencias>=5 Y cantidad_de_licencias<10 Entonces

            importe_del_descuento <- importe_de_la_compra*0.13;

        FinSi

        Si cantidad_de_licencias>=10 Entonces

            importe_del_descuento <- importe_de_la_compra*0.14;

        FinSi

        importe_a_pagar <- importe_de_la_compra-importe_del_descuento;

        total_acumulado <- total_acumulado+importe_a_pagar;

        Escribir "Valor de importe a pagar: ", importe_a_pagar;

        Escribir "Valor de importe de la compra: ", importe_de_la_compra;

        Escribir "Valor de importe del descuento: ", importe_del_descuento;

        Escribir "Valor de precio: ", precio;

        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 cantidad empresarial: ", cantidad_empresarial;

    Escribir "Valor de cantidad estudiante: ", cantidad_estudiante;

    Escribir "Valor de cantidad profesional: ", cantidad_profesional;

    Escribir "Valor de total acumulado: ", total_acumulado;

FinProceso