RossiUgo351972480/8796 BianchiCarlo1221971480/8746 II25 23 29 28 I30 25 18 27 1.Sia dato un file di...

Rossi Ugo 3 5 1972 480/8796

Bianchi Carlo 12 2 1971 480/8746

II 25 23 29 28

I 30 25 18 27

1. Sia dato un file di testo riguardante un insieme di studenti di cui è fornito il cognome e il nome seguito dalla data di nascita, giorno mese anno dalla matricola, dall’anno di corso e da un array dei voti riportati.

Il file sarà perciò così composto:

………………………………………………………………………………………

…………………………………………………………………………………………

Leggere il file mostrando a video i nomi ordinati per media dei voti riportati e per cognome.

I TIPI

Integer,Real,Char,String,Array,Enumerated,…………..

RECORD

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

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

Definizione di RECORD

TYPE NomeRecord = RECORD

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

= Lista dei campi

RECORDidentificatore END

AnagraficaRecord = RECORDCognome,Nome : Stringa20

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:Stringa20; AnnoCorso:Stringa20; Risultati:RisultatiArray; Media:real;

Studente

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

AnagraficaRecord = RECORDCognome,Nome : Stringa20END;

DataRecord = RECORDGiorno,Mese,Anno : integerEND;

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

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 566/879

Bianchi Carlo 12 2 1971 566/874

II° 25 23 29 28 26,25

I° 30 25 18 27 25,00STRUTTURA DATI

Siano dati due file testo: studenti.txt e tesi.txt. Il primo contiene informazioni riguardanti tutti gli studenti di un corso di laurea; il secondo contiene informazioni riguardanti i soli studenti del medesimo corso di laurea che hanno già fatto richiesta della tesi. Le informazioni per ogni studente sono così strutturate:

Entrambi i file sono ordinati per numero di matricola crescente. Scrivere una procedura che mostri a video la matricola e la media di tutti gli studenti che hanno richiesto la tesi e che hanno svolto tutti gli esami.

Studenti.txtMatricola (intero)<eoln>Cognome e nome<eoln>Esami sostenuti (intero) Esami da sostenere (intero)<eoln>Nome esame sostenuto^ voto (intero)<eoln>…Nome esame sostenuto^ voto (intero)<eoln>

Tesi.txtMatricola (intero)<eoln>Cognome e nome<eoln>

UN ESERCIZIO DI MOD.A

Esempio Studenti.txt4010<eoln>Rossi Marco<eoln>18 0<eoln>…Nome esame sostenuto^ 26<eoln>4050<eoln>Antonio Neri<eoln>10 8<eoln>…Nome esame sostenuto^ 22<eoln>4060<eoln>Bianchi Matteo<eoln>16 2<eoln>…Nome esame sostenuto^ 23<eoln><eof>

Tesi.txt4010<eoln>Rossi Marco<eoln>4060<eoln>Bianchi Matteo<eoln><eof>

L’output sarà: 4010 seguito dalla media

CONST TotaleProve=25;TYPEStringa20 = STRING[20]NomiArray=ARRAY[1..TotaleProve] OF stringa20;VotiArray=ARRAY[1..TotaleProve] OF integer;

NumEsRecord = RECORDSostenuti,Sostenere:integer;END;

SostenutiRecord = RECORDEsame:NomiArray,Voti:VotoArray;

StudenteRecord = RECORD Matricola:StringaNome;

Anagrafe:AnagraficaRecord; NumEsami:NumEsRecord; EsamiSost:SostenutiRecord;

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

Aggiornare la funzione tenendo conto dei mesi di lunghezza variabile e degli anni bisestili

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;

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

Studente

AnnoCorsoRisultatiMedia

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 da File .txt

RAPPRESENTAZIONE GRAFICA

Apri il file dati in lettura

StudentiFile

Carica Dati

Costruisci Record Studenti

Leggi Cognome

Leggi Nome

Leggi Giorno

Leggi Mese

Leggi Anno

Leggi Matr

Leggi Corso

Leggi Risultati

StudentiFile

Scrivi

Cognome Nome

GiornoMese

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;

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

reset(StudentiFile);

CaricaDati(Iscritti,UnoStudente,StudentiFile);

readln

PROCEDURE CaricaDati(VAR Iscritti:IndiceTipo;

VAR UnoStudente:StudenteRecord; VAR StudentiFile:text);

Indice:IndiceTipo;

readln(StudentiFile,Iscritti);

FOR Indice:=1 TO Iscritti DO

CostruisciRecordStudente(UnoStudente,StudentiFile)

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);

Carattere:char;

Parola:='';

read(Studenti,Carattere);

WHILE (Carattere<>Sentinella) DO

Parola:=Parola+Carattere;

L’ISTRUZIONE WITH

Seleziona diversi campi di un record usando solo un riferimento.

variabileWITH DO istruzioni

BEGIN WITH Nome1,Nome2,… DO

BEGIN………………...

PROCEDURE CostruisciRecordStudente(VAR UnoStudente:StudenteRecord;

VAR StudentiFile:text);

NumeroProva:integer;

WITH UnoStudente DO

LeggiParola(' ',Matricola, StudentiFile);

LeggiParola(' ',AnnoCorso, StudentiFile);

USO DI WITH

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

ARRAY Risultati

1 2 3 4

Rossi Carlo 30 11 1968

480/564 II 30 28 18 25

Siano dati due file testo: studenti.txt e tesi.txt. Il primo contiene informazioni riguardanti tutti gli studenti di un corso di laurea; il secondo contiene informazioni riguardanti i soli studenti del medesimo corso di laurea che hanno già fatto richiesta della tesi. Le informazioni per ogni studente sono così strutturate:

Entrambi i file sono ordinati per numero di matricola crescente. Scrivere una procedura che mostri a video la matricola e la media di tutti gli studenti che hanno richiesto la tesi e che hanno svolto tutti gli esami.

UN ESERCIZIO DI MOD.A

Studente

Matricola Anagrafe NumEsami EsamiSost

Cogn Nom S.ti S.re Esami Voti

Studente

Matricola Anagrafe NumEsami EsamiSost

Cogn Nom S.ti S.re Prove

Esame Voto

CONST TotaleProve=25;TYPEStringa20 = STRING[20]NomiArray=ARRAY[1..TotaleProve] OF stringa20;VotiArray=ARRAY[1..TotaleProve] OF integer;

SostenutiRecord = RECORDEsame:NomiArray,Voti:VotoArray;END;

Anagrafe:AnagraficaRecord; NumEsami:NumEsRecord; EsamiSost:SostenutiRecord;

CONST TotaleProve=25;TYPEStringa20 = STRING[20]Prove = RECORD

Esame: StringaNome;Voto: Integer;END;

ProveArray = ARRAY[TotaleProve] OF Prove; AnagraficaRecord = RECORD

Cognome,Nome : Stringa20END;

Anagrafe:AnagraficaRecord; NumEsami:NumEsRecord;

EsamiSost:ProveArray;END;

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

OUTPUT

RAPPRESENTAZIONE GRAFICA

Apri il file dati in lettura

Leggi ArrayRisultati

Scrivi

Cognome NomeGiorno Mese AnnoMatrAnnoCorsoMediaRisultati

StudentiFile

CostruisciCorso

CorsoIscritti

CercaMediaStudente

CorsoIscritti

CercaMigliore

CorsoIscritti

Leggi Dati

StudentiFile

CognomeNomeGiornoMeseAnnoMatrAnnoCorso

UnoStudente

Costruisci Record Studenti

StudentiFile Corso[I]

IndiceMigliore

CorsoIscritti

IndiceMigliore

IndiceStudente

CorsoNomeCercato Indice

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;

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)

readln

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);

Indice:IndiceTipo;

readln(StudentiFile,Iscritti);

CostruisciRecordStudente(Corso[Indice],StudentiFile)

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

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;

NumProva,

Somma:integer;

Media:real;

Somma:=0;

FOR NumProva:=1 TO TotaleProve DO

Somma:=Somma+Risultati[NumProva];

MediaProve:=Somma/TotaleProve

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

Carattere:char;

Parola:='';

WHILE (Carattere<>Sentinella) DO

Parola:=Parola+Carattere;

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);

NomeCercato:AnagraficaRecord;

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)

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

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

(Anagrafe1.Nome=Anagrafe2.Nome)

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;

IndiceStudente:=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);

Indice:integer;

Range:real;

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

readln(Range);

WITH Corso[Indice],Anagrafe DO

IF Media > Range THEN

write(Nome,' ',Cognome);

writeln(' rientra nell''intervallo con una media

di ',Media:3:2)

PROGRAM Txtrecord(output,Studenti);…………………………………………………………….VARCorso:CorsoArray;Iscritti,IndiceArray:IndiceTipo;StudentiFile:text;UnoStudente:StudenteRecord;NomeCercato:AnagraficaRecord;Scelta:integer;Range:real;FUNCTION MediaProve(VAR 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 record è 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).

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 …………………

Non confronta il type ma solo i singoli campi

.cognome .cognome

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[Indice]

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

ERRORE !!!!!!!!!!! Scriverà sempre lo stessoCognome e Nome per Iscritti volte

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

Una funzione di Search lineare può essere del tipoLinear(UnArray, Chiave, TotalElements) dove si presuppone che il subrange di candidati sia tra 1.. TotalElements.

EsempioSupponiamo di avere un Array di record Studenti, di operare su un subrange che vada 1..NumeroStudenti. Uno dei campi del record supponiamo sia MATRICOLA. Su questo campo vogliamo fare delle ricerche. Una chiamata di funzione tipica èIndice:=Linear(Studenti; MatrCercata; NumeroStudenti)

RICERCA LINEARE

Studente

AnnoCorso Risultati Media

COD MAT COGNOME

NOME DT_NASC SES

DOMICILIO

COM PR CAP DESCRIZIONE

PREFISSO

TEL EMAIL ANNO_CORS

566 14 ABBA VITO 02/08/1979 M VIA F. NAPOLI

NA 80144 NAPOLI 081 7011838

Ernb@na.it

EsercizioProgettare e costruire un record per la descrizione dei dati studenti sotto riportati aggiungendo le informazioni relative al corso di studi.

…………………………….

Piano distudio

Programmazione Mod A

Programmazione Mod B

Analisi Architetturaelab.

Algebra

PROBLEMA

Supponiamo di voler descrivere l’anagrafica di un medico di

famiglia, il Dr.Ippocrate . I dati di ogni paziente sono

memorizzati su un file testo alla maniera seguente:

Codice Paziente, Cognome, Nome, Data di Nascita,Indirizzo

(Via, N°,Piano), telefono, <eoln>

Elenco delle patologie curate (max 10)<eoln>

Elenco dei parametri clinici per ogni patologia (max 5 x

patologia) con i valori normali.

Data Ultima Visita Ambulatoriale e Domiciliare

Si vuole sapere quale è la patologia più frequente tra i

pazienti del Dr. Ippocrate.

Tra i pazienti che soffrono di questa patologia quale è il

più grave.

RossiUgo351972480/8796 BianchiCarlo1221971480/8746 II25 23 29 28 I30 25 18 27 1.Sia dato un file di...

Documents

Transcript of RossiUgo351972480/8796 BianchiCarlo1221971480/8746 II25 23 29 28 I30 25 18 27 1.Sia dato un file di...

Listino i30 Wagon - Hyundai Italia...HYUNDAI i30 Wagon LISTINO PREZZI Listino in vigore dal 22/01/2020 Listino valido per vetture a stock MESSA SU STRADA1 € 750,00 ADVANCED BUSINESS

Gentili colleghi, penso possa esservi utile questo power point riguardante la compilazione del P.D.P Anna Baldoni.

Nuova Hyundai i30 ok.pdfdei consumi. Ecco perché Hyundai ha sviluppato la struttura della nuova i30 utilizzando l’acciaio ad alta resistenza Ultra High Strength Steel. Allo stesso

((Riordino della disciplina riguardante il diritto di accesso civico e … · 2017-01-31 · DE CRE TO L E GISL ATIVO 1 4 m arzo 2 0 1 3 , n . 3 3 ((Riordino della disciplina riguardante

Tipi di dato astratti Lista, Pila, Coda, Albero. ADT Un tipo di dato astratto o ADT (Abstract Data Type) è un tipo di dato le cui istanze possono essere.

Istruzioni dimontaggio GPL - ГБО · PDF fileIstruzioni dimontaggio Sistema i30 1.4i80kWE4 (vetturaDOEM) cod.istruzioneFSG0514307 GPL. 2/9 FSG0514307 ... Schema collegamento parte

Tesina di maturità creata da me, riguardante i Limiti della scienza

Il Vantaggio, mensile del risparmio e del tempo libero · 2012. 7. 16. · LE NOSTRE PROVE SU STRADA La nuova Hyundai i30, una come i40, concepitae costruita in per I 'Europa Seconda

HYUNDAI Listino i30 Turbo Mag2015Hyundai Motor Company Italy S.r.l., nell’ambito del continuo miglioramento della qualità e sicurezza dei propri veicoli anche con riferimento alla

Caldaia a condensazione modelli I15 - I30 - I35 · presenza del vapor acqueo nei fumi di scarico. Nel caso del gas, questa quantità supplementare di calore risulta pari a ben l’11%

Lezione 3: Tipi di Dato Prof. Raffaele Montella. La nozione di tipo di dato Il tipo del dato consente di esprimere la natura del dato Indica il modo con.

250… ma sostenibili!!!...di certificazione OHSAS 18001, o di certificazione UNI CEI EN ISO 50001 riguardante il sistema di gestione dell'energia o UNI CEI 11352 riguardante la certificazione

Help Dato Variabile

El Dato - Marzo de 2012

PIANO DI EMERGENZA ED EVACUAZIONE...(riguardante la tutela della salute e sicurezza sui luoghi di lavoro) Decreto Ministeriale 10 marzo 1998 (G.U. 7/04/1998 n. 81) (riguardante la

VISTO il D. Lgs. 30.03.2001 n. 165 riguardante le “Norme ...

InvestimentiinPubblicità Statistiche pubblicate da World Advertising Trends nel settembre 2007 con dati aggiornati fino al 2006 (L’analisi riguardante.

DAL DATO ALL’INFORMAZIONE GESTIONALE

COME SI È PASSATI DALL’INTEGRAZIONE ALL’INCLUSIONE · DPR n° 394/99 -Normativa riguardante il processo di accoglienza Art. 45 del DPR 394, Normativa riguardante il processo

Relazione tecnica riguardante le componenti impiantistiche ...