Parte ii - IIS Marconi Latina - Area didattica

1008 volume V Programmazione
Il programma si arresta perché incontra l’istruzione ‘STOP RUN’.
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/ELM0300.cob 〉.
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. ELM0300.
|000300 AUTHOR. DANIELE GIACOMINI.
|000400 DATE-WRITTEN. 1985-04-13.
|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*
|001500 PROCEDURE DIVISION.
|001600*------------------------- LIVELLO 0 -----------------------------
|001700 MAIN.
|001800 DISPLAY "MOLTIPLICAZIONE DI DUE NUMERI".
|001900 DISPLAY "INSERISCI IL PRIMO ELEMENTO".
|002000 ACCEPT A.
|002100 DISPLAY "INSERISCI IL SECONDO ELEMENTO".
|002200 ACCEPT B.
|002300 PERFORM SOMMA UNTIL B = 0.
|002400 DISPLAY C.
|002500*
|002600 STOP RUN.
|002700*------------------------- LIVELLO 1 -----------------------------
|002800 SOMMA.
|002900 COMPUTE B = B - 1.
|003000 COMPUTE C = C + A.
|003100*
83.2.4 ELM0400: prodotto tra due numeri
«
Variabili
‘A’ è il moltiplicando;
‘B’ è il moltiplicatore;
‘C’ è il risultato;
‘EOJ’ quando assume il valore 1 il programma si arresta;
‘RISPOSTA’ è la variabile che riceve la risposta, un ‘SI’ o un ‘NO’, per la continuazione
o meno con un altro calcolo.