write a cobol program to display prime numbers between 1 to 100?
Answer Posted / surya
IDENTIFICATION DIVISION.
PROGRAM-ID. PRIME.
AUTHOR. SURYA.
INSTALLATION. PEARSON-PVT-LTD.
DATE-WRITTEN. 20/01/2016.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
OBJECT-COMPUTER. IBM-AS400.
SOURCE-COMPUTER. IBM-AS400.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 INP-VAL PIC 9(3).
01 WRK-VAL PIC 9(3).
01 I PIC 9(3).
01 QUT PIC 9(2).
01 QUT1 PIC 9(2).
01 REM PIC 9(2).
01 FLAG PIC X(1).
PROCEDURE DIVISION.
STEP-1.
MOVE 40 TO INP-VAL.
DISPLAY "Please find the prime numbers below:".
IF INP-VAL > 2 THEN DISPLAY "02".
PERFORM STEP-2 VARYING WRK-VAL FROM 3 BY 1 UNTIL WRK-VAL > INP-VAL.
STOP RUN.
STEP-2.
MOVE "Y" TO FLAG.
INITIALIZE REM, QUT, QUT1.
DIVIDE WRK-VAL BY 2 GIVING QUT.
PERFORM STEP-3 VARYING I FROM 2 BY 1 UNTIL I > QUT.
IF FLAG = 'Y' THEN DISPLAY WRK-VAL.
STEP-3.
INITIALIZE REM, QUT1.
DIVIDE WRK-VAL BY I GIVING QUT1 REMAINDER REM.
IF REM = 0 THEN MOVE "N" TO FLAG.
Is This Answer Correct ? | 7 Yes | 2 No |
Post New Answer View All Answers
How to update data area in cobol 400 program?
Explain the difference between search and searchall?
What is input procedure?
Explain the difference between section, paragraph and sentences?
seqence numbers in cobol
Define perform?
How to detect record is locked in cobol/400? What is the solution for that?
What is sort? And its syntax?
Define perform? And its types?
Explain how to convert 2010/02/11 to m/dd/yyy.. With string and without string if any other method... Code?
Explain the syntax of redefine?
Explain the types of perform?
What is redefine?
Explain the input procedure?
What is the actual use of fillers?