PROCEDURA Carica _ V ( VAL n : INT , REF v : ARRAY [ MAXDIM ] DI Calciatore )
USO DEI SOTTOPROGRAMMI Caricamento e visualizzazione di un ARRAY DI RECORD
PROCEDURA Carica _ V ( VAL n : INT , REF v : ARRAY [ MAXDIM ] DI Calciatore )
i : INT
INIZIO PER i � 1 A n ESEGUI
RIPETI Scrivi (" Cognome = ") Leggi ( v [ i ]. Cognome ) FINCHE ’ ( Lunghezza ( v [ i ]. Cognome ) ≠ 0 ) AND ( Lunghezza ( v [ i ]. Cognome ) ≤ MAXNUMCHAR )
RIPETI Scrivi (" Nome = ") Leggi ( v [ i ]. Nome ) FINCHE ’ ( Lunghezza ( v [ i ]. Nome ) ≠ 0 ) AND ( Lunghezza ( v [ i ]. Nome ) ≤ MAXNUMCHAR )
RIPETI Scrivi (" Maglia = ") Leggi ( v [ i ]. Maglia ) FINCHE ’ ( v [ i ]. Maglia ≥ MINNUMMAGLIA ) AND ( v [ i ]. Maglia ≤ MAXNUMMAGLIA ) i � i + 1 FINE PER
RITORNA FINE