Programming 1
TO CHECK WHETHER THE GIVEN STRING IS PALINDROME OR NOT.
CLS
INPUT”ENTER ANY WORD”; A$
FOR I = LEN (A$) TO 1 STEP -1
B$=MID$ (A$, I, 1)
C$=C$+B$
NEXT I
IF A$=C$ THEN
PRINT”GIVEN STRING IS PALINDROME”
ELSE
PRINT”GIVEN STRING IS NOT PALINDROME”
END IF
END
Programming 2
TO ENTER ANY WORD AND REVERSE IT.
CLS
INPUT”ENTER ANY WORD”; A$
FOR I = LEN (A$) TO 1 STEP -1
B$ = MID$(A$, I, 1)
C$ = C$+B$
NEXT I
PRINT”REVERSE WORD IS”;C$
END
Programming 3
TO INPUT ANY STRING AND COUNT THE TOTAL NUMBER OF VOWELS.
CLS
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” C$=”U” THEN C=C+1
NEXT I
PRINT”NUMBER OF VOWELS=”;V
END
Programming 4
TO INPUT ANY STRING AND COUNT THE TOTAL NUMBER OF CONSTANTS.
CLS
INPUT”ENTER ANY WORD”; A$
FOR I = 1 TO LEN (A$)
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
NEXT I
PRINT”TOTAL NUMBER OF CONSTANT=”;C
END
Programming 5
TO INPUT NAME IN LOWER CASE AND DISPLAY IN UPPER CASE.
CLS
INPUT”ENTER NAME IN LOWER CASE”;A$
B$=UCASE$(A$)
PRINT”NAME IN UPPERCASE=”;B$
END
Programming 6
TO DISPLAY THE ASCII VALUE OF FIRST CHARACTER FROM THE SUPPLIED STRING.
CLS
INPUT”ENTER ANY STRING”; A$
B$=LEFT$(A$,1)
C=ASC (B$)
PRINT”ASCII VALUE OF FIRST CHARACTER=”; C
END
Programming 7
WAP THAT ASKS ANY STRING AND COUNTS THE FREQUENCY OF LETTER ‘A’ PRESENT IN THE SUPPLIED STRING.
CLS
INPUT”ENTER ANY STRING”; A$
FOR I = 1 TO LEN (A$)
B$=MID$(A$, I, 1)
C$=UCASE$(B$)
IF C$=’A’ THEN F=F+1
NEXT I
PRINT”FREQUENCY OF LETTER A IN SUPPLIED STRING=”; F
END
Programming 8
WAP THAT ASKS YOUR NAME AND COUNTS THE FREQUENCY OF CHARACTERS “A” OR”B” PRESENT IN THE SUPPLIED NAME.
CLS
INPUT”ENTER ANY NAME”; A$
B$=MID$(A$, I, 1)
C$=UCASE(B$)
IF C$=”A” THEN C=C+1
IF C$=”B” THEN D=D+1
NEXT I
PRINT”FREQUENCY OF LETTER A AND B=”; C
END
Programming 9
TO PRINT ONLY ONE CHARACTERS “A” OR “B” FORM THE SUPPLIED STRING.
CLS
INPUT”ENTER ANY WORD”; A$
FOR I = 1 TO LEN (A$)
B$=MID$ (A$, I, 1)
C$=LCASE$(B$)
IF C$ = “A” AND C$ = “B” THEN PRINT B$
NEXT I
END
Programming 10
WAP THAT ASKS ANY STRING VALUE AND DISPLAYS ONLY THE VOWELS FROM THE SUPPLIED STRING.
CLS
INPUT”ENTER ANY STRING”;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
