Email is:
(none)
SUBJECT: HELP ME DO THIS PROBLEM
DATE: 11-6-2002 9:02pm
Written by:
yochatwitme@yahoo.com
PALINDROME PROGRAM
CLS DIM WordFront$(40),WordBack$(40) INPUT"YOUR WORD:" ;Word$ WordFront$ = Word$ FOR Scan = LEN(WordFront$) TO 1 STEP -1 WordBack$ = WordBack$ + MID$(Word$,Scan,1) NEXT PRINT PRINT WordFront$, WordBack$ IF WordFront$ = WordBack$ THEN PRINT "That word is a palindrome" ELSE PRINT "Sorry, that is not a palindrome" END IF
Return to QBASIC MESSAGE BOARD