practica 11 ejercicio 6 BETA, Pascal

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;
{-----------------------------------------------------------------------------------------------------------------------}

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

λ

                                      .NET NoSQL database for rapid development