-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Un supermercado ha implementado una promoción de descuento de las personas que van a pagar en caja. Si saca una bolita roja tendrá un descuento sobre el importe comprado del 10%, si es amarilla del 5% y si es blanca no tendrá descuento. Desarrollar el programa mientras se desee continuar. Mostrar lo siguiente:
- Cuánto pagará cada persona.
- Cuántas personas no tuvieron ningún descuento.
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
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
Proceso DescuentoPorBolitaRojaAmarillaBlanca2
personas_sin_descuento <- 0;
Repetir
Escribir Sin Saltar "Ingresa el valor de importe de la compra:";
Leer importe_de_la_compra;
descuento <- 0;
bolita <- AZAR(3);
Si bolita = 0 Entonces
descuento <- importe_de_la_compra*0.1;
Escribir "Bolita roja";
FinSi
Si bolita = 1 Entonces
descuento <- importe_de_la_compra*0.05;
Escribir "Bolita amarilla";
FinSi
Si bolita = 2 Entonces
Escribir "Bolita blanca";
personas_sin_descuento <- personas_sin_descuento+1;
FinSi
cantidad_a_pagar <- importe_de_la_compra-descuento;
Escribir "Valor de bolita: ", bolita;
Escribir "Valor de cantidad a pagar: ", cantidad_a_pagar;
Escribir "Valor de descuento: ", descuento;
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 personas sin descuento: ", personas_sin_descuento;
FinProceso
personas_sin_descuento <- 0;
Repetir
Escribir Sin Saltar "Ingresa el valor de importe de la compra:";
Leer importe_de_la_compra;
descuento <- 0;
bolita <- AZAR(3);
Si bolita = 0 Entonces
descuento <- importe_de_la_compra*0.1;
Escribir "Bolita roja";
FinSi
Si bolita = 1 Entonces
descuento <- importe_de_la_compra*0.05;
Escribir "Bolita amarilla";
FinSi
Si bolita = 2 Entonces
Escribir "Bolita blanca";
personas_sin_descuento <- personas_sin_descuento+1;
FinSi
cantidad_a_pagar <- importe_de_la_compra-descuento;
Escribir "Valor de bolita: ", bolita;
Escribir "Valor de cantidad a pagar: ", cantidad_a_pagar;
Escribir "Valor de descuento: ", descuento;
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 personas sin descuento: ", personas_sin_descuento;
FinProceso