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