Home  
About LSP  
LSP 4 BCA  
LSP 4 MCA  
LSP 4 MBA  
LSP 4 Biotechnology  
LSP 4 BSc-Electronics  
LSP 4 BBA  
LSP 4 BCom  
 
Seminar Titles  
Videos  
 
     
 
     
sign in
  
   
 
 
 
   
  COBOL TUTORIAL FOR BCA STUDENTS OF M G UNIVERSITY  
  LAB EXCERCISES AND SOLUTIONS (CYCLE -I)  
   
  Write a COBOL program to read a set of N integers and to calculate the number of numbers divisible by 9 and not divisible by 5 and their Sum.  
   
  
                        
       IDENTIFICATION DIVISION.
       PROGRAM-ID. DIVISIBLE-BY9-NOTBY5.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER.
       OBJECT-COMPUTER.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  N      PIC 9(3).
       01  NUM    PIC 9(3).
       01  DIV9   PIC 9(3).
       01  DIV5   PIC 9(3).
       01  SUM    PIC 9(5) VALUE IS 0.
       01  CNT    PIC 9(3) VALUE IS 0.
       01  E-SUM  PIC Z(4)9.
       01  E-CNT  PIC ZZ9.
       01  REM9   PIC 9.
       01  REM5   PIC 9.
       PROCEDURE DIVISION.
       MAIN-PARA.
           DISPLAY (01 01) ERASE.
           DISPLAY (02 01) "Enter the No. of Integers : ".
           ACCEPT (02 29) N.
           DISPLAY (03 01) "Enter the Numbers".
           DISPLAY (04 01) "-----------------".
           DISPLAY (05 01) " ".
           PERFORM PROCESS-PARA N TIMES.
           MOVE CNT TO E-CNT.
           MOVE SUM TO E-SUM.
           DISPLAY "----------------------------------------------".
           DISPLAY "Total No. of Integers divisible by 9".
           DISPLAY "                & not divisible by 5 : " E-CNT.
           DISPLAY "                Sum of these Numbers : " E-SUM.
           DISPLAY "==============================================".
           STOP RUN.
       PROCESS-PARA.
           ACCEPT NUM.
           DIVIDE NUM BY 9 GIVING DIV9 REMAINDER REM9.
           DIVIDE NUM BY 5 GIVING DIV5 REMAINDER REM5.
           IF REM9 = 0 AND REM5 NOT= 0
              COMPUTE SUM = SUM + NUM
              COMPUTE CNT = CNT + 1.