-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path2.2.17.txt
103 lines (97 loc) · 2.74 KB
/
2.2.17.txt
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
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
Ejercicio 2.2.17
La Secretaria Academica de la Facultad lanza un proyecto para incentivar a aquellos alumnos
que realizaron el Cursillo de Ingreso a la Universidad y no lograron aprobarlo en los turnos
de Agosto y Febrero, de manera de brindarles apoyo Academico con el fin de que, en el Cursillo
del año siguiente puedan aprobar los examenes necesarios e ingresar a la Universidad.
Para esto, dicha Secretaria necesita crear un archivo donde se encuentren todos los aspirantes
que realizaron el Cursillo de Ingreso en ambos turnos, y no lograron aprobarlo.
Los datos correspondientes a cada uno de los turnos del Cursillo dictado están almacenados en dos
archivos (uno para cada turno), los cuales presentan el siguiente formato:
ASPIRANTES Ordenado por DNI
DNI/ApeyNom/Carrera/F_Nac/Email/Colegio/Sec/Fecha/Inscripcion/Aprobado (Si/No)
UD debe realizar un algoritmo que permita mezclar los archivos Aspirantes (de Agosto y Febrero) y
generar un archivo SEGUIMIENTO con el siguiente formato:
SEGUIMIENTO Ordenado por DNI
Al finalizar el proceso informar la cantidad de aspirantes que se grabaron en DNI/ApeyNom/Email/ColegioSec
el archivo SEGUIMIENTO.
Accion UTN ES
Ambiente
Fecha = registro de
day:n(2)
week:n(2)
year:n(4)
freg
aspirantes = registro de
dni:n(8)
ayn:an(40)
carrera:('ISI','IEM','IQ','LAR')
fecha:Fecha
email:an(20)
colegio:an(30)
sec:an(10)
f_nacim:Fecha
Inscripcion:fecha
aprobacion:('si','no')
fin registro
salida = registro de
dni:n(8)
ayn:an(40)
email:an(20)
colegio:an(30)
fin registro
Variables
cont:entero;
A_agosto,A_febrero:archivo de aspirantes // 'A_' viene de aspirante
a,f:aspirantes
A_sal:archivo de salida
s:salida
Constantes
Funciones
Procedimientos
Procedimiento Leer_A
leer(A_agosto)
Si FDA(A_agosto) Entonces
A_agosto.dni:=HV;
Fin Si
Fin Procedimiento\
Procedimiento Leer_B
leer(B_febrero)
Si FDA(B_febrero) Entonces
B_febrero.dni:=HV;
Fin Si
Fin Procedimiento
Proceso
cont:=0;
Abrir E/(A_agosto)
Abrir E/(A_febrero)
Leer_A
Leer_B
Mientras (A_agosto<>HV) o (B_febrero<>HV) hacer
Si A_agosto.dni < B_febrero.dni Entonces
s.dni:=a.dni
s.ayn:=a.ayn
s.email:=a.email
s.colegio:=a.colegio
esc(A_sal,s);
Leer_A
Sino
Si A_agosto.dni = B_febrero.dni Entonces
s.dni:=a.dni
s.ayn:=a.ayn
s.email:=a.email
s.colegio:=a.colegio
esc(A_sal,s);
Leer_A
Sino
s.dni:=b.dni
s.ayn:=b.ayn
s.email:=b.email
s.colegio:=b.colegio
esc(A_sal,s);
Leer_B
Fin Si
Fin SI
cont:=cont+1;
Fin Mientras
Esc('La cantidad de aspirantes grabados es de: ', cont)
Fin Accion