Parte ii - IIS Marconi Latina - Area didattica

1006 volume V Programmazione
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. ELM0100.
|000300 AUTHOR. DANIELE GIACOMINI.
|000400 DATE-WRITTEN. 1985-02-12.
|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).
|001400*
|001500 PROCEDURE DIVISION.
|001600*-----------------------------------------------------------------
|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 COMPUTE C = A * B.
|002400 DISPLAY C.
|002500*
|002600 STOP RUN.
|002700*
83.2.2 ELM0200: prodotto tra due numeri
«
Variabili
‘A’ è il moltiplicando;
‘B’ è il moltiplicatore;
‘C’ è il risultato; questa variabile viene inizializzata a zero in fase di dichiarazione.
Descrizione
Il calcolo viene eseguito sommando alla variabile ‘C’ la variabile ‘A’ per ‘B’ volte.
Paragrafo ‘MAIN’
Il programma riceve dall’esterno i valori per le variabili ‘A’ e ‘B’. Attraverso l’istruzione
‘PERFORM’ viene eseguito il paragrafo ‘SOMMA’ per ‘B’ volte; al termine di questo ciclo
il risultato della moltiplicazione si trova nella variabile ‘C’, che viene visualizzato con
l’istruzione ‘DISPLAY’.
Il programma si arresta perché incontra l’istruzione ‘STOP RUN’.
Paragrafo ‘SOMMA’
Il paragrafo somma al contenuto della variabile ‘C’ il contenuto della variabile ‘A’. Dal
momento che questo paragrafo viene eseguito ‘B’ volte, la variabile ‘C’ finisce con il
contenere il risultato del prodotto di «A×B».