8 : I dati e la loro struttura nella programmazione ( ARRAY , MATRICI , RECORD ) Vers . 8.2 – Settembre 2022
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 Ambiente locale i , n : INT
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 . 70