Venta de electrodomésticos en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Un negocio vende 4 tipos de electrodomésticos:
- Lavadoras: $150,000
- Refrigeradores: $300,000
- Cocinas: $120,000
- Microondas: $80,000.
Asumiendo que cada cliente puede llevar 0 o mas items de cada electrodomestico, determine:
1) El monto recibido por concepto de ventas de lavadoras.
2) La cantidad de refrigeradores y cocinas compradas.
3) El total a pagar por cliente.
Asuma para ello que en caso de comprar cocinas, esta se encuentran con x% de descuento, si se paga en efectivo.
Valide que el descuento sea un porcentaje dentro del rango entre 1 y 30.
En caso contrario, asuma descuento 0.

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

Proceso VentaDeElectrodomesticos

    cantidad_cocinas_compradas <- 0;

    cantidad_refrigeradores_comprados <- 0;

    ventas_de_lavadoras <- 0;

    Repetir

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

        Leer cantidad_de_cocinas;

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

        Leer cantidad_de_lavadoras;

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

        Leer cantidad_de_microondas;

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

        Leer cantidad_de_refrigeradores;

        Escribir Sin Saltar "Ingresa el valor de porcentaje de descuento:";

        Leer porcentaje_de_descuento;

        ventas_de_lavadoras <- ventas_de_lavadoras+cantidad_de_lavadoras*150000;

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

        Escribir "    1.- Efectivo";

        Escribir "    2.- Tarjeta";

        Escribir Sin Saltar "    :";

        Repetir

            Leer tipo_de_pago;

            Si tipo_de_pago<1 O tipo_de_pago>2 Entonces

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

            FinSi

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

        cantidad_cocinas_compradas <- cantidad_cocinas_compradas+cantidad_de_cocinas;

        cantidad_refrigeradores_comprados <- cantidad_refrigeradores_comprados+cantidad_de_refrigeradores;

        total_a_pagar <- cantidad_de_lavadoras*150000+cantidad_de_refrigeradores*300000+cantidad_de_cocinas*120000+cantidad_de_microondas*80000;

        descuento <- 0;

        Si cantidad_de_cocinas>0 Y tipo_de_pago = 1 Y porcentaje_de_descuento>=0 Y porcentaje_de_descuento<=30 Entonces

            descuento <- cantidad_de_cocinas*120000*porcentaje_de_descuento/100;

            total_a_pagar <- total_a_pagar-descuento;

        FinSi

        Escribir "Valor de descuento: ", descuento;

        Escribir "Valor de total a pagar: ", total_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 cantidad cocinas compradas: ", cantidad_cocinas_compradas;

    Escribir "Valor de cantidad refrigeradores comprados: ", cantidad_refrigeradores_comprados;

    Escribir "Valor de ventas de lavadoras: ", ventas_de_lavadoras;

FinProceso