DECLARE FUNCTION CHECK$(N$)
CLS
INPUT " ENTER ANY WORD "; N$
P$ = N$
IF P$ = CHECK$(N$) THEN
PRINT "The given word is palindrome "
ELSE
PRINT " The given word is not palindrome"
END IF
END
FUNCTION CHECK$ (N$)
FOR I = LEN(N$) TO 1 STEP -1
B$ = MID$ (N$, I,1)
C$ = C$ + B$
NEXT I
CHECK$ = C$
END FUNCTION
Subscribe to:
Post Comments (Atom)
My Journey with JM
MY JOURNEY WITH JAGAT MANDIR It has been almost 10 years since I have entered this school. It seems like just yesterday but now I...

-
DECLARE SUB CHECK(N) CLS INPUT " ENTER THE NUMBER";N CALL CHECK(N) END SUB CHECK(N) IF N > 0 THEN PRINT "THE GIVEN...
-
DECLARE FUNCTION COUNT (N$) CLS INPUT " Enter any word ";N$ PRINT "Total no. of vowels ="; COUNT (N$) END FUNCTION...
-
My Picnic Experience We all the students of grade 10 went for picnic to Tokha. We all the students were very excited before a week ago. ...
No comments:
Post a Comment