Licencias de suprograma en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Una empresa desarrolladora de software ha puesto a la venta licencias de suprograma de edición de video Video Edit 2.0 a los siguientes costos unitarios:
Licencia costo
cobre $510
bronce $1,500
silver $3,100
gold $4,500
Diseñe un programa que permita ingresar por cada venta el tipo de licencia y el número de licencias y muestre luego de cada venta:
- El importe a pagar para la venta efectuada.
- El importe total recaudado de cada tipo de licencia.
- El número de licencias vendidas de cada tipo de licencia.
- El número de ventas efectuadas de cada tipo de licencia.

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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83

Proceso LicenciasDeSuprograma

    licencias_bronce <- 0;

    licencias_cobre <- 0;

    licencias_gold <- 0;

    licencias_silver <- 0;

    total_recaudado_bronce <- 0;

    total_recaudado_cobre <- 0;

    total_recaudado_gold <- 0;

    total_recaudado_silver <- 0;

    ventas_bronce <- 0;

    ventas_cobre <- 0;

    ventas_gold <- 0;

    ventas_silver <- 0;

    Repetir

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

        Leer numero_de_licencias;

        Escribir "Selecciona el valor de tipo de licencia.";

        Escribir "    1.- cobre";

        Escribir "    2.- bronce";

        Escribir "    3.- silver";

        Escribir "    4.- gold";

        Escribir Sin Saltar "    :";

        Repetir

            Leer tipo_de_licencia;

            Si tipo_de_licencia<1 O tipo_de_licencia>4 Entonces

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

            FinSi

        Hasta Que tipo_de_licencia>=1 Y tipo_de_licencia<=4;

        costo <- 0;

        Si tipo_de_licencia = 1 Entonces

            costo <- 510;

        FinSi

        Si tipo_de_licencia = 2 Entonces

            costo <- 1500;

        FinSi

        Si tipo_de_licencia = 3 Entonces

            costo <- 3100;

        FinSi

        Si tipo_de_licencia = 4 Entonces

            costo <- 4500;

        FinSi

        importe_a_pagar <- numero_de_licencias*costo;

        Si tipo_de_licencia = 1 Entonces

            total_recaudado_cobre <- total_recaudado_cobre+importe_a_pagar;

            licencias_cobre <- licencias_cobre+numero_de_licencias;

            ventas_cobre <- ventas_cobre+1;

        FinSi

        Si tipo_de_licencia = 2 Entonces

            total_recaudado_bronce <- total_recaudado_bronce+importe_a_pagar;

            licencias_bronce <- licencias_bronce+numero_de_licencias;

            ventas_bronce <- ventas_bronce+1;

        FinSi

        Si tipo_de_licencia = 3 Entonces

            total_recaudado_silver <- total_recaudado_silver+importe_a_pagar;

            licencias_silver <- licencias_silver+numero_de_licencias;

            ventas_silver <- ventas_silver+1;

        FinSi

        Si tipo_de_licencia = 4 Entonces

            total_recaudado_gold <- total_recaudado_gold+importe_a_pagar;

            licencias_gold <- licencias_gold+numero_de_licencias;

            ventas_gold <- ventas_gold+1;

        FinSi

        Escribir "Valor de costo: ", costo;

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

        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 licencias bronce: ", licencias_bronce;

    Escribir "Valor de licencias cobre: ", licencias_cobre;

    Escribir "Valor de licencias gold: ", licencias_gold;

    Escribir "Valor de licencias silver: ", licencias_silver;

    Escribir "Valor de total recaudado bronce: ", total_recaudado_bronce;

    Escribir "Valor de total recaudado cobre: ", total_recaudado_cobre;

    Escribir "Valor de total recaudado gold: ", total_recaudado_gold;

    Escribir "Valor de total recaudado silver: ", total_recaudado_silver;

    Escribir "Valor de ventas bronce: ", ventas_bronce;

    Escribir "Valor de ventas cobre: ", ventas_cobre;

    Escribir "Valor de ventas gold: ", ventas_gold;

    Escribir "Valor de ventas silver: ", ventas_silver;

FinProceso