RICORDARSI DI PRENOTARE GLI SCRITTI NOTE SUL PROGETTO LA FRASE CHIAVE DEVE POTER CONTENERE SIA SPAZI...

IL CORSO TERMINA IL 19 GENNAIO

PRIMA PROVA SCRITTA IL 23 GENNAIO ore 9PRIMA PROVA ORALE IL 2 FEBBRAIO ore 9

SECONDA PROVA SCRITTA IL 19 FEBBRAIO ore 15SECONDA PROVA ORALE IL 2 MARZO ore 9

PER SOSTENERE L’ESAME BISOGNA AVERE CONSEGUITOUNA VOTAZIONE TRA A-D

SIA PER LAPROVA SCRITTA CHE PER IL PROGETTO

L’ELABORATO SU CALCOLATORE (Codifica) VACONSEGNATO, SU FLOPPY DISK, AL PIU’ TARDI 10

GIORNI PRIMA DELL’ESAME ORALE

RICORDARSI DI PRENOTARE

GLI SCRITTI

NOTE SUL PROGETTO

• LA FRASE CHIAVE DEVE POTER CONTENERE SIA SPAZI CHE LETTERE MAIUSCOLE.

• QUANDO SI MOSTRA IL CONTENUTO DI UN FILE, PREVEDERE OLTRE AL RETURN PER AVANZARE ANCHE UN TASTO PER TERMINARE LA LETTURA.

• METTERE I CONTROLLI SUGLI INPUT DEI DATI

Problema:

Supponiamo si vogliano scrivere delle procedure per la gestione del Centro Storico di una città.Quali sono i dati da usare e come sono legati fra loro?

Quartiere

Edificio

Piani

Nuclei familiari

…………..

RECORD

Record: una struttura in cui sono contenuti dati di tipo diverso,interi, stringhe, reali.

Si può accedere ai dati di un record facendo riferimento al nome del dato.

Definizione di RECORD

TYPE NomeRecord = RECORD

Campo1: integer,………..CampoN: real

END;

= Lista dei campi

RECORDidentificatore END

AnagraficaRecord = RECORDCognome,Nome : Stringa20

END;

ESEMPIO

Studente

Anagrafe Nascita Matricola

Cognome Nome Giorno Mese Anno

AnnoCorso Risultati Media

Studente


Cognome Nome AnnoMeseGiorno

AnnoCorsoRisultati Media

Rossi Ugo 3 5 1972 480/8796

Bianchi Carlo 12 2 1971 480/8746

II 25 23 29 28

I 30 25 18 27

StudenteRecord = RECORD Anagrafe:AnagraficaRecord;

Nascita:DataRecord; Matricola:StringaNome; AnnoCorso:StringaNome; Risultati:RisultatiArray; Media:real;

END;

Studente




TYPEStringa20 = STRING[20]RisultatiArray=ARRAY[1..TotaleProve] OF integer;

AnagraficaRecord = RECORDCognome,Nome : Stringa20END;

DataRecord = RECORDGiorno,Mese,Anno : integerEND;

TYPEStringa20 = STRING[20]RisultatiArray=ARRAY[1..TotaleProve] OF integer;





END;

VARCompleanno:DataRecord;DatiStudente:StudenteRecord;

UnoStudente:AnagraficaRecord;

E’ possibile trattare i dati usando i nome dei campi.

writeln(‘Lo studente ‘, Studente.Anagrafe.Cognome,’ e’’ nato il ‘,Studente.Nascita.Giorno:1, Studente.Nascita.Mese:1,Studente.Nascita.Anno:1)

Studente




Rossi Ugo 3 5 1972 480/8796

Bianchi Carlo 12 2 1971 480/8746

II° 25 23 29 28

I° 30 25 18 27

5Rossi Carlo 30 11 1968480/564 II 30 28 18 25Rossi Lucio 12 10 1969050/884 I 18 25 22 21Bianchi Ugo 5 4 1965050/741 I 18 18 18 18Verdi Carlo 14 12 1970480/88 II 30 29 28 30Esposito Franco 2 8 1969050/524 I 25 27 29 30

INPUT

REPEAT writeln(‘ Introduci la data ‘); readln(DataOdierna.Giorno, DataOdierna.Mese, DataOdierna.Anno)UNTIL DataValida(DataOdierna);

FUNCTION DataValida(Data:DataRecord):boolean;BEGIN

DataValida:=(Data.Mese IN [1..12]) AND (Data.Giorno IN [1..31])END;


VAR DataOdierna : DataRecord;

USO DELLE VARIABILI RECORD

ProblemaAssegnato un file del tipo prima descritto, scrivere una procedura che mostri i dati di tutti gli studenti.

STRUTTURA DATI


DatataRecord = RECORDGiorno,Mese,Anno : integerEND;



END;

Pseudo Codice MainApri il file dati in letturaCarica i dati e mostrali

Pseudo Codice Carica datiPer ogni studente Carica record studente

Pseudo Codice CaricaRecordStudenteLeggi Cognome Leggi NomeLeggi Data NascitaLeggi Matricola, AnnoCorsoLeggi Risultati

RAPPRESENTAZIONE GRAFICA

Apri il file dati in lettura

Stud

enti

File

StudentiFile

Carica Dati

Iscr

itti

Costruisci Record Studenti

Leggi Cognome

Leggi Nome

Leggi Giorno

Leggi Mese

Leggi Anno

Leggi Matr

Leggi Corso

Leggi Risultati

StudentiFile

Scrivi

Cognome Nome

GiornoMese

Anno

Matr Corso Risultati

CognomeNomeGiornoMeseAnnoMatrCorsoRisultati

PROGRAM Txtrecord(output,Studenti);

CONSTSentinella=' ';LunMax=40;TotaleProve=4;MassimoStud=150;

VARIscritti,IndiceArray:IndiceTipo;StudentiFile:text;UnoStudente:StudenteRecord;

TYPEStringaNome=STRING[LunMax];RisultatiArray=ARRAY[1..TotaleProve] OF integer;AnagraficaRecord=RECORD Cognome, Nome:StringaNome; END;NascitaRecord=RECORD Giorno, Mese, Anno:integer; END;StudenteRecord=RECORD Anagrafe:AnagraficaRecord; Nascita:NascitaRecord; Matricola:StringaNome; AnnoCorso:StringaNome; Risultati:RisultatiArray; Media:real; END;IndiceTipo=0..MassimoStud;

MAIN

BEGIN

assign(StudentiFile,'C:\TP\ESEMPI\moda\cap12\STUDREC.TXT');

reset(StudentiFile);

CaricaDati(Iscritti,UnoStudente,StudentiFile);

readln

END.

PROCEDURE CaricaDati(VAR Iscritti:IndiceTipo;

VAR UnoStudente:StudenteRecord; VAR StudentiFile:text);

VAR

Indice:IndiceTipo;

BEGIN

readln(StudentiFile,Iscritti);

FOR Indice:=1 TO Iscritti DO

CostruisciRecordStudente(UnoStudente,StudentiFile)

END;

PROCEDURE CostruisciRecordStudente(VAR UnoStudente:StudenteRecord; VAR StudentiFile:text);

VARNumeroProva:integer; BEGIN

LeggiParola(' ',Unostudente.Anagrafe.Cognome, StudentiFile);LeggiParola(' ', Unostudente.Anagrafe.Nome, StudentiFile);read(StudentiFile,Unostudente.Nascita.Giorno);read(StudentiFile,Unostudente.Nascita.Mese);read(StudentiFile,Unostudente.Nascita.Anno);readln(StudentiFile);LeggiParola(' ',Unostudente.Matricola, StudentiFile);LeggiParola(' ',Unostudente.AnnoCorso, StudentiFile);FOR NumeroProva:=1 TO TotaleProve DO

read(StudentiFile,Unostudente.Risultati[NumeroProva]);

readln(StudentiFile); writeln('Lo studente ',Unostudente.Anagrafe.Cognome,' ', Unostudente.Anagrafe.Nome,' Matr. ',

Unostudente.Matricola); writeln(' Nato il ',Unostudente.Nascita.Giorno,'/', Unostudente.Nascita.Mese,'/',

Unostudente.Nascita.Anno,' e'' iscritto al ', Unostudente.AnnoCorso,'ø anno di corso'); END; writelnEND;

PROCEDURE LeggiParola(Sentinella:char;VAR Parola:StringaNome;

VAR Studenti:text);

VAR

Carattere:char;

BEGIN

Parola:='';

read(Studenti,Carattere);

WHILE (Carattere<>Sentinella) DO

BEGIN

Parola:=Parola+Carattere;


END

END;

L’ISTRUZIONE WITH

Seleziona diversi campi di un record usando solo un riferimento.

variabileWITH DO istruzioni

.

BEGIN WITH Nome1,Nome2,… DO

BEGIN………………...

END;

PROCEDURE CostruisciRecordStudente(UnoStudente:StudenteRecord;

VAR StudentiFile:text);

VAR

NumeroProva:integer;

BEGIN

WITH UnoStudente DO

BEGIN

LeggiParola(' ',Matricola, StudentiFile);

LeggiParola(' ',AnnoCorso, StudentiFile);

END

END;

USO DI WITH

Studente




Studente




WITH ANNIDATI

PROCEDURE CostruisciRecordStudente(UnoStudente:StudenteRecord; VAR StudentiFile:text);

VARNumeroProva:integer;BEGIN WITH UnoStudente DO WITH Anagrafe DO BEGIN LeggiParola(' ',Cognome, StudentiFile); LeggiParola(' ',Nome, StudentiFile); ENDEND;


VARNumeroProva:integer;BEGIN WITH UnoStudente, Anagrafe, Nascita DO BEGIN LeggiParola(' ',Cognome, StudentiFile); LeggiParola(' ',Nome, StudentiFile); read(StudentiFile,Giorno); read(StudentiFile,Mese); read(StudentiFile,Anno); readln(StudentiFile); LeggiParola(' ',Matricola, StudentiFile); LeggiParola(' ',AnnoCorso, StudentiFile); ENDEND;

Studente




ATTENZIONE l’uso del WITH produce codici meno leggibili (es. non è sempre chiaro se una variabile è il nome di un campoo una variabile globale) e quindi aumenta la probabilità di errore.


VARNumeroProva:integer;BEGIN WITH UnoStudente, Anagrafe, Nascita DO BEGIN LeggiParola(' ',Cognome, StudentiFile); LeggiParola(' ',Nome, StudentiFile); read(StudentiFile,Giorno); read(StudentiFile,Mese); read(StudentiFile,Anno); readln(StudentiFile); LeggiParola(' ',Matricola, StudentiFile); LeggiParola(' ',AnnoCorso, StudentiFile);ENDEND;

ARRAY Corso

Anagrafica Nascita Matricola












1

2

3

4

ARRAY Risultati

1 2 3 4

Rossi Carlo 30 11 1968

480/564 II 30 28 18 25


INPUT

PROBLEMA

Dato il file testo STUDREC.TXT

Scrivere un programma che:a- elenca gli studenti con i loro datib- se richiesto mostra la media di un preassegnato studentec- se richiesto mostra lo studente con la media migliore

ALGORITMO

•Costruisci un array (Corso) con i dati contenuti nel file•Stampa i dati a partire dall’array (Corso)•Chiedi cosa si desidera e esegui:

•CercaMediaStudente•CercaMigliorStudente•Cerca gli studenti con media superiore a un prefissato valore



Lo studente Rossi Carlo Matr. 480/564 Nato il 30/11/1968 iscritto al II° anno di corso ha una media di 25.25

Lo studente Rossi Lucio Matr. 050/884 Nato il 12/10/1969 iscritto al I° anno di corso ha una media di 21.50

Lo studente Bianchi Ugo Matr. 050/741 Nato il 5/4/1965 iscritto al I° anno di corso ha una media di 18.00

Lo studente Verdi Carlo Matr. 480/88 Nato il 14/12/1970 iscritto al II° anno di corso ha una media di 29.25

Lo studente Esposito Franco Matr. 050/524 Nato il 2/8/1969 iscritto al I° anno di corso ha una media di 27.75

INPUT

OUTPUT

RAPPRESENTAZIONE GRAFICA

Apri il file dati in lettura

Stu

dent

iFil

e

Leggi ArrayRisultati

Stu

dent

iFil

e

Ris

ulta

ti

Media

Ris

ulta

ti

Med

ia

Scrivi

Cognome NomeGiorno Mese AnnoMatrAnnoCorsoMediaRisultati

StudentiFile

CostruisciCorso

CorsoIscritti

CercaMediaStudente

CorsoIscritti

CercaMigliore

CorsoIscritti

Leggi Dati

StudentiFile

CognomeNomeGiornoMeseAnnoMatrAnnoCorso

Stu

dent

iFil

e

UnoStudente

Costruisci Record Studenti

StudentiFile Corso[I]

IndiceMigliore

CorsoIscritti

IndiceMigliore

IndiceStudente

CorsoNomeCercato Indice

Array

CercaNome

Anagrafe1 Anagrafe2

booleanCercaInsieme

CorsoIscritti

PROGRAM Txtrecord(output,Studenti);CONSTSentinella=' ';LunMax=40;TotaleProve=3;MassimoStud=250;TYPEStringaNome=STRING[LunMax];RisultatiArray=ARRAY[1..TotaleProve] OF integer;AnagraficaRecord=RECORD Cognome, Nome:StringaNome; END;NascitaRecord=RECORD Giorno, Mese, Anno:integer; END;StudenteRecord=RECORD Anagrafe:AnagraficaRecord; Nascita:NascitaRecord; Matricola:StringaNome; AnnoCorso:StringaNome; Risultati:RisultatiArray; Media:real; END;IndiceTipo=0..MassimoStud;CorsoArray=ARRAY[IndiceTipo] OF StudenteRecord;

MAIN

BEGIN

assign(StudentiFile,'C:\TP\ESEMPI\moda\cap12\STUD2001.TXT');

reset(StudentiFile);

CostruisciCorso(Iscritti,Corso,StudentiFile);

writeln('1 - Mostra la media di un dato studente ');

writeln('2 - Mostra il miglior studente del corso ');

writeln('3 - Mostra tutti gli studenti che hanno una media superiore a un dato valore');

readln(Scelta);

CASE Scelta OF

1:CercaMediaStudente(Iscritti,Corso);

2:CercaMigliore(Corso,Iscritti);

3:CercaInsieme(Corso,Iscritti)

END;

readln

END.

CostruisciCorso

• Inserisci nell’array monodimensionale Corso i record studenti mediante la procedura CostruisciRecordStudente

CostruisciRecordStudente

•Leggi l’anagrafica con la procedura LeggiParola

•Leggi Giorno, Mese, Anno

•Leggi Matricola

•Leggi AnnoCorso

•Leggi ArrayRisultati

•Fai la media delle prove

•Mostra i dati dello studente

PROCEDURE CostruisciCorso(VAR Iscritti:IndiceTipo;VAR Corso:CorsoArray;

VAR StudentiFile:text);

VAR

Indice:IndiceTipo;

BEGIN

readln(StudentiFile,Iscritti);


CostruisciRecordStudente(Corso[Indice],StudentiFile)

END;


VARNumeroProva:integer;BEGIN WITH UnoStudente, Anagrafe, Nascita DO BEGIN LeggiParola(' ',Cognome, StudentiFile); LeggiParola(' ',Nome, StudentiFile); read(StudentiFile,Giorno); read(StudentiFile,Mese); read(StudentiFile,Anno); readln(StudentiFile); LeggiParola(' ',Matricola, StudentiFile); LeggiParola(' ',AnnoCorso, StudentiFile); FOR NumeroProva:=1 TO TotaleProve DO read(StudentiFile,Risultati[NumeroProva]); readln(StudentiFile); Media:=MediaProve(Risultati); writeln('Lo studente ',Cognome,' ',Nome,' Matr. ',Matricola); writeln(' Nato il ',Giorno,'/',Mese,'/',Anno,' iscritto al ', AnnoCorso,'ø anno di corso',' ha una media di ',Media:3:2); writeln ENDEND;

FUNCTION MediaProve(Risultati:RisultatiArray):real;

VAR

NumProva,

Somma:integer;

Media:real;

BEGIN

Somma:=0;

FOR NumProva:=1 TO TotaleProve DO

Somma:=Somma+Risultati[NumProva];

MediaProve:=Somma/TotaleProve

END;

PROCEDURE LeggiParola(Sentinella:char;VAR Parola:StringaNome; VAR Studenti:text);

VAR

Carattere:char;

BEGIN

Parola:='';


WHILE (Carattere<>Sentinella) DO

BEGIN

Parola:=Parola+Carattere;


END

END;

CercaMediaStudente

•Leggi Nome e Cognome dello studente

•Usando l’array Corso cerca il record con i suoi dati

•Stampa la media richiesta ricavata dall’array Corso

PROCEDURE CercaMediaStudente(VAR Iscritti:IndiceTipo;VAR Corso:CorsoArray); VAR NomeCercato:AnagraficaRecord; BEGIN writeln; writeln('Cerca lo studente: Cognome '); readln(NomeCercato.Cognome); writeln('Nome '); readln(NomeCercato.Nome); IndiceArray:=IndiceStudente(Iscritti,Corso,NomeCercato);IF IndiceArray<>0 THEN writeln('Lo studente ',Corso[IndiceArray].Anagrafe.Nome,' ', Corso[IndiceArray].Anagrafe.Cognome,' ha una media di ', Corso[IndiceArray].Media:3:2)END;

FUNCTION CercaNome(Anagrafe1,Anagrafe2:AnagraficaRecord):boolean;

BEGIN

CercaNome:=(Anagrafe1.Cognome=Anagrafe2.Cognome) AND

(Anagrafe1.Nome=Anagrafe2.Nome)

END;

FUNCTION IndiceStudente(VAR Iscritti:IndiceTipo; VAR Corso:CorsoArray;NomeCercato:AnagraficaRecord):IndiceTipo;VARSonda:IndiceTipo;BEGINCorso[0].Anagrafe:=NomeCercato;Sonda:=Iscritti; WHILE NOT CercaNome(Corso[Sonda].Anagrafe,NomeCercato) DO Sonda:=Sonda-1;

CercaStudente:=SondaEND;

CercaMigliorStudente

•Usando l’array Corso cerca il record dello studente con laMediaMigliore

•Stampa i dati dello studente trovato

MediaMigliore

•Fai una ricerca lineare sull’array Corso nel campo Media e memorizza l’indice per il quale la media è massima.

FUNCTION MediaMigliore(VAR Corso:CorsoArray;VAR Iscritti:IndiceTipo):IndiceTipo;VAR TempMigliore,Indice:IndiceTipo; BEGIN TempMigliore:=1; FOR Indice:=2 TO Iscritti DO IF Corso[Indice].Media > Corso[TempMigliore].Media THEN TempMigliore:=Indice; MediaMigliore:=TempMigliore END;

PROCEDURE CercaMigliore(VAR Corso:CorsoArray;VAR Iscritti:IndiceTipo);VAR IndiceMax:IndiceTipo; BEGIN IndiceMax:=MediaMigliore(Corso,Iscritti); WITH Corso[IndiceMax],Anagrafe DO BEGIN write(Nome,' ',Cognome); writeln(' e'' il migliore del corso con una media di ',

Media:3:2) END END;

PROCEDURE CercaInsieme(VAR Corso:CorsoArray; Iscritti:IndiceTipo);

VAR

Indice:integer;

Range:real;

BEGIN

write('La media minima richiesta e'': ');

readln(Range);


BEGIN

WITH Corso[Indice],Anagrafe DO

IF Media > Range THEN

BEGIN

write(Nome,' ',Cognome);

writeln(' rientra nell''intervallo con una media

di ',Media:3:2)

END;

END

END;

PROGRAM Txtrecord(output,Studenti);…………………………………………………………….VARCorso:CorsoArray;Iscritti,IndiceArray:IndiceTipo;StudentiFile:text;UnoStudente:StudenteRecord;NomeCercato:AnagraficaRecord;Scelta:integer;Range:real;FUNCTION MediaProve(Risultati:RisultatiArray):real;PROCEDURE LeggiParola(Sentinella:char;VAR Parola:StringaNome; VAR Studenti:text);PROCEDURE CostruisciRecordStudente(VAR UnoStudente:StudenteRecord; VAR

StudentiFile:text);PROCEDURE CostruisciCorso(VAR Iscritti:IndiceTipo;VAR Corso:CorsoArray;

VAR StudentiFile:text);FUNCTION CercaNome(Anagrafe1,Anagrafe2:AnagraficaRecord):boolean;FUNCTION IndiceStudente(VAR Iscritti:IndiceTipo;

VAR Corso:CorsoArray;NomeCercato:AnagraficaRecord):IndiceTipo;PROCEDURE CercaMediaStudente(VAR Iscritti:IndiceTipo;

VAR Corso:CorsoArray);FUNCTION MediaMigliore(VAR Corso:CorsoArray;

Iscritti:IndiceTipo):IndiceTipo;PROCEDURE CercaMigliore(VAR Corso:CorsoArray; Iscritti:IndiceTipo);PROCEDURE CercaInsieme(VAR Corso:CorsoArray; Iscritti:IndiceTipo);

OSSERVAZIONI

Usare l’algoritmo giusto per la variabile giusta.

Es. Se si vuole fare una ricerca dello studente con la media più alta, l’algoritmo deve prevedere di trattare dati reali.

Per accedere ai dati di un record messo in un array basta conoscere l’indice dell’array in cui il recor è contenuto.

SUGGERIMENTI

Scegliere la struttura dei dati in funzione del tipo di dati da gestire.

• per una lista di oggetti omogenei (che hanno cioè lo stesso significato es. i voti di uno studente) si può scegliere un array monodimensionale.

• per una lista di oggetti omogenei ma caratterizzati da proprietà diverse si possono usare array multidimensionali (es. pezzi degli scacchi e coordinate X,Y sulla scacchiera).

• per oggetti diversi tra loro ma legati da una struttura unica (es. dati anagrafici: nome, cognome, età,..) si possono usare array di record.

Si ricordi l’esempio in lezione 11: Si vuole costruire un array in cui ogni colonna rappresenta un piccolopaese, massimo mille abitanti, e per ogni paese vogliamo registrare ilnome degli abitanti.L’array quindi è di tipo stringa per cui nelle caselle vuote ci sarà lastringa nulla ‘’.CONSTMassimoAbitanti=1000;TYPETipoStringa=STRING[50];SubrangeAbitanti=1.. MassimoAbitanti;NomePaesi=(Nessuno, Acerra, Afragola, Capri, Casoria,

Ischia, Procida);NomeArray: ARRAY[SubrangeAbitanti,NomePaesi] OF TipoStringa;VAR Abitanti: NomeArray;

Acerra Afragola Capri Ischia Procida

1

2

515

841

1000

.

...

.

...

.

.

.

...

.

...

.

.

.

.

.

.

Esposito A.Bianchi G.

Rossi A. Russo T.

Annibale T.Cesare G.

Tirchio F.

Ricco S. Orofino T.

Esca T.

Argento T.Diamante A.Orazio P.

Romeo A.

Rendina A.

CittadiniPaesi1000Abitanti

Città Anagrafe

Cognome Nome

Struttura array di record del tipo

Indice:=3;WITH Corso DOBEGIN ………………… END

SYNTAX ERRORCorso[Indice]

IF Corso[Indice].Anagrafe=UnUomo.AnagrafeTHENBEGIN ……………………. END

SYNTAX ERROR

Non è possibile fare un FOR sui campi di un record:FOR I:=Anagrafe TO Età DO …………………

WITH Corso[Indice].Anagrafe DOBEGIN ………………… END

Si selezionano solo i campi Nome e Cognome

WITH Corso[Indice],Anagrafe DOBEGIN ………………… END

Si selezionano i campi Nome e Cognome e tuttiI campi di Corso[I]

WITH Corso[Indice],Anagrafe DOFOR J:=1 TO Iscritti DOWriteln(Cognome, Nome)

ERRORE !!!!!!!!!!!

FOR J:=1 TO Iscritti DOWITH Corso[J],Anagrafe DOWriteln(Cognome, Nome)

RICORDARSI DI PRENOTARE GLI SCRITTI NOTE SUL PROGETTO LA FRASE CHIAVE DEVE POTER CONTENERE SIA SPAZI...

Documents

Transcript of RICORDARSI DI PRENOTARE GLI SCRITTI NOTE SUL PROGETTO LA FRASE CHIAVE DEVE POTER CONTENERE SIA SPAZI...