Parte ii - IIS Marconi Latina - Area didattica

Programmare in COBOL 1061
|007200*
|007300 PERFORM HANOI,
|007400*
|007500* pop per recuperare i valori delle variabili di scambio
|007600*
|007700 COMPUTE P2 = SAVEP2(SP),
|007800 COMPUTE N = SAVEN(SP),
|007900 COMPUTE SP = SP - 1,
|008000
|008100 DISPLAY "MUOVI L’ANELLO ", N, " DAL PIOLO ", P1,
|008200 " AL PIOLO ", P2,
|008300
|008400*
|008500* push per conservare le variabili di scambio
|008600*
|008700 COMPUTE SP = SP + 1,
|008800 COMPUTE SAVEN(SP) = N,
|008900 COMPUTE SAVEP1(SP) = P1,
|009000*
|009100* modifica dei valori delle variabili di scambio
|009200*
|009300 COMPUTE N = N - 1,
|009400 COMPUTE P1 = 6 - P1 - P2,
|009500*
|009600* chiamata della procedura
|009700*
|009800 PERFORM HANOI,
|009900*
|010000* pop per recuperare i valori delle variabili di scambio
|010100*
|010200 COMPUTE P1 = SAVEP1(SP),
|010300 COMPUTE N = SAVEN(SP),
|010400 COMPUTE SP = SP - 1.
|010500
83.4.6 Quicksort (ordinamento non decrescente)
Segue la descrizione dell’algoritmo attraverso la pseudocodifica in forma ricorsiva; si ricorda
che l’algoritmo del Quicksort si risolve con due subroutine: una serve a suddividere il vettore;
l’altra esegue le chiamate ricorsive. Nella sezione 72.5.4 viene descritto il problema del
Quicksort in modo dettagliato.
Variabile
Descrizione
| LISTA L’array da ordinare in modo crescente.
| A L’indice inferiore del segmento di array da ordinare.
| Z L’indice superiore del segmento di array da ordinare.
| CF Sta per «collocazione finale» ed è l’indice che cerca e trova la posizione giusta
di un elemento nell’array.
«