-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Una universidad requiere analizar el proceso de inscripción para el primer semestre del 2020 de cada uno de los aspirantes. La universidad consta de 6 programas académicos. Cada programa académico tiene un número de créditos asociados. El valor de cada crédito académico es de $105,000. La siguiente Tabla muestra cada uno de los programas académicos con su número de créditos. Adicionalmente, muestra el descuento que se le puede aplicar al estudiante si realiza el pago en Efectivo. Por ejemplo, si el estudiante va a estudiar Ingeniería de sistemas y paga en Efectivo, entonces se le aplica un descuento del 20%. Si paga en línea, NO se le aplica el descuento. Las dos formas de pago que acepta la universidad son Efectivo y pago en línea.
Programas Académicos | Nro. de Créditos por semestre | Descuentos
Ingeniería de sistemas | 20 | 20%
Derecho | 16 | 20%
Ingeniería de alimentos | 18 | 20%
Administración de empresas | 18 | 0%
Negocios Internacionales | 17 | 15%
Comercio Exterior | 20 | 30%
Inscribir un número N de estudiantes. Al finalizar debe mostrar los siguientes resultados:
- Cantidad de estudiantes inscritos por cada carrera.
- Total de créditos inscritos en el primer semestre del 2020.
- Valor total pagado por los estudiantes sin tener en cuenta el descuento.
- Valor total de descuentos aplicados por la universidad a los estudiantes.
- Valor neto de las inscripciones del primer semestre del 2020.
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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
estudiantes_de_administracion_de_empresas <- 0;
estudiantes_de_comercio_exterior <- 0;
estudiantes_de_derecho <- 0;
estudiantes_de_ingenieria_de_alimentos <- 0;
estudiantes_de_ingenieria_de_sistemas <- 0;
estudiantes_de_negocios_internacionales <- 0;
total_de_creditos <- 0;
descuentos_aplicados <- 0;
neto_de_las_inscripciones <- 0;
total_pagado_sin_descuento <- 0;
Escribir Sin Saltar "Ingresa el valor de n:";
Leer n;
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir "PROCESO ", i;
Escribir "Selecciona el valor de programa academico.";
Escribir " 1.- Ingeniería de sistemas";
Escribir " 2.- Derecho";
Escribir " 3.- Ingeniería de alimentos";
Escribir " 4.- Administración de empresas";
Escribir " 5.- Negocios Internacionales";
Escribir " 6.- Comercio Exterior";
Escribir Sin Saltar " :";
Repetir
Leer programa_academico;
Si programa_academico<1 O programa_academico>6 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que programa_academico>=1 Y programa_academico<=6;
Escribir "Selecciona el valor de forma de pago.";
Escribir " 1.- Efectivo";
Escribir " 2.- Pago en línea";
Escribir Sin Saltar " :";
Repetir
Leer forma_de_pago;
Si forma_de_pago<1 O forma_de_pago>2 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que forma_de_pago>=1 Y forma_de_pago<=2;
pago_sin_descuento <- 0;
Si programa_academico = 1 Entonces
creditos <- 20;
estudiantes_de_ingenieria_de_sistemas <- estudiantes_de_ingenieria_de_sistemas+1;
FinSi
Si programa_academico = 2 Entonces
creditos <- 16;
estudiantes_de_derecho <- estudiantes_de_derecho+1;
FinSi
Si programa_academico = 3 Entonces
creditos <- 18;
estudiantes_de_ingenieria_de_alimentos <- estudiantes_de_ingenieria_de_alimentos+1;
FinSi
Si programa_academico = 4 Entonces
creditos <- 18;
estudiantes_de_administracion_de_empresas <- estudiantes_de_administracion_de_empresas+1;
FinSi
Si programa_academico = 5 Entonces
creditos <- 17;
estudiantes_de_negocios_internacionales <- estudiantes_de_negocios_internacionales+1;
FinSi
Si programa_academico = 6 Entonces
creditos <- 20;
estudiantes_de_comercio_exterior <- estudiantes_de_comercio_exterior+1;
FinSi
pago_sin_descuento <- 105000*creditos;
total_de_creditos <- total_de_creditos+creditos;
total_pagado_sin_descuento <- total_pagado_sin_descuento+pago_sin_descuento;
Si forma_de_pago = 1 Y (programa_academico = 1 O programa_academico = 2 O programa_academico = 3) Entonces
descuento <- pago_sin_descuento*0.2;
FinSi
Si forma_de_pago = 1 Y programa_academico = 5 Entonces
descuento <- pago_sin_descuento*0.15;
FinSi
Si forma_de_pago = 1 Y programa_academico = 6 Entonces
descuento <- pago_sin_descuento*0.3;
FinSi
neto <- pago_sin_descuento-descuento;
descuentos_aplicados <- descuentos_aplicados+descuento;
neto_de_las_inscripciones <- neto_de_las_inscripciones+neto;
Escribir "Valor de creditos: ", creditos;
Escribir "Valor de descuento: ", descuento;
Escribir "Valor de neto: ", neto;
Escribir "Valor de pago sin descuento: ", pago_sin_descuento;
Escribir "";
FinPara
Escribir "Valor de estudiantes de administracion de empresas: ", estudiantes_de_administracion_de_empresas;
Escribir "Valor de estudiantes de comercio exterior: ", estudiantes_de_comercio_exterior;
Escribir "Valor de estudiantes de derecho: ", estudiantes_de_derecho;
Escribir "Valor de estudiantes de ingenieria de alimentos: ", estudiantes_de_ingenieria_de_alimentos;
Escribir "Valor de estudiantes de ingenieria de sistemas: ", estudiantes_de_ingenieria_de_sistemas;
Escribir "Valor de estudiantes de negocios internacionales: ", estudiantes_de_negocios_internacionales;
Escribir "Valor de total de creditos: ", total_de_creditos;
Escribir "Valor de descuentos aplicados: ", descuentos_aplicados;
Escribir "Valor de neto de las inscripciones: ", neto_de_las_inscripciones;
Escribir "Valor de total pagado sin descuento: ", total_pagado_sin_descuento;
FinProceso