Parte ii - IIS Marconi Latina - Area didattica

Programmare in COBOL 1011
Viene eseguito il paragrafo ‘LAVORO’ ripetutamente, terminando il ciclo quando la
variabile ‘EOJ’ contiene il valore uno.
Il programma si arresta perché incontra l’istruzione ‘STOP RUN’.
Paragrafo ‘LAVORO’
Viene eseguito tramite l’istruzione ‘PERFORM’ il paragrafo ‘SOMMA’ ripetutamente, decrementando
il valore della variabile ‘B’, fino a zero, quando il ciclo termina. A quel punto,
la variabile ‘C’ contiene il risultato del prodotto, che viene visualizzato con l’istruzione
‘DISPLAY’.
Il programma riceve dall’esterno una parola: un ‘SI’ o un ‘NO’; se viene fornita la stringa
‘SI’ (scritta con lettere maiuscole) il programma azzera il contenuto della variabile ‘C’
ed esegue il paragrafo ‘INSERIMENTO-DATI’, altrimenti, viene messo il valore uno nella
variabile ‘EOJ’.
Paragrafo ‘INSERIMENTO-DATI’
Il paragrafo riceve dall’esterno i valori per le variabili ‘A’ e ‘B’.
Paragrafo ‘SOMMA’
Viene sommato al contenuto di ‘C’ il valore di ‘A’.
Una copia di questo file dovrebbe essere disponibile presso 〈allegati/cobol/ELM0500.cob 〉.
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. ELM0500.
|000300 AUTHOR. DANIELE GIACOMINI.
|000400 DATE-WRITTEN. 1985-02-14.
|000500*
|000600 ENVIRONMENT DIVISION.
|000700*
|000800 DATA DIVISION.
|000900*
|001000 WORKING-STORAGE SECTION.
|001100 01 A PIC 9(7).
|001200 01 B PIC 9(7).
|001300 01 C PIC 9(14) VALUE ZERO.
|001400 01 EOJ PIC 9 VALUE ZERO.
|001500 01 RISPOSTA PIC XX.
|001600*
|001700 PROCEDURE DIVISION.
|001800*------------------------- LIVELLO 0 -----------------------------
|001900 MAIN.
|002000 PERFORM INSERIMENTO-DATI.
|002100 PERFORM LAVORO UNTIL EOJ = 1.
|002200*
|002300 STOP RUN.
|002400*------------------------- LIVELLO 1 -----------------------------
|002500 LAVORO.
|002600 PERFORM SOMMA VARYING B FROM B BY -1 UNTIL B = 0.
|002700 DISPLAY C.
|002800*
|002900 DISPLAY "VUOI CONTINUARE? SI O NO".
|003000 ACCEPT RISPOSTA.