• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    Una librería por temporada escolar a los clientes que realicen compras, otorgará regalos y descuentos de acuerdo al importe total de la compra. Los días viernes ó sábado se aplicará un descuento del 25% del importe total, para otros días no se aplica el descuento. Los importes menores a $100 se otorgará una caja de colores, para importes de $100 y menores de $300 el obsequio será un caja de plumones y montos de $300 a más el obsequio será de una mochila. Considerar como datos de ingreso nombre del cliente, importe total y día de la semana.

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
Proceso DescuentosYRegalosEnUnaLibreria
    Escribir Sin Saltar "Ingresa el nombre del cliente:";
    Leer nombre_del_cliente;
    Escribir Sin Saltar "Ingresa el valor de importe total:";
    Leer importe_total;
    Escribir "Selecciona el valor de dia de la semana.";
    Escribir "    1.- Domingo";
    Escribir "    2.- Lunes";
    Escribir "    3.- Martes";
    Escribir "    4.- Miércoles";
    Escribir "    5.- Jueves";
    Escribir "    6.- Viernes";
    Escribir "    7.- Sábado";
    Escribir Sin Saltar "    :";
    Repetir
        Leer dia_de_la_semana;
        Si dia_de_la_semana<1 O dia_de_la_semana>7 Entonces
            Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
        FinSi
    Hasta Que dia_de_la_semana>=1 Y dia_de_la_semana<=7;
    Si dia_de_la_semana = 6 O dia_de_la_semana = 7 Entonces
        descuento <- importe_total*0.25;
    SiNo
        descuento <- 0;
    FinSi
    importe <- importe_total-descuento;
    Si importe<100 Entonces
        Escribir "Se obsequia una caja de colores";
    FinSi
    Si importe>=100 Y importe<300 Entonces
        Escribir "Se obsequia una caja de plumones";
    FinSi
    Si importe>=300 Entonces
        Escribir "Se obsequia una mochila";
    FinSi
    Escribir "Nombre del cliente: ", nombre_del_cliente;
    Escribir "Valor de descuento: ", descuento;
    Escribir "Valor de importe: ", importe;
FinProceso