specificare una unità con cui scambiare i dati

input da tastieraoutput a videofile esterno

variabili di programma

unità di I/O

Istruzioni di INPUT/OUTPUT

READ(<numero_di_unità>,<numero_di_formato>)

WRITE(<numero_di_unità>,<numero_di_formato>)

Istruzioni di INPUT/OUTPUT

lettura di dati

scrittura di dati

tastiera num. unità = * oppure 5video num. unità = * oppure 6

INPUT/OUTPUT numero di unità

READ( * ,<numero_di_formato>) READ( 5 ,<numero_di_formato>)

WRITE( * ,<numero_di_formato>) WRITE( 6 ,<numero_di_formato>)

Apertura di un FILE esterno

OPEN( unit = <numero_di_unita>,

file = ‘<path_file_name>’,

status = ‘{OLD,NEW,REPLACE,SCRATCH}’,

action = ‘{READ,WRITE,READWRITE}’,

iostat = variabile intera)

variabile intera = 0 se l’istruzione OPEN è stata eseguita correttamente

opz.

opzionale

opzionale

Apertura di un FILE esterno

predispone il file ‘esempio.txt’ per la lettura e gli assegnail numero di unità 2

OPEN( unit = 2, file = ‘esempio.txt’, action = ‘READ’)

OPEN( unit = 3, file = ‘esempio.txt’, action = ‘WRITE’)

I numeri 5 e 6 NON sono utilizzabili perché associati alla tastiera ed al video

predispone il file ‘esempio.txt’ per la scrittura e gli assegnail numero di unità 3

chiusura di un FILE esterno

chiude il file associato a numero_di_unita

CLOSE(unit = <numero_di_unita>)

spostamenti su un FILE

fa tornare al record precedente

BACKSPACE(unit = <numero_di_unita>)

fa tornare al primo record

REWIND(unit = <numero_di_unita>)

READ e WRITE senza formato

lettura e scrittura con formattazione standard

READ(<numero_di_unità>, * ) <lista_variabili> WRITE(<numero_di_unità>, * ) <lista_variabili>

READ( 1 , * ) a,c,d WRITE( * , * ) a,c,d,

Commenti nelle WRITE senza formato

WRITE(<n.unità>, * ) ‘ commento ’,<lista_variabili>

WRITE( * , * ) ‘il numero a =‘, a,’ il numero c=‘,c

WRITE( * , * ) ‘il numero a =‘READ( * , * ) a

lettura e scrittura con formattazione definita dalprogrammatore

READ(<numero_di_unità>,<numero_di_formato>) WRITE (<numero_di_unità>,<numero_di_formato>)

READ e WRITE con formato

Dati formattati <label> FORMAT(<list_of_format_identifier>)

format identifier

i<n> intero con <n> cifre compreso il segno

a<n> stringa composta da <n> caratteri alafanumerici

f<n.m> numero composto di <n> caratteri, compresi il segno e il separatore decimale, e con <m> cifre decimali n >= m+2 esempio f7.3 -70.500

Dati formattati <label> FORMAT(<list_of_format_identifier>)

format identifier

d<n.m> numero in doppia precisione composto di <n> caratteri compresi, il segno, il separatore decimale e l’esponenziale, e con <m> cifre decimali n>=m+7 esempio d10.3 +0.705D+03

<n>x lascia <n> spazi bianchi

Esempio di output formattato

OPEN (unit=22, file=‘output.txt’, action=‘write’)

WRITE (unit=22, fmt=100) 10, ’denari’, 3.4

100 FORMAT (i3,1x,a8,1x,f6.3)

1 0 d e n a r i 3 . 4 0 0

Esempio di output formattato

OPEN (unit=22, file=‘output.txt’, action=‘write’)

WRITE (unit=22, fmt=100) 10, ’piu di otto’, -3.4

100 FORMAT (i3,1x,a8,1x,f6.3)

1 0 p i u d i o - 3 . 4 0 0

Esempio di output formattato

OPEN (unit=22, file=‘output.txt’, action=‘write’)

WRITE (unit=22, fmt=100) 10, ’piu di otto’, -13.4

100 FORMAT (i3,1x,a8,1x,f6.3)

1 0 p i u d i o * * * * * *