‎2007 Jul 18 8:21 AM
HI,I WOULD LIKE TO KNOW HOW TO FRAME A PROGRAM IN ABAP FOR PRINTING THE PRIME NUMBERS BETWEEN 1-100 USING THE SIMPLE WHILE LOOP..PLS HELP ME
‎2007 Jul 18 8:25 AM
Report YXYZ.
data : j type i value 1.
data : n type i value 100.
data : cnt type i.
data : n1 type i.
data : ans type i.
while j <= n.
n1 = j.
clear cnt.
while n1 <> 0.
ans = j mod n1.
if ans = 0.
cnt = cnt + 1.
endif.
n1 = n1 - 1.
endwhile.
if cnt = 2 or cnt = 1.
write 😕 j.
endif.
j = j + 1.
endwhile.
‎2007 Jul 18 8:44 AM
CAN U ALSO PROVIDE ME THE EXPLANATION FOR THE ABOVE MENTIONED PROGRAM?????PLS ...THANK U
‎2007 Jul 18 9:03 AM
HEY PLS SUMIVASU CAN U PROVIDE ME THE EXPLANATION FOR THIS PROGRAM..I WAS GETTING CONFUSED AS TO WHY DID U PROVIDE THE FUNCTION JMODN1..PLS PROVIDE ME THE EXPLANATION..IT IS VERY NECESSARY FOR ME
‎2007 Jul 18 8:54 AM
‎2007 Jul 18 11:36 AM
Hi,
Use this code to get prime numbers upto 100 numbers.
&----
*& Report ZPRIME
*&
&----
*&
*&
&----
REPORT ZPRIME.
PARAMETERS: LIMIT TYPE I.
DATA: GET TYPE I,
I TYPE I,
PRIME TYPE I,
COUNT TYPE I VALUE 1,
FLAG TYPE I.
DO LIMIT TIMES.
FLAG = 0.
COUNT = COUNT + 1.
GET = COUNT.
I = 2.
IF GET <> 2.
WHILE GET > I .
PRIME = GET MOD I.
I = I + 1.
IF PRIME = 0.
FLAG = 1.
ENDIF.
ENDWHILE.
IF FLAG = 0.
WRITE:/ GET.
ENDIF.
ENDIF.
ENDDO.
IF USEFULL REWARD