Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Pascal - aiuto per gli archivi
Forum - Pascal - aiuto per gli archivi

Avatar
mattia26 (Normal User)
Newbie


Messaggi: 1
Iscritto: 12/05/2010

Segnala al moderatore
Postato alle 13:12
Mercoledì, 12/05/2010
salve ragazzi ho un problema cn gli archivi una volta dichiarato l'archivio in questo modo

type anagrafica =record
mone:string[20];
cognome:string[20];
residenza:string[20];
eta:integer;
end;
file of anagrafica


cosa devo fare... devo fare un programma dove devo inserire dei dati e poi stamparli con due sole procedure inserimento e stampa mi potreste dare una mano ???? grazie mille:)

PM Quote
Avatar
Phi (Member)
Expert


Messaggi: 241
Iscritto: 30/12/2009

Segnala al moderatore
Postato alle 14:09
Mercoledì, 12/05/2010
Non so se ho capito bene.

La prossima volta posta un sorgente :nono:

Comunque puoi creare una procedure che legge i dati da tastiera, usa vari readln.
Poi una procedura che scriva i valori ottenuti sul file.
Ripeti questa sequenza finche non hai finito di inserire dati.

Puoi usare un codice simile a questo:

Codice sorgente - presumibilmente Delphi

  1. type
  2. anagrafica =record
  3. nome:string[20];
  4. cognome:string[20];
  5. residenza:string[20];
  6. eta:integer;
  7. end;
  8.  
  9. var
  10. F : file of anagrafica;
  11. A : anagrafica;
  12. S : char;
  13. nomefile : string;
  14.  
  15. procedure inserimento;
  16. begin
  17. writeln;
  18. writeln('inserisci nuovo record);
  19. with A do begin
  20. write('nome     =');readln(nome);
  21. write('cognome  =');readln(cognome);
  22. write('residenza=');readln(residenza);
  23. write('età      =');readln(eta);
  24. end;
  25. end;
  26.  
  27. procedure scrivi;
  28. begin
  29. write(F,A);
  30. end;
  31.  
  32. BEGIN
  33. writeln('inserisci nome del file');
  34. readln(nomefile);
  35. assign(F,nomefile);
  36. rewrite(F);
  37. repeat
  38. inserimento;
  39. scrivi;
  40. write('vuoi inserire un altro record del file ?? (s/n)  ');
  41. repeat readln(s) until (s='s')or(s='n');
  42. until (s = 'n');
  43. close(F);
  44. END.


Ultima modifica effettuata da Phi il 12/05/2010 alle 16:21
PM Quote