• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    Cuál es el importe mensual o total a pagar por un cliente de las compras realizadas en una tienda. Si la compra es de al menos $1500 tiene un descuento de promocion del 10% y dependiendo del departamento se debe aplicar alguna de la siguiente promociones.
    - Infantiles: 12 meses
    - Damas: a 6 meses
    - Caballeros: 12 meses
    - Electrónica: 18 meses
    Debe mostrarse si su pago será único y de cuanto será el monto de sus mensualidades.

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
Proceso MensualidadesPorDepartamento
    Escribir Sin Saltar "Ingresa el valor de compra:";
    Leer compra;
    Escribir "Selecciona el valor de forma de pago.";
    Escribir "    1.- Al contado";
    Escribir "    2.- En mensualidades";
    Escribir Sin Saltar "    :";
    Repetir
        Leer forma_de_pago;
        Si forma_de_pago<1 O forma_de_pago>2 Entonces
            Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
        FinSi
    Hasta Que forma_de_pago>=1 Y forma_de_pago<=2;
    Escribir "Selecciona el valor de departamento.";
    Escribir "    1.- Infantiles";
    Escribir "    2.- Damas";
    Escribir "    3.- Caballeros";
    Escribir "    4.- Electrónica";
    Escribir Sin Saltar "    :";
    Repetir
        Leer departamento;
        Si departamento<1 O departamento>4 Entonces
            Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
        FinSi
    Hasta Que departamento>=1 Y departamento<=4;
    Si compra>=1500 Entonces
        descuento <- compra*0.1;
    SiNo
        descuento <- 0;
    FinSi
    total_a_pagar <- compra-descuento;
    importe_mensual <- 0;
    Si forma_de_pago = 2 Y (departamento = 1 O departamento = 3) Entonces
        importe_mensual <- total_a_pagar/12;
    FinSi
    Si forma_de_pago = 2 Y departamento = 2 Entonces
        importe_mensual <- total_a_pagar/6;
    FinSi
    Si forma_de_pago = 2 Y departamento = 4 Entonces
        importe_mensual <- total_a_pagar/18;
    FinSi
    Si forma_de_pago = 1 Entonces
        Escribir "El pago será único";
    FinSi
    Escribir "Valor de descuento: ", descuento;
    Escribir "Valor de importe mensual: ", importe_mensual;
    Escribir "Valor de total a pagar: ", total_a_pagar;
FinProceso