Calculate Average
Problem Description
Accept 5 numbers and calculate their average.
Expected Output
Enter 5 numbers, display average
Hints
Use COMPUTE for division.
Solution
IDENTIFICATION DIVISION.
PROGRAM-ID. AVERAGE.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NUM PIC 9(3).
01 WS-TOTAL PIC 9(5) VALUE 0.
01 WS-AVG PIC 9(3)V99.
01 WS-COUNT PIC 9 VALUE 0.
PROCEDURE DIVISION.
PERFORM 5 TIMES
ADD 1 TO WS-COUNT
DISPLAY "ENTER NUMBER " WS-COUNT ": "
ACCEPT WS-NUM
ADD WS-NUM TO WS-TOTAL
END-PERFORM.
COMPUTE WS-AVG = WS-TOTAL / 5.
DISPLAY "AVERAGE = " WS-AVG.
STOP RUN.
Explanation:
PERFORM n TIMES executes block n times. V indicates decimal position.