-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Movistar desea calcular el descuento y el costo a pagar en su nuevo plan de minutos así: Si es lunes y día par, el valor del minuto se cobrará con un descuento del 10%. Ejemplo: lunes 18 de septiembre de 2019. Si es lunes y día impar el valor del minuto se cobrará con un descuento del 7%. Si el día es martes, sin importar que sea día par o impar, el valor del minuto se cobrara con 20% de descuento. Si el día es miércoles sin importar que sea día par o impar, el valor del minuto se cobrara con un descuento del 15%. Para el resto de días sin importar que sea par o impar, el valor del minuto se cobrara con un 25% de descuento. Presentar al cliente el descuento y el valor a pagar.
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
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
Proceso PlanDeMinutos
Escribir Sin Saltar "Ingresa el valor de costo por minuto:";
Leer costo_por_minuto;
Escribir Sin Saltar "Ingresa el valor de dia del mes:";
Leer dia_del_mes;
Escribir Sin Saltar "Ingresa el valor de numero de minutos:";
Leer numero_de_minutos;
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;
subtotal <- numero_de_minutos*costo_por_minuto;
descuento <- 0;
Si dia_de_la_semana = 2 Y dia_del_mes MOD 2 = 0 Entonces
descuento <- subtotal*0.1;
FinSi
Si dia_de_la_semana = 2 Y dia_del_mes MOD 2 = 1 Entonces
descuento <- subtotal*0.07;
FinSi
Si dia_de_la_semana = 3 Entonces
descuento <- subtotal*0.2;
FinSi
Si dia_de_la_semana = 4 Entonces
descuento <- subtotal*0.15;
FinSi
Si dia_de_la_semana = 1 O dia_de_la_semana = 5 O dia_de_la_semana = 6 O dia_de_la_semana = 7 Entonces
descuento <- subtotal*0.25;
FinSi
costo_a_pagar <- subtotal-descuento;
Escribir "Valor de costo a pagar: ", costo_a_pagar;
Escribir "Valor de descuento: ", descuento;
Escribir "Valor de subtotal: ", subtotal;
FinProceso
Escribir Sin Saltar "Ingresa el valor de costo por minuto:";
Leer costo_por_minuto;
Escribir Sin Saltar "Ingresa el valor de dia del mes:";
Leer dia_del_mes;
Escribir Sin Saltar "Ingresa el valor de numero de minutos:";
Leer numero_de_minutos;
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;
subtotal <- numero_de_minutos*costo_por_minuto;
descuento <- 0;
Si dia_de_la_semana = 2 Y dia_del_mes MOD 2 = 0 Entonces
descuento <- subtotal*0.1;
FinSi
Si dia_de_la_semana = 2 Y dia_del_mes MOD 2 = 1 Entonces
descuento <- subtotal*0.07;
FinSi
Si dia_de_la_semana = 3 Entonces
descuento <- subtotal*0.2;
FinSi
Si dia_de_la_semana = 4 Entonces
descuento <- subtotal*0.15;
FinSi
Si dia_de_la_semana = 1 O dia_de_la_semana = 5 O dia_de_la_semana = 6 O dia_de_la_semana = 7 Entonces
descuento <- subtotal*0.25;
FinSi
costo_a_pagar <- subtotal-descuento;
Escribir "Valor de costo a pagar: ", costo_a_pagar;
Escribir "Valor de descuento: ", descuento;
Escribir "Valor de subtotal: ", subtotal;
FinProceso