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