Parte ii - IIS Marconi Latina - Area didattica

1070 volume V Programmazione
| SAVEZ È il vettore utilizzato per conservare il valore di ‘Z’.
| SAVEK È il vettore utilizzato per conservare il valore di ‘K’.
| SP È l’indice dei vettori usati per salvare i valori (stack pointer).
Variabile
Descrizione
|PERMUTA (LISTA, A, Z)
|
| SCAMBIO_CHIAMATA_SCAMBIO
| IF K >= A
| THEN
| LISTA[K] :==: LISTA[Z]
| SP := SP + 1
| SAVEZ(SP) := Z
| Z := Z - 1
| PERMUTA
| Z := SAVEZ(SP)
| SP := SP - 1
| LISTA[K] :==: LISTA[Z]
| SP := SP + 1
| SAVEK(SP) := K
| K := K - 1
| SCAMBIO_CHIAMATA_SCAMBIO
| K := SAVEK(SP)
| SP := SP - 1
| END IF
| END SCAMBIO_CHIAMATA_SCAMBIO
|
| IF Z > A
| THEN
| SP := SP + 1
| SAVEK(SP) := K
| K := N
| SCAMBIO_CHIAMATA_SCAMBIO
| K := SAVEK(SP)
| SP := SP - 1
| ELSE
| scrivi LISTA
| END IF
|END PERMUTA
|Listato 83.57. Soluzione in COBOL del problema delle permutazioni, con la simulazione
della ricorsione. Una copia di questo file dovrebbe essere disponibile presso 〈allegati/cobol/
HC07.cob 〉.
|000600 IDENTIFICATION DIVISION.
|000700 PROGRAM-ID. HC07.
|000800 AUTHOR. DANIELE GIACOMINI.
|000900 DATE-WRITTEN. 1985-06-19.
|001000