Parte ii - IIS Marconi Latina - Area didattica

Programmare in COBOL 1021
|001900*------------------------- LIVELLO 0 -----------------------------
|002000 MAIN.
|002100 PERFORM INSERIMENTO-DATI.
|002200 PERFORM LAVORO UNTIL EOJ = 1.
|002300*
|002400 STOP RUN.
|002500*------------------------- LIVELLO 1 -----------------------------
|002600 LAVORO.
|002700 PERFORM RICERCA.
|002800 DISPLAY "LA LETTERA ", LETTERA,
|002900 " E’ NELLA POSIZIONE ", POSIZIONE.
|003000*
|003100 DISPLAY "VUOI CONTINUARE? SI O NO".
|003200 ACCEPT RISPOSTA.
|003300*
|003400 IF RISPOSTA = "SI"
|003500 THEN
|003600 PERFORM INSERIMENTO-DATI;
|003700 ELSE
|003800 MOVE 1 TO EOJ.
|003900*------------------------- LIVELLO 2 -----------------------------
|004000 INSERIMENTO-DATI.
|004100 DISPLAY "INSERISCI LA FRASE".
|004200 ACCEPT RECORD-ELEMENTI.
|004300*
|004400 DISPLAY "INSERISCI LA LETTERA DA TROVARE".
|004500 ACCEPT LETTERA.
|004600*-----------------------------------------------------------------
|004700 RICERCA.
|004800 PERFORM EXIT-PARAGRAPH
|004900 VARYING POSIZIONE FROM 1 BY 1
|005000 UNTIL POSIZIONE > 60
|005100 OR ELEMENTO(POSIZIONE) = LETTERA.
|005200*------------------------- LIVELLO 3 -----------------------------
|005300 EXIT-PARAGRAPH.
|005400 EXIT.
|005500*
83.2.11 ELM1100: ricerca sequenziale all’interno di un vettore
«
Variabili
‘RECORD-ELEMENTI’ è una variabile usata per accogliere una stringa;
‘ELEMENTO’ è un array che scompone ‘RECORD-ELEMENTI’ in caratteri singoli;
‘POSIZIONE’ è l’indice usato per scandire gli elementi della stringa;
‘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;
‘LETTERA’ è la variabile che contiene la lettera da cercare nella stringa.