1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
| ******************************************************************
* Author:
* Date:
* Purpose:
* Tectonics: cobc
******************************************************************
IDENTIFICATION DIVISION.
PROGRAM-ID. YOUR-PROGRAM-NAME.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 I PIC 99.
01 MAX PIC 99 VALUE 10.
01 MOY PIC 9(5)V99.
01 SOMME PIC 9(5).
01 TAB1.
02 TAB2 PIC 99 OCCURS 100.
PROCEDURE DIVISION.
PERFORM INITIALISATION.
PERFORM TRAITEMENT.
PERFORM FIN-TRAITEMENT.
INITIALISATION.
MOVE 0 TO I
MOY
SOMME .
INITIALISE TAB1.
TRAITEMENT.
PERFORM VARYING I FROM 1 BY 1 UNTIL I > MAX
DISPLAY "DONNER LES NUMERO"
ACCEPT TAB2(I)
COMPUTE SOMME = SOMME + TAB2(I)
END-PERFORM.
COMPUTE MOY = (SOMME / MAX ).
FIN-TRAITEMENT.
DISPLAY "LA MOYENNE EST := " SPACE MOY
STOP RUN.
END PROGRAM YOUR-PROGRAM-NAME. |