Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
practica 11 ejercicio 6 BETA
program HelloWorld; {-----------------------------------------------------------------------------------------------------------------------} {----------------------------------------------------------------- CONST - Define las constantes para usar en tiempo de compilacion} const cursos = 10; edadMin = 20; edadMax = 55; {-----------------------------------------------------------------------------------------------------------------------} {-----------------------------------------------------------------------------------------------------------------------} {----------------------------------------------------------------- TYPE - Define los tipos creados por el usuario para usar en tiempo de compilacion} type rangoEdades = edadMin .. edadMax; rangoCursos = 1 .. cursos; Tnombre = string[14]; Tgraduado = record DNI : integer; apellido : Tnombre; nombre : Tnombre; edad : rangoEdades; codigo : rangoCursos; end; Tvector = array [rangoCursos] of integer;//de este tipo sale la estructura y la carga de cupos Tlista = ^nodo; nodo = record datos : Tgraduado; sig : Tlista; end; {-----------------------------------------------------------------------------------------------------------------------} { La facultad de informática decide abrir 10 cursos de actualización (cuyos códigos se numeran del 1 al 10) para sus graduados. A cada inscripto se le solicita la siguiente información: DNI, apellido, nombre, edad y el código del curso al que se desea inscribir (una persona se puede inscribir solo a un curso). La facultad dispone de una estructura en la que se almacena para cada código de curso el cupo máximo de personas que pueden inscribirse a ese curso. Se pide: a. Simular el proceso de inscripción de los graduados a los cursos. El proceso de inscripción finaliza cuando llega un graduado con apellido “zzz”. //cargarLista Para cada inscripción se debe controlar que la cantidad de graduados ya inscriptos no supere el cupo máximo que cada curso tiene. En caso de que el curso solicitado se encuentre completo se debe informar que no hay lugar disponible en dicho curso. //agregar la verificacion de curso al cargarLista b. Una vez finalizada la inscripción: i. Informar el código de aquellos cursos cuyo cupo máximo no se completó. ii. Calcular e informar la cantidad de inscriptos al curso con código 2 que tienen entre 30 y 35 años. } {-----------------------------------------------------------------------------------------------------------------------} {----------------------------------------------------------------- } procedure cargarVector (var v : Tvector); var i : rangoCupos; begin for i:=1 to cupos do v[i] := random(10)+1; end; {-----------------------------------------------------------------------------------------------------------------------} {-----------------------------------------------------------------------------------------------------------------------} {----------------------------------------------------------------- } procedure inicializarVector(var v : Tvector); var i : rangoCupos; begin for i:=1 to cupos do v[i] :=0; end; {-----------------------------------------------------------------------------------------------------------------------} {-----------------------------------------------------------------------------------------------------------------------} {----------------------------------------------------------------- } function hayCupo():boolean; begin end; {----------------------------------------------------------------- } procedure cargarGraduado(); begin end; {----------------------------------------------------------------- } procedure leerGraduado(); begin end; {----------------------------------------------------------------- } procedure cargarLista(var l : Tlista; cupoMax : Tvector; var cupo : Tvector); var g : Tgraduado; begin l:=nil; leerGraduado(g); while g.nombre <> 'zzz' do begin if hayCupo then begin cargarGraduado(l,g); end else writeln('no hay cupo disponible en tal curso'); leerGraduado(g); end; end; {-----------------------------------------------------------------------------------------------------------------------} {-----------------------------------------------------------------------------------------------------------------------} {----------------------------------------------------------------- PROGRAMA PRINCIPAL} var l : Tlista; cupoMax,cupo : Tvector; begin cargarVector(cupoMax); inicializarVector(cupo); cargarLista(l,cupoMax); end. {-----------------------------------------------------------------------------------------------------------------------}
run
|
edit
|
history
|
help
0
Task 2
Mengeja dari belakang
Calculatrice(TROP compliqué)
a 3 .a
solar sysmtem 6 (with random mass m1)
VIGENERECIJFER
Promo1
444555666
1 2 9
test16