-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
La política de la compañia telefónica "chismefón" es: "Chismea + x -". Cuando se realiza una llamada, el cobro es por el tiempo que esta dura, de tal forma que los primeros cinco minutos cuestan $1.00 c/u, los siguientes tres, $0.80 c/u, los siguientes dos minutos, $0.70 c/u, y a partir del décimo minuto, $0.50 c/u. Además, se carga un impuesto de 3% cuando es domingo, y si es día hábil, en turno matutino, 15%, y en turno vespertino, 10%. Determinar cuánto debe pagar por cada concepto una persona que realiza una llamada.
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
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
Proceso TelefonicaChismefon
Escribir Sin Saltar "Ingresa el valor de tiempo en minutos:";
Leer tiempo_en_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;
Escribir "Selecciona el valor de turno.";
Escribir " 1.- matutino";
Escribir " 2.- vespertino";
Escribir Sin Saltar " :";
Repetir
Leer turno;
Si turno<1 O turno>2 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que turno>=1 Y turno<=2;
Si tiempo_en_minutos<=5 Entonces
subtotal <- tiempo_en_minutos;
FinSi
Si tiempo_en_minutos>5 Y tiempo_en_minutos<=7 Entonces
subtotal <- 5.0+(tiempo_en_minutos-2)*0.8;
FinSi
Si tiempo_en_minutos>7 Y tiempo_en_minutos<=10 Entonces
subtotal <- 5.0+2.0*0.8+(tiempo_en_minutos-7)*0.7;
FinSi
Si tiempo_en_minutos>10 Entonces
subtotal <- 5.0+2.0*0.8+3.0*0.7+(tiempo_en_minutos-10)*0.5;
FinSi
impuesto <- 0;
Si dia_de_la_semana = 1 Entonces
impuesto <- subtotal*0.03;
FinSi
Si dia_de_la_semana <> 1 Y dia_de_la_semana <> 7 Y turno = 1 Entonces
impuesto <- subtotal*0.15;
FinSi
Si dia_de_la_semana <> 1 Y dia_de_la_semana <> 7 Y turno = 2 Entonces
impuesto <- subtotal*0.1;
FinSi
pago <- subtotal+impuesto;
Escribir "Valor de impuesto: ", impuesto;
Escribir "Valor de pago: ", pago;
Escribir "Valor de subtotal: ", subtotal;
FinProceso
Escribir Sin Saltar "Ingresa el valor de tiempo en minutos:";
Leer tiempo_en_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;
Escribir "Selecciona el valor de turno.";
Escribir " 1.- matutino";
Escribir " 2.- vespertino";
Escribir Sin Saltar " :";
Repetir
Leer turno;
Si turno<1 O turno>2 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que turno>=1 Y turno<=2;
Si tiempo_en_minutos<=5 Entonces
subtotal <- tiempo_en_minutos;
FinSi
Si tiempo_en_minutos>5 Y tiempo_en_minutos<=7 Entonces
subtotal <- 5.0+(tiempo_en_minutos-2)*0.8;
FinSi
Si tiempo_en_minutos>7 Y tiempo_en_minutos<=10 Entonces
subtotal <- 5.0+2.0*0.8+(tiempo_en_minutos-7)*0.7;
FinSi
Si tiempo_en_minutos>10 Entonces
subtotal <- 5.0+2.0*0.8+3.0*0.7+(tiempo_en_minutos-10)*0.5;
FinSi
impuesto <- 0;
Si dia_de_la_semana = 1 Entonces
impuesto <- subtotal*0.03;
FinSi
Si dia_de_la_semana <> 1 Y dia_de_la_semana <> 7 Y turno = 1 Entonces
impuesto <- subtotal*0.15;
FinSi
Si dia_de_la_semana <> 1 Y dia_de_la_semana <> 7 Y turno = 2 Entonces
impuesto <- subtotal*0.1;
FinSi
pago <- subtotal+impuesto;
Escribir "Valor de impuesto: ", impuesto;
Escribir "Valor de pago: ", pago;
Escribir "Valor de subtotal: ", subtotal;
FinProceso