SIMPLE COBOL PROGRAM TO FIND OUT THE STUDENT TOTAL AND GRADES

     
/*COBOL  PROGRAM TO FIND OUT STUDENT GRADES. */

       IDENTIFICATION DIVISION.
       PROGRAM-ID STUDENTGRADE.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
           77 M1 PIC 9(2).
           77 M2 PIC 9(2).
           77 M3 PIC 9(2).
           77 TOTAL PIC 9(4).
       88 FIRST1 VALUE 180 THRU 300.
       88 SECOND VALUE 150 THRU 179.
       88 THIRD VALUE 120 THRU 149.
       88 FAIL VALUE 0 THRU 119.
       PROCEDURE DIVISION.
       PARA.
           DISPLAY 'ENTER STUDENTMARKS'.
           ACCEPT M1.
           ACCEPT M2.
           ACCEPT M3.
           COMPUTE TOTAL = M1 + M2 + M3.
           DISPLAY TOTAL.
           IF FIRST1
           DISPLAY 'A GRADE'
           ELSE
           IF SECOND
           DISPLAY 'B GRADE'
           ELSE
           IF THIRD
           DISPLAY 'C GRADE'
           ELSE
           DISPLAY 'FAIL'
           STOP RUN.  



OUTPUT:

ENTER STUDENT MARKS

45

55

65

0165

B GRADE