-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
En una tienda de accesorios para computadoras, el precio de venta unitario de los CDs es el mismo para cualquier marca, sin embargo, el descuento varía de acuerdo a las marcas y se establece en la siguiente tabla.
Marca | Descuento
3M | 10
Princo | 15
Samsung | 20
LG | 25
Sony | 30
Se debe de considerar que los descuentos son aplicados los sábados y domingos en el turno mañana y tarde.
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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Proceso AccesoriosParaComputadoras
Escribir Sin Saltar "Ingresa el valor de precio unitario:";
Leer precio_unitario;
descuento <- 0;
Escribir "Selecciona el valor de dia.";
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;
Si dia<1 O dia>7 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que dia>=1 Y dia<=7;
Escribir "Selecciona el valor de turno.";
Escribir " 1.- Mañana";
Escribir " 2.- Tarde";
Escribir " 3.- Noche";
Escribir Sin Saltar " :";
Repetir
Leer turno;
Si turno<1 O turno>3 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que turno>=1 Y turno<=3;
Escribir "Selecciona el valor de marca.";
Escribir " 1.- 3M";
Escribir " 2.- Princo";
Escribir " 3.- Samsung";
Escribir " 4.- LG";
Escribir " 5.- Sony";
Escribir Sin Saltar " :";
Repetir
Leer marca;
Si marca<1 O marca>5 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que marca>=1 Y marca<=5;
Si (dia = 1 O dia = 7) Y (turno = 1 O turno = 2) Y marca = 1 Entonces
descuento <- precio_unitario*0.1;
FinSi
Si (dia = 1 O dia = 7) Y (turno = 1 O turno = 2) Y marca = 2 Entonces
descuento <- precio_unitario*0.15;
FinSi
Si (dia = 1 O dia = 7) Y (turno = 1 O turno = 2) Y marca = 3 Entonces
descuento <- precio_unitario*0.2;
FinSi
Si (dia = 1 O dia = 7) Y (turno = 1 O turno = 2) Y marca = 4 Entonces
descuento <- precio_unitario*0.25;
FinSi
Si (dia = 1 O dia = 7) Y (turno = 1 O turno = 2) Y marca = 5 Entonces
descuento <- precio_unitario*0.30;
FinSi
total <- precio_unitario-descuento;
Escribir "Valor de descuento: ", descuento;
Escribir "Valor de total: ", total;
FinProceso
Escribir Sin Saltar "Ingresa el valor de precio unitario:";
Leer precio_unitario;
descuento <- 0;
Escribir "Selecciona el valor de dia.";
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;
Si dia<1 O dia>7 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que dia>=1 Y dia<=7;
Escribir "Selecciona el valor de turno.";
Escribir " 1.- Mañana";
Escribir " 2.- Tarde";
Escribir " 3.- Noche";
Escribir Sin Saltar " :";
Repetir
Leer turno;
Si turno<1 O turno>3 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que turno>=1 Y turno<=3;
Escribir "Selecciona el valor de marca.";
Escribir " 1.- 3M";
Escribir " 2.- Princo";
Escribir " 3.- Samsung";
Escribir " 4.- LG";
Escribir " 5.- Sony";
Escribir Sin Saltar " :";
Repetir
Leer marca;
Si marca<1 O marca>5 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que marca>=1 Y marca<=5;
Si (dia = 1 O dia = 7) Y (turno = 1 O turno = 2) Y marca = 1 Entonces
descuento <- precio_unitario*0.1;
FinSi
Si (dia = 1 O dia = 7) Y (turno = 1 O turno = 2) Y marca = 2 Entonces
descuento <- precio_unitario*0.15;
FinSi
Si (dia = 1 O dia = 7) Y (turno = 1 O turno = 2) Y marca = 3 Entonces
descuento <- precio_unitario*0.2;
FinSi
Si (dia = 1 O dia = 7) Y (turno = 1 O turno = 2) Y marca = 4 Entonces
descuento <- precio_unitario*0.25;
FinSi
Si (dia = 1 O dia = 7) Y (turno = 1 O turno = 2) Y marca = 5 Entonces
descuento <- precio_unitario*0.30;
FinSi
total <- precio_unitario-descuento;
Escribir "Valor de descuento: ", descuento;
Escribir "Valor de total: ", total;
FinProceso