Parte ii - IIS Marconi Latina - Area didattica
Parte ii - IIS Marconi Latina - Area didattica
Parte ii - IIS Marconi Latina - Area didattica
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
966 volume V Programmazione<br />
|001100*<br />
|001200 WORKING-STORAGE SECTION.<br />
|001300 77 CONTATORE-1 PIC 99.<br />
|001400 77 CONTATORE-2 PIC 99.<br />
|001500 77 CONTATORE-3 PIC 99.<br />
|001600*<br />
|001700 PROCEDURE DIVISION.<br />
|001800*------------------------- LIVELLO 0 -----------------------------<br />
|001900 MAIN.<br />
|002000 PERFORM VISUALIZZA-CONTATORI<br />
|002100 VARYING CONTATORE-1 FROM 0 BY 1<br />
|002200 UNTIL CONTATORE-1 >= 2,<br />
|002300 AFTER CONTATORE-2 FROM 0 BY 1<br />
|002400 UNTIL CONTATORE-2 >= 2,<br />
|002500 AFTER CONTATORE-3 FROM 0 BY 1<br />
|002600 UNTIL CONTATORE-3 >= 2.<br />
|002700*<br />
|002800 STOP RUN.<br />
|002900*------------------------- LIVELLO 1 -----------------------------<br />
|003000 VISUALIZZA-CONTATORI.<br />
|003100 DISPLAY CONTATORE-1, " ", CONTATORE-2, " ", CONTATORE-3.<br />
|003200*<br />
Una volta compilato questo programma, avviando ciò che si ottiene, si può vedere il risultato<br />
seguente:<br />
|00 00 00<br />
|00 00 01<br />
|00 01 00<br />
|00 01 01<br />
|01 00 00<br />
|01 00 01<br />
|01 01 00<br />
|01 01 01<br />
«<br />
82.12.16 Istruzione «READ»<br />
L’istruzione ‘READ’ serve a ottenere un record logico da un file, che risulta essere già stato<br />
aperto, in modo tale da consentire la lettura (‘INPUT’ o ‘I-O’). Sono disponibili formati diversi<br />
per l’utilizzo di questa istruzione, che dipendono dall’organizzazione del file a cui si accede.<br />
Organizzazione sequenziale, relativa e a indice<br />
Organizzazione relativa