QBASIC PROGRAMMING (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" AND C$ <> " " AND C$ <> "." 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 

QBASIC PROGRAMMING (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" AND C$ <> " "  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 

QBASIC PRORAMMING

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
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