Parte ii - IIS Marconi Latina - Area didattica
Parte ii - IIS Marconi Latina - Area didattica
Parte ii - IIS Marconi Latina - Area didattica
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Programmare in COBOL 1067<br />
|008900 OR I = C-F.<br />
|009000<br />
|009100 PERFORM SPOSTA-C-F-A-SINISTRA<br />
|009200 UNTIL TABELLA(C-F) < TABELLA(A)<br />
|009300 OR TABELLA(C-F) = TABELLA(A).<br />
|009400<br />
|009500<br />
|009600 PART-MAINLOOP.<br />
|009700<br />
|009800 MOVE TABELLA(C-F) TO TEMP.<br />
|009900 MOVE TABELLA(I) TO TABELLA(C-F).<br />
|010000 MOVE TEMP TO TABELLA(I).<br />
|010100<br />
|010200 COMPUTE I = I + 1.<br />
|010300 COMPUTE C-F = C-F - 1.<br />
|010400<br />
|010500 PERFORM SPOSTA-I-A-DESTRA UNTIL TABELLA(I) > TABELLA(A)<br />
|010600 OR I > C-F<br />
|010700 OR I = C-F.<br />
|010800<br />
|010900 PERFORM SPOSTA-C-F-A-SINISTRA<br />
|011000 UNTIL TABELLA(C-F) < TABELLA(A)<br />
|011100 OR TABELLA(C-F) = TABELLA(A).<br />
|011200<br />
|011300<br />
|011400 SPOSTA-I-A-DESTRA.<br />
|011500<br />
|011600 COMPUTE I = I + 1.<br />
|011700<br />
|011800<br />
|011900 SPOSTA-C-F-A-SINISTRA.<br />
|012000<br />
|012100 COMPUTE C-F = C-F - 1.<br />
|012200<br />
|012300<br />
|012400 QSORT.<br />
|012500<br />
|012600 IF Z > A<br />
|012700 THEN<br />
|012800*<br />
|012900* le variabili che riguardano PART sono tutte in I-O<br />
|013000*<br />
|013100 PERFORM PART,<br />
|013200*<br />
|013300* push<br />
|013400*<br />
|013500 COMPUTE SP = SP + 1,<br />
|013600 COMPUTE SAVEZ(SP) = Z,<br />
|013700*<br />
|013800* cambiamenti alle variabili di scambio<br />
|013900*<br />
|014000 COMPUTE Z = C-F - 1,<br />
|014100*
Change language