Parte ii - IIS Marconi Latina - Area didattica

1012 volume V Programmazione
|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 C = C + A.
|004700*
«
83.2.6 ELM0600: inserimento dati in un vettore
Variabili
‘RECORD-ELEMENTI’ è una variabile che si scompone in un array;
‘ELEMENTO’ è l’array che costituisce ‘RECORD-ELEMENTI’;
‘INDICE’ è l’indice usato per scandire gli elementi;
‘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 programma esegue semplicemente un inserimento di dati all’interno degli elementi
dell’array, con un accesso libero (bisogna ricordare che l’indice del primo elemento è
uno), specificando prima l’indice e poi il valore (il carattere) da attribuire all’elemento.
Paragrafo ‘MAIN’
Viene eseguito una volta il paragrafo ‘INSERIMENTO-INDICE’, che serve a ricevere il
valore dell’indice di inserimento dall’utente.
Viene eseguito il paragrafo ‘LAVORO’ ripetutamente, terminando il ciclo quando la
variabile ‘EOJ’ contiene il valore uno.
Viene visualizzato il valore di tutta la variabile ‘RECORD-ELEMENTI’, attraverso
l’istruzione ‘DISPLAY’.
Il programma si arresta perché incontra l’istruzione ‘STOP RUN’.
Paragrafo ‘LAVORO’
Il programma riceve dall’esterno il valore per ‘ELEMENTO(INDICE)’.
Il programma riceve dall’esterno l’assenso o il dissenso riguardo alla continuazione
dell’esecuzione; se l’intenzione è di proseguire, viene eseguito il paragrafo
‘INSERIMENTO-INDICE’, altrimenti viene messo il valore uno nella variabile ‘EOJ’.