8: I dati e la loro struttura nella programmazione( ARRAY, MATRICI, RECORD) Vers. 10.0 – Maggio 2025
ALGORITMO ArrayDiRecord _ Prodotto _ NOCONTROL _ NOSUBREC MAXDIM 10 TIPO Prodotto = RECORD
CodProdotto: ARRAY [ 6 ] DI CHAR
NomeProdotto: ARRAY [ 25 ] DI CHAR
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 ]. CodProdotto) Leggi( magazzino [ i ]. 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 ]. CodProdotto) Scrivi( magazzino [ i ]. 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. 64