Parte ii - IIS Marconi Latina - Area didattica

Programmare in COBOL 1019
|002800 PERFORM RICERCA.
|002900 DISPLAY "LA LETTERA ", LETTERA,
|003000 " E’ NELLA POSIZIONE ", POSIZIONE.
|003100*
|003200 DISPLAY "VUOI CONTINUARE? SI O NO".
|003300 ACCEPT RISPOSTA.
|003400*
|003500 IF RISPOSTA = "SI"
|003600 THEN
|003700 PERFORM INSERIMENTO-DATI;
|003800 ELSE
|003900 MOVE 1 TO EOJ.
|004000*------------------------- LIVELLO 2 -----------------------------
|004100 INSERIMENTO-DATI.
|004200 DISPLAY "INSERISCI LA FRASE".
|004300 ACCEPT RECORD-ELEMENTI.
|004400*
|004500 DISPLAY "INSERISCI LA LETTERA DA TROVARE".
|004600 ACCEPT LETTERA.
|004700*-----------------------------------------------------------------
|004800 RICERCA.
|004900 PERFORM EXIT-PARAGRAPH
|005000 VARYING POSIZIONE FROM 1 BY 1
|005100 UNTIL ELEMENTO(POSIZIONE) = LETTERA.
|005200*------------------------- LIVELLO 3 -----------------------------
|005300 EXIT-PARAGRAPH.
|005400 EXIT.
|005500*
83.2.10 ELM1000: 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.
Descrizione
Il programma riceve dall’esterno il contenuto di una stringa e di una lettera che dovrebbe
essere contenuta nella stringa stessa; successivamente il programma scandisce la stringa
come vettore di caratteri e individua la prima posizione in cui appare la lettera cercata.
Rispetto a ‘ELM0900’ la scansione della stringa si arresta anche se non viene trovata
alcuna corrispondenza.