CLS
PRINT "ROCHANA"
INPUT "ENTER ANY STRING";A$
FOR I LEN(A$) TO 1 STEP -1
B$=MID$(A$,I,1)
C$=C$+B$
NEXT I
PRINT "REVERSE STRING=";C$
END
ii) To check the given string is palindrome or not.
CLS
PRINT "ROCHANA"
INPUT "ENTER ANY STRING";A$
FOR I LEN(A$) TO 1 STEP -1
B$=MID$(A$,I,1)
C$=C$+B$
NEXT I
IF A$=C$ THEN
PRINT "THE GIVEN STRING IS PALINDROME"
ELSE
PRINT "THE GIVEN STRING IS NOT PALINDROME"
END IF
END
iii) To display the shortest string among 3 different string.
CLS
INPUT "ENTER FIRST STRING";A$
INPUT "ENTER SECOND STRING";B$
INPUT "ENTER THIRD STRING";C$
IF LEN(A$) < LEN(B$) and LEN(A$) < LEN(C$) THEN
PRINT A$;"IS THE SHORTEST STRING"
ELSEIF LEN(B$) < LEN(A$) and LEN(B$) < LEN(C$) THEN
PRINT B$;"IS THE SHORTEST STRING"
ELSE
PRINT C$;"IS THE SHORTEST STRING"
END IF
END
.
iv) To input any string and display it in alternate case.
CLS
PRINT "ROCHANA"
INPUT "ENTER ANY STRING";A$
FOR I=1 TO LEN(A$)
B$=MID$(A$,I,1)
IF I MOD 2=0 THEN
C$=C$+LCASE$(B$)
ELSE
C$=C$+UCASE$(B$)
END IF
NEXT I
PRINT "ALTERNATE CASE";C$
END
v) To input any string and display its initials.
CLS
PRINT "ROCHANA"
INPUT "ENTER ANY STRING";A$
B$=UCASE$(LEFT$(A$,1))
FOR I=1 TO LEN(A$)
C$=MID$(A$,I,1)
IF C$=" " THEN
B$=B$+"." UCASE$(MID$(A$,I+1,1))
END IF
NEXT I
PRINT B$
END
vi)To count total no of consonants.
CLS
PRINT "ROCHANA"
INPUT"ENTER ANY WORD";A$
C=0
FOR I =1 TO LEN(A$)
INPUT"ENTER ANY WORD";A$
C=0
B$=MID$(A$,I,1)
C$=UCASE$(B$)
IF C$<>"A" AND C$<>"E" AND C$<>"I" AND C$<>"O" AND C$<>"U" THEN
C=C+1
END IF
NEXT I
PRINT "TOTAL NO OF CONSONANTS=";C
END
vii)To display vowels from a given string.
CLS
PRINT "ROCHANA"
INPUT"ENTER ANY WORD";A$
FOR I =1 TO LEN(A$)
B$=MID$(A$,I,1)
C$=UCASE$(B$)
IF C$="A" OR C$="E" OR C$="I" OR C$="O" OR C$="U" THEN
PRINT B$
NEXT I
END
