Tuesday, 15 July 2014

COBOL program to display prime numbers between the limits

       IDENTIFICATION DIVISION.
       PROGRAM-ID. PRIME.
       ENVIRONMENT DIVISION.
       DATA DIVISION.

       WORKING-STORAGE SECTION.
       01 M PIC 9(3).
       01 N PIC 999.
       01 FLAG PIC 9(2).
       01 REM PIC 9(2).
       01 RES PIC 9(3).
       01 I PIC 9(3).
       01 J PIC 999.
       PROCEDURE DIVISION.
       AC-PARA.
           DISPLAY " ENTER THE VALUE OF M ".
           ACCEPT M.
           DISPLAY " ENTER THE VALUE OF N ".
           ACCEPT N.
           IF (M > N)
                DISPLAY "INVALID RANGE!..."
                GO TO AC-PARA.
       P1.  
           DISPLAY " PRIME NUMBERS BETWEEN " , M , " AND " , N , " ARE ".
           IF M < 2  COMPUTE M = 2.
           PERFORM P2 VARYING I FROM M BY 1 UNTIL I > N.
           STOP RUN.                                                  
       P2.
           MOVE 0 TO FLAG.
           PERFORM P3 VARYING J FROM 2 BY 1 UNTIL J > I - 1.
           IF FLAG = 0  DISPLAY J.
         
       P3.
           DIVIDE I BY J GIVING RES REMAINDER REM.
           IF REM = 0 MOVE I TO FLAG.
         



No comments:

Post a Comment