Arreglos

Algoritmos, Datos y Programas - Arreglos

Enunciado
Se necesita un programa que administre un concurso literario de a lo sumo 2000
trabajos.
Por cada trabajo presentado se tiene el título deltrabajo, a qué genero pertenece (por
ejemplo: cuento gauchesco, ciencia ficción, narración libre, etc.), el pseudónimo,
nombre y apellido del autor, puntaje otorgado por el jurado y tiempo derecepción del
trabajo en minutos.
Se pide:
1) Cargar los trabajos en una estructura que debe definirse. Se cargan trabajos
hasta que llega el pseudónimo ‘ZZZ’ el cual no debe procesarse.
2) Realizarun módulo de atención de trabajos. Este módulo recibe los trabajos y
atiende por una cierta cantidad de tiempo que se mide en minutos y que se
recibe como parámetro, y además debe finalizar si llegael pseudónimo ‘azul’.
Debe ir calculando también el trabajo con mayor y menor puntaje
3) Utilizando los módulos anteriores, hacer un programa que simule el proceso
de atención de trabajos einforme:
a) La cantidad de trabajos atendidos hasta las 14:OO hs. Se comienza la
atención a las 9:00 hs.
b) Al finalizar la atención de trabajos, se desea informar el pseudónimo del
trabajo que tieneel mayor puntaje y el pseudónimo del que tiene el menor
puntaje asignado por el jurado. Se finaliza la atención a las 18:00 hs.
Nota: MODULARIZAR.

program ejemplo;
uses crt;
const
TAM_MAX =2000; // Dimension fisica
type
tpuntaje = 0..10;
tautor =record
nombre: string;
apellido: string;
end;
trabajo = record
titulo: string;
genero: string;
autor: tautor;
pseudonimo: string;tiempo: integer;
puntaje: tpuntaje;
end;
ttrabajos = record
Tra: array[1..TAM_MAX] of trabajo; //VECTOR DE TRABAJOS
dl: integer;
//DIMENSION LOGICA
i: integer;
//PROX TRABAJO A ATENDER
end;// ---- MODULOS PUNTO 1 ----

Algoritmos, Datos y Programas - Arreglos

procedure leerAutor(var a: tautor);
begin
write('Nombre Autor: ');
readln(a.nombre);
write('ApellidoAutor: ');...