| |
|
|
|
|
ravichandran
|
Open Question |
Oct 26, 2006, 10:58 pm |
| simple sort progam in cobol |
| sort 5 numbers (suffle) arrange the numbers in a sorted format |
|
|
|
|
|
|
|
| |
|
|
|
|
| |
|
|
Answers (1) |
ravichandran
|
Oct 30, 2006,6:30 am
IDENTIFICATION DIVISION.
<br> PROGRAM-ID. OCC.
<br> DATA DIVISION.
<br> WORKING-STORAGE SECTION.
<br> 01 TA.
<br> 02 A PIC 9(3) OCCURS 5 TIMES INDEXED BY I.
<br> 77 J PIC 9 VALUE 1.
<br> 77 K PIC 9.
<br> 77 TEMP PIC 9(3).
<br> PROCEDURE DIVISION.
<br> START-PARA.
<br> SET I TO 1.
<br> PERFORM P0 UNTIL I > 5.
<br> PERFORM P1 UNTIL J > 4.
<br> SET I TO 1.
<br> PERFORM P3 UNTIL I > 5.
<br> STOP RUN.
<br> P0.
<br> ACCEPT A ( I ).
<br> SET I UP BY 1.
<br> P1.
<br> COMPUTE K = J + 1.
<br> PERFORM P2 UNTIL K > 5
<br> COMPUTE J = J + 1.
<br> P2.
<br> IF A(J) > A(K)
<br> MOVE A(J) TO TEMP
<br> MOVE A(K) TO A(J)
<br> MOVE TEMP TO A(K).
<br> COMPUTE K = K + 1.
<br> P3.
<br> DISPLAY A(I).
<br> SET I UP BY 1.
<br> |
|
|
| |
|
| |
|
|
