LSP_COBOL_Tutorial for BCA Students of M G University

COBOL TUTORIAL FOR BCA STUDENTS OF M G UNIVERSITY

LAB EXCERCISES AND SOLUTIONS (CYCLE -I)

Write a COBOL program to find the number of odd numbers, number of even numbers, sum of odd numbers, sum of even numbers and the total sum of numbers from a given set of numbers according to the users choice.

                        
       IDENTIFICATION DIVISION.
       PROGRAM-ID. SUM-OF-EVEN-ODD-NUMBERS.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER.
       OBJECT-COMPUTER.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  N         PIC 9(3).
       01  NUM       PIC 9(3).
       01  DIV       PIC 9(3).
       01  REM       PIC 9.
       01  OPTION    PIC 9    VALUE IS 0.
       01  N-ODD     PIC 9(3) VALUE IS 0.
       01  N-EVEN    PIC 9(3) VALUE IS 0.
       01  S-ODD     PIC 9(5) VALUE IS 0.
       01  S-EVEN    PIC 9(5) VALUE IS 0.
       01  S-ALL     PIC 9(5) VALUE IS 0.
       01  PAUSE     PIC X.
       PROCEDURE DIVISION.
       MAIN-PARA.
           DISPLAY (01 01) ERASE.
           DISPLAY "Enter the No. of Integers : ".
           ACCEPT N.
           DISPLAY "Enter the Numbers".
           DISPLAY "-----------------".
           PERFORM PROCESS-PARA N TIMES.
           PERFORM OPTION-PARA UNTIL OPTION = 6.
           STOP RUN.
       PROCESS-PARA.
           ACCEPT NUM.
           DIVIDE NUM BY 2 GIVING DIV REMAINDER REM.
           IF REM = 0
              COMPUTE N-EVEN = N-EVEN + 1
              COMPUTE S-EVEN = S-EVEN + NUM
           ELSE
              COMPUTE N-ODD = N-ODD + 1
              COMPUTE S-ODD = S-ODD + NUM.
           COMPUTE S-ALL = S-ALL + NUM.
       OPTION-PARA.
           DISPLAY (01 01) ERASE.
           DISPLAY (01 10) "------------------------".
           DISPLAY (02 10) "          MENU ".
           DISPLAY (03 10) "------------------------".
           DISPLAY (04 10) "1 -> No. of Odd Numbers".
           DISPLAY (05 10) "2 -> No. of Even Numbers".
           DISPLAY (06 10) "3 -> Sum of Odd Numbers".
           DISPLAY (07 10) "4 -> Sum of Even Numbers".
           DISPLAY (08 10) "5 -> Sum of All Numbers".
           DISPLAY (09 10) "6 -> Exit".
           DISPLAY (10 10) "------------------------".
           DISPLAY (11 10) "Enter Your Option : ".
           DISPLAY (12 10) "========================".
           ACCEPT (11 30) OPTION.
           IF OPTION = 1
             DISPLAY (13 10) "No. of Odd Numbers : " N-ODD
           ELSE
             IF OPTION = 2
               DISPLAY (13 10) "No. of Even Numbers : " N-EVEN
             ELSE
               IF OPTION = 3
                 DISPLAY (13 10) "Sum of Odd Numbers : " S-ODD
               ELSE
                 IF OPTION = 4
                   DISPLAY (13 10) "Sum of Even Numbers : " S-EVEN
                 ELSE
                   IF OPTION = 5
                     DISPLAY (13 10) "Sum of All Numbers : " S-ALL
                   ELSE
                     IF OPTION = 6
                       DISPLAY (13 10) "End of the Program"
                     ELSE
                       DISPLAY (13 10) "Error in Option".
           ACCEPT PAUSE.

COBOL TUTOR - Home