Interested to Buy Any Domain ? << Click Here >> for more details...
write a cobol program to display prime numbers between 1 to 100?
- 5 Answers
- 30585 Views
- Cap Gemini, NISA, I also Faced
- E-Mail Answers
Answer Posted / amit mahajan
WORKING-STORAGE SECTION.
01 COUNTER PIC 99 VALUE ZEROES.
01 MAXLIMIT PIC 999 VALUE 100.
01 REM PIC 99 VALUE ZEROES.
01 QNT PIC 99 VALUE ZEROES.
01 NUM PIC 99 VALUE ZEROES.
01 I PIC 99.
PROCEDURE DIVISION.
PERFORM VARYING COUNTER FROM 2 BY 1 UNTIL COUNTER>=MAXLIMIT
MOVE 0 TO I
PERFORM VARYING NUM FROM 1 BY 1 UNTIL NUM > COUNTER
DIVIDE NUM INTO COUNTER GIVING QNT REMAINDER REM
IF REM=0
ADD 1 TO I
END-IF
END-PERFORM
IF I=2
DISPLAY COUNTER
END-IF
END-PERFORM
GOBACK.
| Is This Answer Correct ? | 6 Yes | 4 No |
Post New Answer View All Answers
What is sort?
Explain how to convert 2010/02/11 to m/dd/yyy.. With string and without string if any other method... Code?
why icetool be used in programmer view?
How to detect record is locked in cobol/400? What is the solution for that?
How to update data area in cobol 400 program?
What is perform?
What are fillers?
Define redefine?
Define redefine and its syntax?
Explain the difference between search and searchall?
Explain the difference between section, paragraph and sentences?
What is output procedure?
What is the syntax of sort?
What is redefine?
What is the actual use of fillers?
