Parte ii - IIS Marconi Latina - Area didattica

Programmare in COBOL 1023
|001000 WORKING-STORAGE SECTION.
|001100 01 RECORD-ELEMENTI.
|001200 02 ELEMENTO PIC X OCCURS 60 TIMES.
|001300 01 POSIZIONE PIC 99.
|001400 01 EOJ PIC 9 VALUE ZERO.
|001500 01 RISPOSTA PIC XX.
|001600 01 LETTERA PIC X.
|001700*
|001800 PROCEDURE DIVISION.
|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*
|002900 IF POSIZIONE < 61
|003000 THEN
|003100 DISPLAY "LA LETTERA ", LETTERA,
|003200 " E’ NELLA POSIZIONE ", POSIZIONE;
|003300 ELSE
|003400 DISPLAY "LA LETTERA ", LETTERA,
|003500 " NON E’ CONTENUTA NELLA FRASE".
|003600*
|003700 DISPLAY "VUOI CONTINUARE? SI O NO".
|003800 ACCEPT RISPOSTA.
|003900*
|004000 IF RISPOSTA = "SI"
|004100 THEN
|004200 PERFORM INSERIMENTO-DATI;
|004300 ELSE
|004400 MOVE 1 TO EOJ.
|004500*------------------------- LIVELLO 2 -----------------------------
|004600 INSERIMENTO-DATI.
|004700 DISPLAY "INSERISCI LA FRASE".
|004800 ACCEPT RECORD-ELEMENTI.
|004900*
|005000 DISPLAY "INSERISCI LA LETTERA DA TROVARE".
|005100 ACCEPT LETTERA.
|005200*-----------------------------------------------------------------
|005300 RICERCA.
|005400 PERFORM EXIT-PARAGRAPH
|005500 VARYING POSIZIONE FROM 1 BY 1
|005600 UNTIL POSIZIONE > 60
|005700 OR ELEMENTO(POSIZIONE) = LETTERA.
|005800*------------------------- LIVELLO 3 -----------------------------
|005900 EXIT-PARAGRAPH.
|006000 EXIT.
|006100*