-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
El club El Bosque cobra incrementos sobre el pago mensual a sus socios según el servicio, tal como figura en el siguiente cuadro:
Servicio | Incremento
Comidas | 5%
Sauna | 7%
Hospedaje | 9%
Además si el socio tiene más de 60 años recibe un descuento del 2% sobre el pago mensual ya incrementado. Calcule el monto del incremento y el total a pagar por el socio.
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
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
Proceso ServiciosDeUnClub
Escribir Sin Saltar "Ingresa el valor de edad:";
Leer edad;
Escribir Sin Saltar "Ingresa el valor de pago mensual:";
Leer pago_mensual;
Escribir "Selecciona el valor de servicio.";
Escribir " 1.- Comidas";
Escribir " 2.- Sauna";
Escribir " 3.- Hospedaje";
Escribir Sin Saltar " :";
Repetir
Leer servicio;
Si servicio<1 O servicio>3 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que servicio>=1 Y servicio<=3;
monto_del_incremento <- 0;
Si servicio = 1 Entonces
monto_del_incremento <- pago_mensual*0.05;
FinSi
Si servicio = 2 Entonces
monto_del_incremento <- pago_mensual*0.07;
FinSi
Si servicio = 3 Entonces
monto_del_incremento <- pago_mensual*0.09;
FinSi
Si edad>60 Entonces
descuento <- pago_mensual*0.2;
SiNo
descuento <- 0;
FinSi
total_a_pagar <- pago_mensual+monto_del_incremento-descuento;
Escribir "Valor de descuento: ", descuento;
Escribir "Valor de monto del incremento: ", monto_del_incremento;
Escribir "Valor de total a pagar: ", total_a_pagar;
FinProceso
Escribir Sin Saltar "Ingresa el valor de edad:";
Leer edad;
Escribir Sin Saltar "Ingresa el valor de pago mensual:";
Leer pago_mensual;
Escribir "Selecciona el valor de servicio.";
Escribir " 1.- Comidas";
Escribir " 2.- Sauna";
Escribir " 3.- Hospedaje";
Escribir Sin Saltar " :";
Repetir
Leer servicio;
Si servicio<1 O servicio>3 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que servicio>=1 Y servicio<=3;
monto_del_incremento <- 0;
Si servicio = 1 Entonces
monto_del_incremento <- pago_mensual*0.05;
FinSi
Si servicio = 2 Entonces
monto_del_incremento <- pago_mensual*0.07;
FinSi
Si servicio = 3 Entonces
monto_del_incremento <- pago_mensual*0.09;
FinSi
Si edad>60 Entonces
descuento <- pago_mensual*0.2;
SiNo
descuento <- 0;
FinSi
total_a_pagar <- pago_mensual+monto_del_incremento-descuento;
Escribir "Valor de descuento: ", descuento;
Escribir "Valor de monto del incremento: ", monto_del_incremento;
Escribir "Valor de total a pagar: ", total_a_pagar;
FinProceso