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 generate first N Fibanocci Numbers.  
   
  
                        
       IDENTIFICATION DIVISION.
       PROGRAM-ID. FIBANOCCI-SERIES.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER.
       OBJECT-COMPUTER.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  N     PIC 999.
       01  FST   PIC S999 VALUE -1.
       01  SCD   PIC 999 VALUE  1.
       01  THD   PIC 999.
       01  E-THD PIC ZZ9.
       PROCEDURE DIVISION.
       MAIN-PARA.
           DISPLAY "Enter the Numbers in the Series".
           ACCEPT N.
           DISPLAY "FIBANOCCI SERIES".
           DISPLAY "----------------".
           PERFORM PROCESS-PARA N TIMES.
           DISPLAY "----------------".
           DISPLAY " ".
           STOP RUN.
       PROCESS-PARA.
           COMPUTE THD = FST + SCD.
           MOVE THD TO E-THD.
           DISPLAY E-THD.
           MOVE SCD TO FST.
           MOVE THD TO SCD.