Parte ii - IIS Marconi Latina - Area didattica

1072 volume V Programmazione
|006400
|006500 IF Z > A
|006600 THEN
|006700*
|006800* push
|006900*
|007000 COMPUTE SP = SP + 1,
|007100 COMPUTE SAVEK(SP) = K,
|007200*
|007300* chiamata
|007400*
|007500 COMPUTE K = Z,
|007600 PERFORM SCAMBIO-CHIAMATA-SCAMBIO,
|007700*
|007800* pop
|007900*
|008000 COMPUTE K = SAVEK(SP),
|008100 COMPUTE SP = SP - 1,
|008200
|008300 ELSE
|008400
|008500 DISPLAY RECORD-LISTA.
|008600
|008700
|008800 SCAMBIO-CHIAMATA-SCAMBIO.
|008900
|009000 IF K >= A
|009100 THEN
|009200*
|009300* scambio di LISTA(K) con LISTA(Z)
|009400*
|009500 MOVE LISTA(K) TO TEMP,
|009600 MOVE LISTA(Z) TO LISTA (K),
|009700 MOVE TEMP TO LISTA (Z),
|009800*
|009900* push
|010000*
|010100 COMPUTE SP = SP + 1,
|010200 COMPUTE SAVEZ(SP) = Z,
|010300*
|010400* chiamata
|010500*
|010600 COMPUTE Z = Z - 1,
|010700 PERFORM PERMUTA,
|010800*
|010900* pop
|011000*
|011100 COMPUTE Z = SAVEZ(SP),
|011200 COMPUTE SP = SP - 1,
|011300*
|011400* scambio di LISTA(K) con LISTA(Z)
|011500*
|011600 MOVE LISTA(K) TO TEMP,