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.
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