-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Hacer un algoritmo que a los estudiantes de una universidad les permita calcular el pago de sus mensualidades en base al siguiente criterio:
a) Al adelantar mensualidades se aplicará un descuento del 10%.
b) En mensualidades atrasadas se aplicará un cargo extra del 10%.
c) El pago de la mensualidad del mes corriente no lleva descuento pero tampoco se aplica cargo extra.
El monto de la mensualidad es de $650.00.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Proceso PagoDeMensualidades
Escribir Sin Saltar "Ingresa el valor de mensualidades atrasadas:";
Leer mensualidades_atrasadas;
monto_de_la_mensualidad <- 650;
mensualidad <- monto_de_la_mensualidad+mensualidades_atrasadas*1.1;
Escribir "Selecciona el valor de adelantar mensualidades.";
Escribir " 1.- Si";
Escribir " 2.- No";
Escribir Sin Saltar " :";
Repetir
Leer adelantar_mensualidades;
Si adelantar_mensualidades<1 O adelantar_mensualidades>2 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que adelantar_mensualidades>=1 Y adelantar_mensualidades<=2;
Si adelantar_mensualidades = 1 Entonces
mensualidad <- mensualidad-monto_de_la_mensualidad*0.1;
FinSi
Escribir "Valor de mensualidad: ", mensualidad;
Escribir "Valor de monto de la mensualidad: ", monto_de_la_mensualidad;
FinProceso
Escribir Sin Saltar "Ingresa el valor de mensualidades atrasadas:";
Leer mensualidades_atrasadas;
monto_de_la_mensualidad <- 650;
mensualidad <- monto_de_la_mensualidad+mensualidades_atrasadas*1.1;
Escribir "Selecciona el valor de adelantar mensualidades.";
Escribir " 1.- Si";
Escribir " 2.- No";
Escribir Sin Saltar " :";
Repetir
Leer adelantar_mensualidades;
Si adelantar_mensualidades<1 O adelantar_mensualidades>2 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que adelantar_mensualidades>=1 Y adelantar_mensualidades<=2;
Si adelantar_mensualidades = 1 Entonces
mensualidad <- mensualidad-monto_de_la_mensualidad*0.1;
FinSi
Escribir "Valor de mensualidad: ", mensualidad;
Escribir "Valor de monto de la mensualidad: ", monto_de_la_mensualidad;
FinProceso