Percentage Calculations
Problem Description
Calculate percentage increase, decrease, and percentage of total.
Expected Output
Various percentage calculations
Hints
Percentage = (part / whole) * 100.
Solution
IDENTIFICATION DIVISION.
PROGRAM-ID. PERCENT.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-ORIGINAL PIC 9(5) VALUE 5000.
01 WS-NEW-VALUE PIC 9(5) VALUE 6500.
01 WS-PART PIC 9(5) VALUE 750.
01 WS-WHOLE PIC 9(5) VALUE 3000.
01 WS-PERCENT PIC 9(3)V99.
01 WS-AMOUNT PIC 9(5)V99.
01 WS-DISPLAY PIC ZZ9.99.
PROCEDURE DIVISION.
* Percentage increase
COMPUTE WS-PERCENT = ((WS-NEW-VALUE - WS-ORIGINAL)
/ WS-ORIGINAL) * 100.
MOVE WS-PERCENT TO WS-DISPLAY.
DISPLAY "PERCENTAGE INCREASE: " WS-DISPLAY "%".
* Percentage decrease (price drop)
MOVE 4000 TO WS-NEW-VALUE.
COMPUTE WS-PERCENT = ((WS-ORIGINAL - WS-NEW-VALUE)
/ WS-ORIGINAL) * 100.
MOVE WS-PERCENT TO WS-DISPLAY.
DISPLAY "PERCENTAGE DECREASE: " WS-DISPLAY "%".
* What percentage is PART of WHOLE
COMPUTE WS-PERCENT = (WS-PART / WS-WHOLE) * 100.
MOVE WS-PERCENT TO WS-DISPLAY.
DISPLAY "PART OF WHOLE: " WS-DISPLAY "%".
* Calculate X% of a number
COMPUTE WS-AMOUNT = WS-ORIGINAL * 0.15.
DISPLAY "15% OF 5000: " WS-AMOUNT.
STOP RUN.
Explanation:
Use COMPUTE for percentage formulas. Divide by original, multiply by 100.