-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
En una tienda de descuento las personas que van a pagar el importe de su compra, llegan a la caja y sacan una bolita de color que les dirá qué descuento tendrán sobre el total de su compra. Determinar la cantidad que pagará cada cliente desde que la tienda abre hasta que cierra. Se sabe que si la bolita es roja, el cliente obtendrá un 40% de descuento; si es amarilla un 25% y si es blanca no obtendrá 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
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
Proceso DescuentoPorBolitaRojaAmarillaBlanca
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.4;
Escribir "Bolita roja";
FinSi
Si bolita = 1 Entonces
descuento <- importe_de_la_compra*0.25;
Escribir "Bolita amarilla";
FinSi
Si bolita = 2 Entonces
Escribir "Bolita blanca";
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'
FinProceso
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.4;
Escribir "Bolita roja";
FinSi
Si bolita = 1 Entonces
descuento <- importe_de_la_compra*0.25;
Escribir "Bolita amarilla";
FinSi
Si bolita = 2 Entonces
Escribir "Bolita blanca";
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'
FinProceso