Venta Express en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Un empleado de la tienda "Venta Express" realiza N ventas durante el día de trabajo. Se requiere saber:
- Cuántas de ellas fueron mayores a $1,100.
- Cuántas fueron mayores a $600 pero menores o iguales a $1,100.
- Cuántas fueron menores o iguales a $600.
Sabiendo que existe dos tipos de ventas A o B, si es A un descuento de 20%, en caso de B un descuento de 35%. Además, se requiere saber el monto de lo vendido en cada categoría y de forma global, al monto final aplicar el IGV (18%). Se debe imprimir el nombre del cliente.

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

Proceso VentaExpress

    entre_600_y_1100 <- 0;

    mayores_a_1100 <- 0;

    menores_a_600 <- 0;

    monto_categoria_A <- 0;

    monto_categoria_B <- 0;

    monto_global <- 0;

    Escribir Sin Saltar "Ingresa el valor de n:";

    Leer n;

    Para i<-1 Hasta n Con Paso 1 Hacer

        Escribir "PROCESO ", i;

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

        Leer nombre_del_cliente;

        Escribir Sin Saltar "Ingresa el valor de venta:";

        Leer venta;

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

        Escribir "    1.- A";

        Escribir "    2.- B";

        Escribir Sin Saltar "    :";

        Repetir

            Leer tipo_de_venta;

            Si tipo_de_venta<1 O tipo_de_venta>2 Entonces

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

            FinSi

        Hasta Que tipo_de_venta>=1 Y tipo_de_venta<=2;

        Si venta>1100 Entonces

            mayores_a_1100 <- mayores_a_1100+1;

        FinSi

        Si venta>600 Y venta<=1100 Entonces

            entre_600_y_1100 <- entre_600_y_1100+1;

        FinSi

        Si venta<=600 Entonces

            menores_a_600 <- menores_a_600+1;

        FinSi

        Si tipo_de_venta = 1 Entonces

            descuento <- venta*0.2;

        SiNo

            descuento <- venta*0.35;

        FinSi

        monto <- venta-descuento;

        IGV <- monto*0.18;

        monto_final <- monto+IGV;

        monto_global <- monto_global+monto;

        Si tipo_de_venta = 1 Entonces

            monto_categoria_A <- monto_categoria_A+monto;

        SiNo

            monto_categoria_B <- monto_categoria_B+monto;

        FinSi

        Escribir "Nombre del cliente: ", nombre_del_cliente;

        Escribir "Valor de IGV: ", IGV;

        Escribir "Valor de descuento: ", descuento;

        Escribir "Valor de monto: ", monto;

        Escribir "Valor de monto final: ", monto_final;

        Escribir "";

    FinPara

    Escribir "Valor de entre 600 y 1100: ", entre_600_y_1100;

    Escribir "Valor de mayores a 1100: ", mayores_a_1100;

    Escribir "Valor de menores a 600: ", menores_a_600;

    Escribir "Valor de monto categoria A: ", monto_categoria_A;

    Escribir "Valor de monto categoria B: ", monto_categoria_B;

    Escribir "Valor de monto global: ", monto_global;

FinProceso