Programmazione informatica...

[zinghino]

Perdonatemi se ho sbagliato qualcosa ma sono nuovo... Mi scuso in anticipo...

Salve ragazzi mi aiutate a svolgere e a capire come si svolge questo problema di informatica ?
Ho cambiato indirizzo e sto cercando di recuperare piu di un anno di scuola e le cose nuove non le capisco.. Il problema è questo:
Realizzare un archivio per una videoteca che memorizzi le informazioni di tutti i film in particolare: titolo,regista,durata,codice,posizione. Bisogna realizzare le seguenti procedure: crezione dell'archivio,stampa,ricerca dato il titolo del filmnella sua posizione , inserimentodi nuovi titoli.. A scuola ho copiato qualcosa da un amico ma senza capirci niente.
PROGRAM.AGENDA.CON.FILM;
TYPE AMICO=RECORD
NOME=STRING[20]
COGNOME=STRING[20]
TEL=STRING[20]
END;

AGEND:FILES OF AMICO;
BAF:AMICO;
F:AGENDA
N,I:INTEGER
K:CHAR
TROVATO:BOOLEAN;
PROCEDURA IN CODA(CAR:FF:AGENDA);
VAR BAF=AMICO;

BEGIN
RESET(FF);
WHILE NOT (EOF(FF)) DO READ (FF,BAF);
READ(BAF.NOME);
READ(BAF.COGNOME);
READ(BAF.TEL);
WRITE(FF.BAF);
END;

PROCEDURE CONT.ELM(VAR FF:AGENDA,DIM:INTEGER)
VAR BAF:AMICO;
BEGIN
RESET(F);
WHILE NOT (EOF(F)) DO.READ(F,BAF);
READ(BAF.NOME);
READ(BAF.COGNOME);
READ(BAF.TEL);
WRITE(F.BAF);
END;

AIUTOOOOOOOOOOOOOOOOOOOOOOOOO

[Eress]

Prova a chiedere in questa sezione del forum

http://www.hwupgrade.it/forum/forumdisplay.php?f=38

[zinghino]

Grazie mille

[Marinelli]

Discussione chiusa.

Ciao!