Parte ii - IIS Marconi Latina - Area didattica

912 volume V Programmazione
|003600 ACCEPT COGNOME (IND-UTENTE).
|003700 DISPLAY IND-UTENTE, " INSERISCI IL NOME: ".
|003800 ACCEPT NOME (IND-UTENTE).
|003900 DISPLAY IND-UTENTE, " INSERISCI UNA NOTA DESCRITTIVA: ".
|004000 ACCEPT NOTA (IND-UTENTE).
|004100*
|004200 IF IND-UTENTE >= 60
|004300 THEN
|004400 MOVE 1 TO EOJ;
|004500 ELSE
|004600 DISPLAY "VUOI CONTINUARE? SI O NO",
|004700 ACCEPT RISPOSTA;
|004800 IF RISPOSTA = "SI"
|004900 THEN
|005000 NEXT SENTENCE;
|005100 ELSE
|005200 MOVE 1 TO EOJ.
|005300*-----------------------------------------------------------------
|005400 SCANSIONE.
|005500 DISPLAY "INSERISCI IL COGNOME DA CERCARE:".
|005600 ACCEPT RICERCA.
|005700 IF RICERCA = SPACES
|005800 THEN
|005900 MOVE 1 TO EOJ;
|006000 ELSE
|006100 SET IND-UTENTE TO 1,
|006200 SEARCH UTENTE
|006300 AT END
|006400 DISPLAY "IL COGNOME CERCATO ",
|006500 "NON SI TROVA NELLA TABELLA: ",
|006600 QUOTE RICERCA QUOTE;
|006700 WHEN COGNOME (IND-UTENTE) = RICERCA
|006800 DISPLAY "IL COGNOME ", RICERCA,
|006900 "SI TROVA NELLA POSIZIONE ",
|007000 IND-UTENTE.
|007100*
Nell’esempio sono evidenziate le righe in cui si dichiara la tabella e quelle che eseguono la
scansione. Si deve osservare che prima dell’istruzione ‘SEARCH’, l’indice deve essere collocato
manualmente nella posizione iniziale.
L’esempio seguente mostra una variante del programma già descritto, in cui si vuole eseguire
una ricerca binaria. Perché la ricerca possa avere successo, la tabella deve essere dichiarata con
una dimensione variabile di elementi, inoltre non è più necessario impostare il valore iniziale
dell’indice, prima della scansione.
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. TEST-SEARCH-KEY.
|000300 AUTHOR. DANIELE GIACOMINI.
|000400 INSTALLATION. NANOLINUX IV,
|000500 OPENCOBOL 0.31,
|000600 DATE-WRITTEN. 2005-03-12.