Parte ii - IIS Marconi Latina - Area didattica

Programmare in COBOL 1009
Descrizione
Il calcolo viene eseguito sommando alla variabile ‘C’ la variabile ‘A’ per ‘B’ volte. Per
ogni esecuzione di tale somma, la variabile ‘B’ viene diminuita di una unità, cosicché il
ciclo delle somme viene arrestato quando ‘B’ è ormai a zero.
Il programma si arresta solo se gli viene dato un comando apposito, altrimenti continua
a richiedere altri dati per l’esecuzione di un altro prodotto.
Paragrafo ‘MAIN’
Vengono ricevuti dall’esterno i valori per le variabili ‘A’ e ‘B’ tramite il paragrafo
‘INSERIMENTO-DATI’.
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, terminando
il ciclo quando la variabile ‘B’ contiene il valore zero. 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’
Inizialmente viene decrementato di una unità il contenuto della variabile ‘B’, quindi viene
sommato al contenuto di ‘C’ il valore di ‘A’.
Una copia di questo file dovrebbe essere disponibile presso 〈allegati/cobol/ELM0400.cob 〉.
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. ELM0400.
|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.