===== File: doping.txt ===== ============================================================================ Esercizio di esame dell'appello del 11/9/1998 ============================================================================ La Societa` Sportiva Olimpia dispone di un archivio in cui memorizza i farmaci che vengono assunti da ciascun atleta. L'archivio, realizzato in PASCAL, consiste di un vettore di 22 componenti, ciascuna delle quali e` costituita da un record in cui sono memorizzati: - la matricola dell'atleta (un intero) ed - il puntatore ad una lista, rappresentata mediante record e puntatori, i cui elementi sono costittuiti da: - la sigla del farmaco (una striga di 12 caratteri); - la data della prescrizione della terapia. La Commissione Nazionale Antidoping ha aggiornato l'elenco delle sostanze vietate. In particolare, ha vietato alcune sostanze che precedentemente erano ammesse, ed ha ammesso alcune sostanze che erano vietate. La Commissione ha prodotto, e distribuito su floppy disk, un file in cui sono memorizzate le nuove informazioni. In particolare, ogni record del file e` costituito da tre campi, rispettivamente: - la sigla del farmaco (una striga di 12 caratteri); - una cifra intera 0 o 1, ad indicare se il farmaco e` vietato (cifra 0) o ammesso (cifra 1); - la data a partire dalla quale il farmaco e` vietato o ammesso, a seconda dei casi. Tutte le date sono rappresentate nel formato GG, MM, AA, tramite un record a tre campi. (1) Definire i tipi di dato PASCAL adeguati a risolvere i problemi di cui ai successivi punti (2) e (3). (2) Scrivere una procedura PASCAL che, dati come parametri l'archivio degli atleti della Societa` Olimpia ed il nome del file contenente le nuove informazioni sui farmaci vietati o ammessi, elimini dall'archivio tutte le prescrizioni dei farmaci vietati avvenute NON ANTERIORMENTE alla data del divieto. (3) Scrivere una procedura PASCAL che, dato come parametro il nome del file con le nuove informazioni sui farmaci, costruisca e fornisca in uscita la lista, rappresentata mediante record e puntatori, di tutti i farmaci ammessi, unitamente alle date di ammissione.