Parte ii - IIS Marconi Latina - Area didattica

1010 volume V Programmazione
|002000 PERFORM INSERIMENTO-DATI.
|002100 PERFORM LAVORO UNTIL EOJ = 1.
|002200*
|002300 STOP RUN.
|002400*------------------------- LIVELLO 1 -----------------------------
|002500 LAVORO.
|002600 PERFORM SOMMA UNTIL B = 0.
|002700 DISPLAY C.
|002800*
|002900 DISPLAY "VUOI CONTINUARE? SI O NO".
|003000 ACCEPT RISPOSTA.
|003100*
|003200 IF RISPOSTA = "SI"
|003300 THEN
|003400 MOVE ZERO TO C,
|003500 PERFORM INSERIMENTO-DATI;
|003600 ELSE
|003700 MOVE 1 TO EOJ.
|003800*------------------------- LIVELLO 2 -----------------------------
|003900 INSERIMENTO-DATI.
|004000 DISPLAY "INSERISCI IL PRIMO ELEMENTO".
|004100 ACCEPT A.
|004200 DISPLAY "INSERISCI IL SECONDO ELEMENTO".
|004300 ACCEPT B.
|004400*-----------------------------------------------------------------
|004500 SOMMA.
|004600 COMPUTE B = B - 1.
|004700 COMPUTE C = C + A.
|004800*
«
83.2.5 ELM0500: 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.
Descrizione
Il calcolo viene eseguito sommando alla variabile ‘C’ la variabile ‘A’ per ‘B’ volte. Il controllo
di questa somma viene effettuato da un ciclo ‘PERFORM VARYING’ che decrementa
di una unità la variabile ‘B’, partendo dal suo valore iniziale, fino a quando si riduce a
zero, nel qual caso il ciclo si arresta.
Paragrafo ‘MAIN’
Vengono ricevuti dall’esterno i valori per le variabili ‘A’ e ‘B’ tramite il paragrafo
‘INSERIMENTO-DATI’.