Parte ii - IIS Marconi Latina - Area didattica

Programmare in COBOL 1007
Una copia di questo file dovrebbe essere disponibile presso 〈allegati/cobol/ELM0200.cob 〉.
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. ELM0200.
|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*
|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 B TIMES.
|002400 DISPLAY C.
|002500*
|002600 STOP RUN.
|002700*------------------------- LIVELLO 1 -----------------------------
|002800 SOMMA.
|002900 COMPUTE C = C + A.
|003000*
83.2.3 ELM0300: prodotto tra due numeri
«
Variabili
‘A’ è il moltiplicando;
‘B’ è il moltiplicatore;
‘C’ è il risultato.
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.
Paragrafo ‘MAIN’
Vengono ricevuti dall’esterno i valori per le variabili ‘A’ e ‘B’. Viene eseguito tramite
l’istruzione ‘PERFORM’ il paragrafo ‘SOMMA’ fino a quando la variabile ‘B’ raggiunge lo
zero. A quel punto la variabile ‘C’ contiene il risultato del prodotto, che viene visualizzato
con l’istruzione ‘DISPLAY’.