WORKING-STORAGE SECTION. 01 COUNTER

write a cobol program to display prime numbers between 1 to 100?

Question Posted / amit mahajan

5 Answers
30548 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

Please Help Members By Posting Answers For Below Questions

Explain the input procedure and output procedure?

906

Explain the difference between section, paragraph and sentences?

971

What are fillers?

1029

What is sort? And its syntax?

1035

What is perform?

1087

Explain the difference between comp & comp-3?

953

seqence numbers in cobol

3114

Explain the syntax of redefine?

908

Define redefine and its syntax?

966

What is comp?

1144

What is redefine?

1216

Define perform? And its types?

979

Define sort?

1165

How to detect record is locked in cobol/400?

970

Explain the types of perform?

1007