8: I dati e la loro struttura nella programmazione( ARRAY, MATRICI, RECORD) Vers. 10.0 – Maggio 2025
ALGORITMO ArrayDiRecord _ Prodotto _ NOCONTROL _ SISUBREC MAXDIM 10
TIPO DettaglioProdotto = RECORD CodProdotto: ARRAY [ 6 ] DI CHAR NomeProdotto: ARRAY [ 25 ] DI CHAR
FINE RECORD
TIPO Prodotto = RECORD DatiP: DettaglioProdotto Giacenza: INT Prezzo: REAL
FINE RECORD
PROCEDURA main()
magazzino: ARRAY [ MAXDIM ] DI Prodotto i, n: INT
Ambiente locale
INIZIO /* leggo la dimensione del vettore da caricare */ RIPETI
Leggi( n) FINCHE’( n ≥ 1) AND( n ≤ MAXDIM)
/* Carico l’ array di record valorizzando ciascun campo del record */ PER i � 1 A n ESEGUI
Leggi( magazzino [ i ]. DatiP. CodProdotto) Leggi( magazzino [ i ]. DatiP. NomeProdotto) Leggi( magazzino [ i ]. Giacenza) Leggi( magazzino [ i ]. Prezzo)
i � i + 1 FINE PER
Ambiente globale
/* Visualizzo l’ array di record stampando ciascun campo del record */ PER i � 1 A n ESEGUI
Scrivi( magazzino [ i ]. DatiP. CodProdotto) Scrivi( magazzino [ i ]. DatiP. NomeProdotto) Scrivi( magazzino [ i ]. Giacenza) Scrivi( magazzino [ i ]. Prezzo)
i � i + 1 FINE PER FINE
Autore: Rio Chierego( email: riochierego @ libero. it- sito web: www. riochierego. it) Pag. 71