-
Lenguaje
Pascal
-
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
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
uses crt;
var estudiantes_de_administracion_de_empresas, estudiantes_de_comercio_exterior, estudiantes_de_derecho, estudiantes_de_ingenieria_de_alimentos, estudiantes_de_ingenieria_de_sistemas : integer;
var estudiantes_de_negocios_internacionales, forma_de_pago, i, n, programa_academico : integer;
var total_de_creditos : integer;
var creditos, descuento, descuentos_aplicados, neto, neto_de_las_inscripciones : real;
var pago_sin_descuento, total_pagado_sin_descuento : real;
begin
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;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
writeln ('Selecciona el valor de programa academico.');
writeln (' 1.- Ingenier'#161'a de sistemas');
writeln (' 2.- Derecho');
writeln (' 3.- Ingenier'#161'a de alimentos');
writeln (' 4.- Administraci'#162'n de empresas');
writeln (' 5.- Negocios Internacionales');
writeln (' 6.- Comercio Exterior');
write (' : ');
repeat
readln (programa_academico);
if (programa_academico<1) or (programa_academico>6) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (programa_academico>=1) and (programa_academico<=6);
writeln ('Selecciona el valor de forma de pago.');
writeln (' 1.- Efectivo');
writeln (' 2.- Pago en l'#161'nea');
write (' : ');
repeat
readln (forma_de_pago);
if (forma_de_pago<1) or (forma_de_pago>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (forma_de_pago>=1) and (forma_de_pago<=2);
pago_sin_descuento := 0;
if programa_academico=1 then
begin
creditos := 20;
estudiantes_de_ingenieria_de_sistemas := estudiantes_de_ingenieria_de_sistemas+1;
end;
if programa_academico=2 then
begin
creditos := 16;
estudiantes_de_derecho := estudiantes_de_derecho+1;
end;
if programa_academico=3 then
begin
creditos := 18;
estudiantes_de_ingenieria_de_alimentos := estudiantes_de_ingenieria_de_alimentos+1;
end;
if programa_academico=4 then
begin
creditos := 18;
estudiantes_de_administracion_de_empresas := estudiantes_de_administracion_de_empresas+1;
end;
if programa_academico=5 then
begin
creditos := 17;
estudiantes_de_negocios_internacionales := estudiantes_de_negocios_internacionales+1;
end;
if programa_academico=6 then
begin
creditos := 20;
estudiantes_de_comercio_exterior := estudiantes_de_comercio_exterior+1;
end;
pago_sin_descuento := 105000*creditos;
total_de_creditos := total_de_creditos+creditos;
total_pagado_sin_descuento := total_pagado_sin_descuento+pago_sin_descuento;
if (forma_de_pago=1) and ((programa_academico=1) or (programa_academico=2) or (programa_academico=3)) then
begin
descuento := pago_sin_descuento*0.2;
end;
if (forma_de_pago=1) and (programa_academico=5) then
begin
descuento := pago_sin_descuento*0.15;
end;
if (forma_de_pago=1) and (programa_academico=6) then
begin
descuento := pago_sin_descuento*0.3;
end;
neto := pago_sin_descuento-descuento;
descuentos_aplicados := descuentos_aplicados+descuento;
neto_de_las_inscripciones := neto_de_las_inscripciones+neto;
writeln ('Valor de creditos: ', creditos:0:6);
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de neto: ', neto:0:6);
writeln ('Valor de pago sin descuento: ', pago_sin_descuento:0:6);
writeln;
end;
writeln ('Valor de estudiantes de administracion de empresas: ', estudiantes_de_administracion_de_empresas);
writeln ('Valor de estudiantes de comercio exterior: ', estudiantes_de_comercio_exterior);
writeln ('Valor de estudiantes de derecho: ', estudiantes_de_derecho);
writeln ('Valor de estudiantes de ingenieria de alimentos: ', estudiantes_de_ingenieria_de_alimentos);
writeln ('Valor de estudiantes de ingenieria de sistemas: ', estudiantes_de_ingenieria_de_sistemas);
writeln ('Valor de estudiantes de negocios internacionales: ', estudiantes_de_negocios_internacionales);
writeln ('Valor de total de creditos: ', total_de_creditos);
writeln ('Valor de descuentos aplicados: ', descuentos_aplicados:0:6);
writeln ('Valor de neto de las inscripciones: ', neto_de_las_inscripciones:0:6);
writeln ('Valor de total pagado sin descuento: ', total_pagado_sin_descuento:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.