8: I dati e la loro struttura nella programmazione( ARRAY, MATRICI, RECORD) Vers. 10.0 – Maggio 2025
ALGORITMO ArrayDiRecord _ Prodotto _ SICONTROL _ 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( vedi esempi precedente) */.......
/* Carico l’ array di record controllando e valorizzando ciascun campo del record */ PER i � 1 A n ESEGUI
RIPETI
Leggi( magazzino [ i ]. CodProdotto) FINCHE’( magazzino [ i ]. CodProdotto ≠ "") AND( Lunghezza( magazzino [ i ]. CodProdotto) ≤ 6)
RIPETI Leggi( magazzino [ i ]. NomeProdotto)
FINCHE’( magazzino [ i ]. NomeProdotto ≠ "") AND( Lunghezza( magazzino [ i ]. NomeProdotto) ≤ 25)
RIPETI
Leggi( magazzino [ i ]. Giacenza) FINCHE’( magazzino [ i ]. Giacenza ≥ 0) AND( magazzino [ i ]. Giacenza) ≤ 9999)
RIPETI
Leggi( magazzino [ i ]. Prezzo) FINCHE’( magazzino [ i ]. Prezzo ≥ 0) AND( magazzino [ i ]. Prezzo) ≤ 999.99)
i � i + 1 FINE PER
/* 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
Ambiente globale
Autore: Rio Chierego( email: riochierego @ libero. it- sito web: www. riochierego. it) Pag. 65