Operaciones

Algoritmo. Admision a 4 Facultades de Univirsidad MFI.txt
const DIM_EXA = 3, DIM_FAC = 4
tipo
array[1:DIM_EXA] de real: arrExamen
array[1:DIM_FAC] de entero: arrCuentaAdmisionarray[1:DIM_FAC] de cadena: arrFacultades
var
arrExamen: examen //almacena notas de 3 tipos de examen
arrFacultades: facultades //nombres de facultades
arrCuentaAdmision: cuentaAdmision//cuenta numero de postulantes admitidos
//por cada facultad
caracter: codigo
inicio
//inicializaciones
facultades[1] = 'Ing. Sistemas'
facultades[2] = 'Ing. Industrial'
facultades[3]= 'Ing. Quimica'
facultades[4] = 'Ing. Ambiental'
cuentaAdmision[1] = 0: cuentaAdmision[2] = 0
cuentaAdmision[3] = 0: cuentaAdmision[4] = 0
//menu de opciones
repetirescribir('****Examen de Admision MFI****')
escribir('Codigo Facultad')
escribir(' S - Ing. Sistemas')
escribir(' I - Ing. Industrial')
escribir(' Q - Ing. Quimica')
escribir(' A - Ing.Ambiental')
escribir(' X - Salir')
escribir('Seleccione codigo: ')
leer(codigo)
//evaluar opcion
segun_sea (codigo) hacer
'S': cuentaAdmision[1] = cuentaAdmision[1] +calcularNotasAdmision(examen)
'I': cuentaAdmision[2] = cuentaAdmision[2] + calcularNotasAdmision(examen)
'Q':cuentaAdmision[3] = cuentaAdmision[3] + calcularNotasAdmision(examen)
'A':cuentaAdmision[4]= cuentaAdmision[4] + calcularNotasAdmision(examen)
si_no:
escribir('Facultad(', codigo, ') No existe')
fin_segun
llamar_a verIngresantesPorFacultad(cuentaAdmision)
llamar_amaxMinIngresantesPorFacultad(cuentaAdmision, facultades)
hasta_que (codigo = 'X' O codigo = 'x')
fin

//rutina: calcularNotasAdmision
entero funcion calcularNotasAdmision(E/S arrExamen: aExam)var
entero: i, aprobado, admitido
inicio
admitido = 0
aprobado = 0
desde i = 1 hasta DIM_EXA hacer
escribir('Ingrese examen: ', i)
leer(aExam[i])
si aExam[i] >= 11...