Parte ii - IIS Marconi Latina - Area didattica

946 volume V Programmazione
Nella forma appena mostrata, dove le parole ‘INTO’ e ‘BY’ sono equivalenti, la divisione
avviene immettendo il risultato dell’operazione nella variabile indicata dopo la parola
‘GIVING’. Valgono le stesse considerazioni già fatte a proposito delle opzioni ‘ROUNDED’
e ‘SIZE ERROR’. Si osservi l’esempio seguente che ripete sostanzialmente l’esempio già
mostrato in precedenza:
|000000 DIVIDE 100 BY 5 GIVING A.
Utilizzando l’opzione ‘REMAINDER’, si fa in modo che il resto della divisione venga inserito
nella variabile che segue tale parola. Tuttavia, si osservi che per resto si intende ciò che rimane
moltiplicando il quoziente ottenuto (identifier-3) per il divisore (identifier-2 o literal-2), sottraendo
poi questo valore ottenuto dal dividendo (identifier-1 o literal-1). Si osservi l’esempio
che segue:
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. TEST-DIVIDE.
|000300 AUTHOR. DANIELE GIACOMINI.
|000400 DATE-WRITTEN. 2005-02-27.
|000500*
|000600 ENVIRONMENT DIVISION.
|000700*
|000800 DATA DIVISION.
|000900*
|001000 WORKING-STORAGE SECTION.
|001100 77 A PIC 9(10)V99.
|001200 77 B PIC 9(10)V99.
|001400*
|001500 PROCEDURE DIVISION.
|001600*
|001700 MAIN.
|001800 DIVIDE 100 BY 3 GIVING A REMAINDER B.
|001900 DISPLAY "100 / 3 = ", A, " CON IL RESTO DI ", B.
|002000*
|002100 STOP RUN.
|002200*
Una volta compilato questo programma, se viene messo in funzione si dovrebbe ottenere il
risultato seguente, che dovrebbe chiarire di che tipo di resto si parla con questa istruzione:
|100 / 3 = 0000000033.33 CON IL RESTO DI 0000000000.01
«
82.12.8 Istruzione «EXIT»
L’istruzione ‘EXIT’ serve a concludere anticipatamente l’esecuzione di un gruppo di paragrafi,
attraverso un’istruzione ‘PERFORM’. L’istruzione ‘EXIT’ deve essere usata da sola, all’interno
di un paragrafo tutto per sé: