Parte 2 (registro de datos de partido)
Parte 2
Los operadores de a pie de campo, equipados con PDAs, introducen los datos del partido en un único fichero, correspondiente al registro
TYPE
TTipo = (Gol, Falta, Penalty, Tarjeta, Corner, FueraJuego)
TDireccion= (Afavor, Encontra);
Sucesos= RECORD
Tipo:
Direccion:
NumPartido:
NumEquipo:
NumeroJugador:
END;
Y nos lo envian usando el modem-GSM del equipo portatil.
A partir de aqui hay que hacer un programa que separe en los datos en varios ficheros distintos: goles por jugador, faltas por jugador, goles F/C por equipo, tarjetas, etc. Esos ficheros son de texto porque deben ser suministrados a los medios de información.
Hay algunas variables globales que son básicas para todos los procedimientos:
VAR
Jugadores: ARRAY[1..NumEquipos, 1..30] OF String;
Sucesos: ARRAY [1..10000] OF Sucesos;
MaxSucesos: INTEGER
Vosotros teneis que hacer dos procedimientos:
a) PROCEDURE PuntosEquipo(e: NumEquipo; VAR favor, contra, total: INTEGER)
b) PROCEDURE WriteGolesJugador;
Este procedimiento analiza el array de datos y escribe un fichero de texto en que cada linea contiene
-El nombre del jugador
-El total de goles marcados - llamad a la funcion TotalGolesJugador
-El desglose “(num. Partido, minuto)” de los goles conseguidos
Si un jugador no ha marcado, no se escribe en el fichero.
Parte 3) Para colmo, el siguiente procedimiento no funciona bien. Indicad los errores que veais.