Parte ii - IIS Marconi Latina - Area didattica

Programmare in COBOL 1069
|PERMUTA (LISTA, A, Z)
|
| LOCAL K INTEGER
| LOCAL N INTEGER
|
| IF (Z - A) >= 1
| # Ci sono almeno due elementi nel segmento di array.
| THEN
| FOR K := Z; K >= A; K--
|
| LISTA[K] :==: LISTA[Z]
|
| PERMUTA (LISTA, A, Z-1)
|
| LISTA[K] :==: LISTA[Z]
|
| END FOR
| ELSE
| scrivi LISTA
| END IF
|
|END PERMUTA
Per esercizio, l’algoritmo iterativo viene trasformato in modo ricorsivo:
|PERMUTA (LISTA, A, Z)
|
| LOCAL K INTEGER
| LOCAL N INTEGER
|
| SCAMBIO_CHIAMATA_SCAMBIO (LISTA, A, Z, K)
| IF K >= A
| THEN
| LISTA[K] :==: LISTA[Z]
| PERMUTA (LISTA, A, Z-1)
| LISTA[K] :==: LISTA[Z]
| SCAMBIO_CHIAMATA_SCAMBIO (LISTA, A, Z, K - 1)
| END IF
| END SCAMBIO_CHIAMATA_SCAMBIO
|
| IF Z > A
| THEN
| SCAMBIO_CHIAMATA_SCAMBIO (LISTA, A, Z, Z)
| ELSE
| scrivi LISTA
| END IF
|
|END PERMUTA
Segue l’adattamento della pseudocodifica appena mostrata, in modo da simulare la ricorsione,
utilizzando variabili globali: