8: I dati e la loro struttura nella programmazione( ARRAY, MATRICI, RECORD) Vers. 10.0 – Maggio 2025
Esempio 2: Caricare e visualizzare i dati relativi ai libri posseduti da una libreria N. B. Effettuando tutti i controlli sui campi previsti in fase di definizione del tracciato record ALGORITMO ArrayDiRecord _ CHECK _ YES MAXDIM 10
/* Per il tracciato record vedi l’ esempio precedente */.......
PROCEDURA main()
libreria: ARRAY [ MAXDIM ] DI Libro i, n: INT
INIZIO /* leggo la dimensione del vettore da caricare( vedi esempi precedente) */.......
/* Carico l’ array di record controllando e valorizzando ciascun campo del record */ PER i � 1 A n ESEGUI
RIPETI
Leggi( libreria [ i ]. Isbn) FINCHE’( libreria [ i ]. Isbn ≠ "") AND( Lunghezza( libreria [ i ]. Isbn) ≤ 10)
RIPETI
Leggi( libreria [ i ]. Titolo) FINCHE’( libreria [ i ]. Titolo ≠ "") AND( Lunghezza( libreria [ i ]. Titolo) ≤ 100)
RIPETI
Leggi( libreria [ i ]. Autore) FINCHE’( libreria [ i ]. Autore ≠ "") AND( Lunghezza( libreria [ i ]. Autore) ≤ 50)
RIPETI
Leggi( libreria [ i ]. CasaEditrice) FINCHE’( libreria [ i ]. CasaEditrice ≠ "") AND( Lunghezza( libreria [ i ]. CasaEditrice) ≤ 50)
RIPETI
Leggi( libreria [ i ]. Prezzo) FINCHE’( libreria [ i ]. Prezzo > 0) AND( libreria [ i ]. Prezzo) ≤ 999.99)
RIPETI
Leggi( libreria [ i ]. Pagine) FINCHE’( libreria [ i ]. Pagine > 0) AND( libreria [ i ]. Pagine) ≤ 9999) i � i + 1 FINE PER
/* Visualizzo l’ array di record stampando ciascun campo del record */
PER i � 1 A n ESEGUI Scrivi( libreria [ i ]. Isbn) Scrivi( libreria [ i ]. Titolo) Scrivi( libreria [ i ]. Autore) Scrivi( libreria [ i ]. CasaEditrice) Scrivi( libreria [ i ]. Prezzo) Scrivi( libreria [ i ]. Pagine) i � i + 1 FINE PER
FINE
Autore: Rio Chierego( email: riochierego @ libero. it- sito web: www. riochierego. it) Pag. 53