Productora de impresoras en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

En una empresa productora de impresoras ofrece una oferta para sus clientes de la siguiente manera: Si compra menos de 3 impresoras se les dará un 10% de descuento sobre el total de la compra; si el número de impresoras es mayor o igual a 3 pero menos de 6 se le dara un 15% de descuento; y si son 6 o más se les da un 20% de descuento. El precio de cada impresora es de $400. Se desea que muestre el monto a pagar y el promedio de montos de dinero que entro por 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

Proceso ProductoraDeImpresoras

    ventas <- 0;

    promedio_de_montos <- 0;

    Repetir

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

        Leer numero_de_impresoras;

        total_de_la_compra <- 400*numero_de_impresoras;

        Si numero_de_impresoras>=3 Y numero_de_impresoras<6 Entonces

            descuento <- total_de_la_compra*0.15;

        FinSi

        Si numero_de_impresoras>=6 Entonces

            descuento <- total_de_la_compra*0.2;

        FinSi

        monto_a_pagar <- total_de_la_compra-descuento;

        ventas <- ventas+1;

        promedio_de_montos <- promedio_de_montos+monto_a_pagar;

        Escribir "Valor de descuento: ", descuento;

        Escribir "Valor de monto a pagar: ", monto_a_pagar;

        Escribir "Valor de total de la compra: ", total_de_la_compra;

        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'

    Si ventas = 0 Entonces

        promedio_de_montos <- 0;

    SiNo

        promedio_de_montos <- promedio_de_montos/ventas;

    FinSi

    Escribir "Valor de ventas: ", ventas;

    Escribir "Valor de promedio de montos: ", promedio_de_montos;

FinProceso