|
|||||||
|
|
|
![]() |
|
|
Strumenti |
|
|
#1 |
|
Junior Member
Iscritto dal: Oct 2010
Messaggi: 7
|
Programmazione informatica...
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 |
|
|
|
|
#2 |
|
Senior Member
Iscritto dal: Jan 2010
Messaggi: 37097
|
|
|
|
|
|
#3 |
|
Junior Member
Iscritto dal: Oct 2010
Messaggi: 7
|
Grazie mille
|
|
|
|
|
#4 |
|
Senior Member
Iscritto dal: Aug 1999
Città: Tolmezzo (UD) - Milano
Messaggi: 13744
|
Discussione chiusa.
Ciao!
__________________
...to go where no one has gone before. One ring to rule them all, one ring to find them, one ring to bring them all and in darkness bind them. Caron, non ti crucciare: vuolsi così colà dove si puote ciò che si vuole, e più non dimandare. |
|
|
|
| Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 15:20.

















