Question

WRITE A PROGRAM AND FIND IT IS PALINDROME OR NOT USING QBASIC USING FOR LOOP

Answer 1

Answer:

FIND IT IS PALINDROME OR NOT USING QBASIC USING FOR

Explanation:

Mark as Branliest Answer please

Answer 2

≡Menu
theinfozones.com



A Program To Check The Word Palindrome Or Not (Qbasic)
When user inputs the word using same case only (i.e.uppercase or lowercase)
CLS
INPUT "Enter a word:"; w$
FOR i = LEN(w$) TO 1 STEP -1
m$ = MID$(w$, i, 1)
rev$ = rev$ + m$
NEXT i
PRINT
PRINT "The original word is "; w$
PRINT "The reverse wod is "; rev$
PRINT
IF w$ = rev$ THEN
PRINT "The given word is palindrome"
ELSE
PRINT "The given word is not palindrome"
END IF
END

When user inputs the word using uppercase and lowercase letters.
CLS
INPUT "Enter a word: "; w$
FOR i = LEN(w$) TO 1 STEP -1
rev$ = rev$ + MID$(w$, i, 1)
NEXT i
PRINT
PRINT "The original word is "; LCASE$(w$)
PRINT "The reverse word is "; LCASE$(rev$)
PRINT
IF LCASE$(w$) = LCASE$(rev$) THEN
PRINT "The word is a palindrome"
ELSE
PRINT "The word is not a palindrome"
END IF
END

Using SUB procedure
DECLAREe sub palindrome(w$)
CLS
INPUT "Enter a word"; w$
CALL palindrome(w$)
END

SUB palindrome (w$)
FOR i = LEN(w$) TO 1 STEP -1
rev$ = rev$ + MID$(w$, i, 1)
NEXT i
IF rev$ = w$ THEN
PRINT "The given word is palindrome"
ELSE
PRINT "The given word is not palindrome"
END IF
END SUB

Using FUNCTION procedure
DECLARE FUNCTION palindrome$ (w$)
CLS
INPUT "Enter any word"; w$
a$ = w$
IF a$ = palindrome$(w$) THEN
PRINT w$; " is palindrome word";
ELSE
PRINT w$; " is not palindrome word";
END IF

FUNCTION palindrome$ (w$)
FOR i = LEN(w$) TO 1 STEP -1
rev$ = rev$ + MID$(w$, i, 1)
NEXT i
palindrome$ = rev$
END FUNCTION