PROGRAMMARE IN ERRE

READ(A,B,C,D,E)
SUM=A+B+C+D+E
AVERAGE=SUM/NUM_DATI
PRINT("NUMERO DATI =",NUM_DATI);
PRINT("NUMERO1 = ";A)
PRINT("NUMERO2 = ";B)
PRINT("NUMERO3 = ";C)
PRINT("NUMERO4 = ";D)
PRINT("NUMERO5 = ";E)
PRINT("SOMMA = ", SUM)
PRINT('MEDIA=", AVERAGE)
END PROGRAM
Anche qui, come nel caso della INPUT, I valori DATA devono coincidere in numero e tipo con quello
delle variabili nella READ.
Le istruzioni di output
Specularmente alle istruzioni di input, ci sono le istruzioni che permettono di visualizzare i risultati
del programma. Essenzialmente esiste una sola istruzione che abbiamo già visto in occasione sia
del programma ‘Hello’ che del programma ‘Media’ cioè l’istruzione PRINT.
La forma generale dell’istruzione è
PRINT(lista_espressioni)
e stampa sullo schermo "lista_espressioni" secondo la formattazione indicata. Questa può venire
assegnata tramite le funzioni di tabulazione SPC(X%) e TAB(X%) (da aggiungere all’elenco delle
funzioni predefinite di ERRE) o tramite i separatori ";" e "," che indicano rispettivamente stampa di
seguito e stampa nel prossimo campo: la lunghezza di ogni campo dipende dalla larghezza dello
schermo (40 o 80 colonne a disposizione). Tutte le variabili di tipo 'INTEGER', ‘BOOLEAN' e 'REAL'
occupano un campo, le variabili di tipo ‘LONG REAL’ possono occupare due campi, mentre per le
variabili di tipo ‘STRING’ conta la lunghezza delle stringhe stesse.
Ad esempio se I%=3 e J=7.55 l’istruzione
PRINT(I%,J,I%,J)
stamperà
campo n.1 campo n.2 campo n. 3 campo n. 4 campo n. 5
--------------==============--------------==============--------------
1234567890123412345678901234123456789012341234567890123412345678901234
3 7.55 3 7.55
^ ^ ^ ^
\------------ spazi per il segno del numero ---------------/
Come si può vedere ogni campo è largo 14 colonne, quindi abbiamo 5 campi per uno schermo a 80
colonne (ed avremo due campi per uno schermo a 40 colonne). Se invece come separatore si usa il
‘;’ il risultato sarà:
- 42 -