Grade Calculator
Problem Description
Accept marks (0-100) and display grade: A(90+), B(80-89), C(70-79), D(60-69), F(<60).
Expected Output
Input: 85 -> Output: GRADE: B
Hints
Use EVALUATE for clean multiple conditions.
Solution
IDENTIFICATION DIVISION.
PROGRAM-ID. GRADES.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-MARKS PIC 9(3).
01 WS-GRADE PIC X(1).
PROCEDURE DIVISION.
DISPLAY "ENTER MARKS (0-100): ".
ACCEPT WS-MARKS.
EVALUATE TRUE
WHEN WS-MARKS >= 90 MOVE "A" TO WS-GRADE
WHEN WS-MARKS >= 80 MOVE "B" TO WS-GRADE
WHEN WS-MARKS >= 70 MOVE "C" TO WS-GRADE
WHEN WS-MARKS >= 60 MOVE "D" TO WS-GRADE
WHEN OTHER MOVE "F" TO WS-GRADE
END-EVALUATE.
DISPLAY "GRADE: " WS-GRADE.
STOP RUN.
Explanation:
EVALUATE TRUE checks conditions in order. WHEN OTHER is the default.