View previous topic :: View next topic
|
Author |
Message |
varunkrish
New User
Joined: 25 Sep 2007 Posts: 1 Location: India
|
|
|
|
how we do palindrome program in cobol |
|
Back to top |
|
|
ashimer
Active Member
Joined: 13 Feb 2004 Posts: 551 Location: Bangalore
|
|
|
|
Code: |
01 WS-PAL PIC X(3) VALUE 'WOW'
IF WS-PAL = FUNCTION REVERSE(WS-PAL) THEN
DISPLAY ' PALINDROME'
ELSE
DISPLAY 'NOT PALINDROME'
END-IF
|
ensure you remove the trailing spaces (if at all present ) before using the function .... |
|
Back to top |
|
|
shoumitra sutradhar
New User
Joined: 22 May 2008 Posts: 3 Location: pune
|
|
|
|
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-PALIND PIC X(15).
PROCEDURE DIVISION.
MAIN-LINE.
PERFORM 0010-ACCEPT THRU 0010-EXIT.
PERFORM 0020-EVAL THRU 0020-EXIT.
STOP RUN.
0010-ACCEPT.
ACCEPT WS-PALIND.
0010-EXIT.
EXIT.
0020-EVAL.
IF WS-PALIND(1:1) = WS-PALIND(15:1)
AND WS-PALIND(2:1) = WS-PALIND(14:1)
AND WS-PALIND(3:1) = WS-PALIND(13:1)
AND WS-PALIND(4:1) = WS-PALIND(12:1)
AND WS-PALIND(5:1) = WS-PALIND(11:1)
AND WS-PALIND(6:1) = WS-PALIND(10:1)
AND WS-PALIND(7:1) = WS-PALIND(9:1)
DISPLAY ' THE WORD ENTERED IS PALINDROME: ' WS-PALIND
ELSE
DISPLAY ' THE WORD ENTERED IS NOT PALINDROME:' WS-PALIND
END-IF.
0020-EXIT.
EXIT.
------------------------------------
Hope this helps you.
Regards |
|
Back to top |
|
|
Itanium
Active User
Joined: 22 Jan 2006 Posts: 114 Location: India
|
|
|
|
shoumitra,
This will work only when a 15 Byte word is entered.
It wont work for words like wow,madam etc..
Thanks,
Sakkara |
|
Back to top |
|
|
|