PROJECT "B"

1.      Input any string and reverse it.

CLS

INPUT "ENTER ANY STRING"; A$

FOR I = LEN(A$) TO 1 STEP -1

B$ = MID$(A$, I, 1)

C$ = C$ + B$

NEXT I

PRINT "REVERSED STRING IS "; C$

END

2.      Input any string and check whether the given string is palindrome or not.

CLS

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  A$; “IS PALINDROME”

ELSE

PRINT A$; “IS NOT PALINDROME”

END IF

END

3.      Count total no. of vowels in a given string.

CLS

INPUT "ENTER ANY STRING"; A$

VC = 0

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

VC = VC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF VOWELS= "; VC

END

4.      Count total no. of consonants in a given word.

CLS

INPUT "ENTER ANY STRING"; A$

CC = 0

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

CC = CC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF CONSONANTS= "; CC

END 

5.      Count total no. of vowels and consonants in a given word.

CLS

INPUT "ENTER ANY WORD"; A$

VC = 0

CC = 0

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

VC = VC + 1

ELSE

CC = CC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF VOWELS= "; VC

PRINT "TOTAL NO. OF CONSONANTS="; CC

END

6.      Display vowels from a given 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$

END IF

NEXT I

END

7.      Display consonants from a given word.

CLS

INPUT "ENTER ANY STRING"; 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

PRINT B$

END IF

NEXT I

END

8.      Count total no. of words from a given string.

CLS

INPUT "ENTER ANY STRING"; A$

WC = 1

FOR I = 1 TO LEN(A$)

B$ = MID$(A$, I, 1)

IF B$ = " " THEN

WC = WC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF WORDS= "; WC

END 

9.      Count total no. of vowels and consonants from a given string.

CLS

INPUT "ENTER ANY STRING"; A$

VC = 0

CC = 0

WC = 1

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

VC = VC + 1

ELSEIF B$ = " " THEN

WC = WC + 1

ELSE

CC = CC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF VOWELS= "; VC

PRINT "TOTAL NO. OF CONSONANTS="; CC

END

10.  Input any string and display in alternate case characters. [Eg. Input = COMPUTER ; Output = CoMpUtEr]

CLS

INPUT "ENTER ANY WORD"; A$

FOR I = 1 TO LEN(A$)

B$ = MID$(A$, I, 1)

IF I MOD 2 = 0 THEN

W$ = W$ + UCASE$(B$)

ELSE

W$ = W$ + LCASE$(B$)

END IF

NEXT I

PRINT "Alternate case=";W$

END 

PROJECT "A"

1)NEPAL

   NEPA

   NEP

   NE

   N

CLS

A$="NEPAL"

FOR I =LEN(A$) TO 1 STEP-1

PRINT LEFT$(A$,I)

NEXT I

END

2) L

AL

PAL

EPAL

NEPAL

CLS

A$="NEPAL"

FOR I = 1 TO LEN(A$)

PRINT RIGHT$(A$,I)

NEXT I

END

3)E

ME

OME

COME

LCOME

ELCOME

WELCOME

CLS

A$="WELCOME"

FOR I = 1 TO LEN(A$)

PRINT RIGHT$(A$,I)

NEXT I

END

4) WELCOME

ELCOME

LCOME

COME

OME

ME

E

CLS

A$="WELCOME"

FOR I =LEN(A$) TO 1 STEP-1

PRINT RIGHT$(A$,I)

NEXT I

END

5)P

EPA

NEPAL

CLS

B$="NEPAL"

A = 3

FOR I = 1 TO LEN(B$) STEP 2

PRINT MID$(B$, A, I)

A = A - 1

NEXT I

END 

6)C

CO

COM

COMP

COMPU

COMPUT

COMPUTE

COMPUTER

CLS

A$="COMPUTER"

FOR I = 1 TO LEN(A$) 

PRINT LEFT$(A$,I)

NEXT I

END

7)KATHMANDU

KATHMAND

KATHMAN

KATHMA

KATHM

KATH

KAT

KA

K

CLS

A$="KATHMANDU"

FOR I =LEN(A$) TO 1 STEP-1

PRINT LEFT$(A$,I)

NEXT I

END

8)M 

HMA

THMAN

ATHMAND

KATHMANDU

CLS

A$="KATHMANDU"

B=5

FOR I=1 TO LEN(A$) STEP 2

PRINT MID$(A$,B,I)

B=B-1

NEXT I

END 

9)*

**

***

****

*****

CLS

A$ = "*****"

FOR I = 1 TO LEN(A$)

PRINT LEFT$(A$, I)

NEXT I

END 

  10)       *

             ***

           *****

          *******

         *********

    

    -CLS

    A$="*********"

    FOR I =LEN(A$) TO 1 STEP -1

    PRINT "*";RIGHT$ (A$,I):"*"

    NEXT I

    END 

11)*

***

*****

*******

*********

CLS

A$="*********"

FOR I = 1 TO LEN(A$) STEP 2

PRINT LEFT$(A$,I)

NEXT I

END

12)*NEPAL*

*NEPA*

*NEP*

*NE*

*N*

CLS

A$="NEPAL"

FOR I=LEN(A$) TO 1 STEP-1

PRINT "*";LEFT$(A$,I);"*"

NEXT I

END

13)*N*

*NE*

*NEP*

*NEPA*

*NEPAL*

CLS
A$="NEPAL"

FOR I= 1 TO LEN (A$)

PRINT"*";LEFT$(A$,I);"*"

NEXT I

END

14)*NEPAL*

**NEPAL**

***NEPAL***

****NEPAL****

*****NEPAL******

CLS

A$="*****"

B$="NEPAL"

FOR I= 1 TO LEN(A$)

PRINT LEFT$(A$,I);B$;RIGHT$(A$,I)

NEXT I

END