MVSFORUMS.com

rakshith · Posted: Mon Dec 26, 2005 4:24 am Post subject: number is even or odd

hi all,

Is there any standard logic to determine the single digit number is even number or odd number, if it is there please post here,

thanks in advance.

rakshith

mask-of-zorro · Beginner Joined: 19 Nov 2005 Posts: 23 Topics: 10

shekar123 · Posted: Mon Dec 26, 2005 8:04 am Post subject:

rakshith,

Try this code.

Code:

WORKING-STORAGE SECTION.
01 WS-NUM PIC 9(1) VALUE ZERO.
01 WS-Q PIC 9(1) VALUE ZERO.
01 WS-R PIC 9(1) VALUE ZERO.
PROCEDURE DIVISION.
0000-MAIN.
ACCEPT WS-NUM.
DISPLAY 'WS-NUM IS ' WS-NUM.
DIVIDE WS-NUM INTO 2 GIVING WS-Q REMAINDER WS-R.
IF WS-R = 0
DISPLAY 'NUMBER IS EVEN ' WS-NUM
ELSE
DISPLAY 'NUMBER IS ODD ' WS-NUM
END-IF.

OUTPUT

Code:

WS-NUM IS 9
NUMBER IS ODD 9

_________________
Shekar
Grow Technically

iknow · Posted: Tue Jan 10, 2006 4:58 am Post subject:

Hi All,

As a follow up to the above post, Could anyone help me in finding whether the given number is odd or even without using any conditional statements.

Please help me.

kolusu · Posted: Tue Jan 10, 2006 5:06 am Post subject:

iknow · Posted: Tue Jan 10, 2006 5:29 am Post subject:

Hi Kolusu,

What I was looking for exactly is I need a logic to find out whether a given number is even or odd.

I must not use condition statements, PERFORM.

Is it possible through arrays or by looking at the LSB of the given number.

Hope I reached you.

kolusu · Posted: Tue Jan 10, 2006 5:47 am Post subject:

iknow · Posted: Tue Jan 10, 2006 6:26 am Post subject:

Hi Kolusu,

You can check the LSB manually by converting the number to Binary.

The requirement is I should not use conditional statements.

Please help me.

kolusu · Posted: Tue Jan 10, 2006 8:03 am Post subject:

iknow · Posted: Tue Jan 10, 2006 8:21 am Post subject:

Hi Kolusu,

For example,

Say number 'x' to be checked for odd or even.

Convert the 'X' to binary and check if the LSB of that number is zero then we can say that the number is even.

Say '4' to be checked.

Equivalent binary form of 4 is 100. So LSB is '0' in this case so I can say the given number is even.

Hope I reached you.

kolusu · Posted: Tue Jan 10, 2006 8:39 am Post subject:

Iknow,

*Sigh* I am still waiting to see as to how you would implement the conversion to binary and checking the least significant byte WITHOUT using conditional statements.

Kolusu

PS: If you think you are smart and prove it over here , you are knocking on the wrong door.
_________________
Kolusu
www.linkedin.com/in/kolusu

iknow · Posted: Tue Jan 10, 2006 8:43 am Post subject:

Hi Kolusu,

Do the conversion process manually.

Hope I answered your query.

Mervyn · Posted: Tue Jan 10, 2006 10:12 am Post subject:

Using shekar123's code as a basis, you could do something like this with 88 levels:

iknow · Posted: Wed Jan 11, 2006 1:21 am Post subject:

Hi All,

Here is my solution to odd or even problem without using conditional statements.

Please rate my answer.

[code:1:b1b7da0d29]WORKING-STORAGE SECTION.
01 WS-NUM PIC 9(1) VALUE ZERO.

01 WS-DISP-VAL

05 DISP-VAL PIC X(4) OCCURS 2 TIMES
.

PROCEDURE DIVISION.
0000-MAIN.
ACCEPT WS-NUM.

MOVE

Dibakar · Posted: Wed Jan 11, 2006 3:56 am Post subject:

iknow,

It seems you already knew the solution, so it would have been a good post for 'Mainframe Challenge'.

Regards,
Diba.