Normal QB

1. WAP TO COUNT TOTAL NUMBER OF VOWELS IN A WORD.

CLS                                                                        

INPUT "Any word"; w$                                                        

w$ = UCASE$(w$)                                                     

FOR I = 1 TO LEN(w$)                                                

R$ = MID$(w$, I, 1)                                                

IF R$ = "A" OR R$ = "E" OR R$ = "I" OR R$ = "O" OR R$ = "U" THEN

v = v + 1

END IF

NEXT I                                                               

COLOR 5                                                                    

PRINT "Total vowel used in the word "; w$; " is  "; v                      

END

2. WAP TO CONVERT DECIMAL INTO BINARY.  

CLS

INPUT "ENTER A NUMBER"; N

WHILE N <> 0

A = N MOD 2

B$ = STR$(A)

N = N \ 2

C$ = B$ + C$

WEND

PRINT "BINARY EQUIVALENT IS"; C$

END

3.WAP TO FIND THE FACTORS OF A GIVEN NUMBER.

REM Program to print the factors of a given number

CLS

INPUT "Enter any number"; n

FOR i = 1 TO n

IF n MOD i = 0 THEN PRINT i,

NEXT i

END

4.WAP TO GENERATE FIBONACCI SERIES UPTO 10th TERM(1 1 2 3 5 8 13 21 34 55 ....).

CLS

a = 1

b = 1

FOR i = 1 TO 10

PRINT a

c = a + b

a = b

b = c

NEXT i

END

5.WAP TO FIND GREATEST AMONG THREE DIFFERENT NUMBERS.

REM Program to print greater among three different numbers

CLS

INPUT "Enter first number"; a

INPUT "Enter second number"; b

INPUT "Enter third number"; c

IF a > b AND a > c THEN

PRINT a; " is greater"

ELSEIF b > a AND b > c THEN

PRINT b; " is greater"

ELSE

PRINT c; " is greater"

END IF

END

6.WAP TO GENERATE HAILSTONE SERIES OF ANY NUMBER.

CLS

a = 7(REPLACE WITH ANY NUMBER U WANT)

FOR i = 1 TO 10

PRINT a

IF a MOD 2 = 0 THEN

a = a / 2

ELSE

a = (a * 3) + 1

END IF

NEXT i

END

7.WAP TO PRINT WHETHER THE GIVEN NUMBER IS PALINDROME OR NOT.

CLS

INPUT "ENTER A NUMBER"; N

S = N

WHILE N <> 01. WAP TO COUNT TOTAL NUMBER OF VOWELS IN A WORD.

CLS                                                                        

INPUT "Any word"; w$                                                         

w$ = UCASE$(w$)                                                    

FOR I = 1 TO LEN(w$)                                                

R$ = MID$(w$, I, 1)                                                

IF R$ = "A" OR R$ = "E" OR R$ = "I" OR R$ = "O" OR R$ = "U" THEN

v = v + 1

END IF

NEXT I                                                              

COLOR 5                                                                    

PRINT "Total vowel used in the word "; w$; " is  "; v                      

END

2. WAP TO CONVERT DECIMAL INTO BINARY.  

CLS

INPUT "ENTER A NUMBER"; N

WHILE N <> 0

A = N MOD 2

B$ = STR$(A)

N = N \ 2

C$ = B$ + C$

WEND

PRINT "BINARY EQUIVALENT IS"; C$

END

3.WAP TO FIND THE FACTORS OF A GIVEN NUMBER.

REM Program to print the factors of a given number

CLS

INPUT "Enter any number"; n

FOR i = 1 TO n

IF n MOD i = 0 THEN PRINT i,

NEXT i

END

4.WAP TO GENERATE FIBONACCI SERIES UPTO 10th TERM(1 1 2 3 5 8 13 21 34 55 ....).

CLS

a = 1

b = 1

FOR i = 1 TO 10

PRINT a

c = a + b

a = b

b = c

NEXT i

END

5.WAP TO FIND GREATEST AMONG THREE DIFFERENT NUMBERS.

REM Program to print greater among three different numbers

CLS

INPUT "Enter first number"; a

INPUT "Enter second number"; b

INPUT "Enter third number"; c

IF a > b AND a > c THEN

PRINT a; " is greater"

ELSEIF b > a AND b > c THEN

PRINT b; " is greater"

ELSE

PRINT c; " is greater"

END IF

END

6.WAP TO GENERATE HAILSTONE SERIES OF ANY NUMBER.

CLS

a = 7(REPLACE WITH ANY NUMBER U WANT)

FOR i = 1 TO 10

PRINT a

IF a MOD 2 = 0 THEN

a = a / 2

ELSE

a = (a * 3) + 1

END IF

NEXT i

END

7.WAP TO PRINT WHETHER THE GIVEN NUMBER IS PALINDROME OR NOT.

CLS

INPUT "ENTER A NUMBER"; N

S = N

WHILE N <> 0

A = N MOD 10

R = R * 10 + A

N = N \ 10

WEND

IF S = R THEN

PRINT "THE GIVEN NUMBER IS PALINDROME"

ELSE

PRINT "IT IS NOT PALINDROME"

END IF

END

8. WAP to calculate the cube root of a given number.

REM Program to calculate the cube root of a given number

CLS

INPUT “Enter any number”; n

c = n ^ (1 / 3)

PRINT “Cube root of “; n; ” is “; s

END

9. WAP to calculate the square root of a given number.

REM Program to calculate the square root of a given number

CLS

INPUT “Enter any number”; n

s = SQR(n)

PRINT “Square root of “; n; ” is “; s

END

10. Program to reverse a given string in qbasic.

CLS

INPUT “ENTER A STRING”; S$

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

M$ = MID$(S$, I, 1)

REV$ = REV$ + M$

NEXT I

PRINT REV$

END

11. Program to reverse a given number in qbasic.

CLS

INPUT “ENTER A NUMBER”; N

WHILE N <> 0

A = N MOD 10

R = R * 10 + A

N = FIX(N / 10)

WEND

PRINT R

END

12. PROGRAM THAT PLAYS HAPPY BIRTHDAY TUNE IN QBASIC.

CLS

PLAY "L4 C8C8DCFE2 P4 C8C8DCGF2 P4"

PLAY "C8C8>C<AFED2 P4 B-8B-8AFGF2"

END

13. WAP THAT DISPLAYS A LOADING SCREEN.

CLS

COLOR 12

SLEEP 1

LOCATE 23, 35

PRINT "Loading ..."

SLEEP 1

FOR a = 2 TO 78

LOCATE 22, a

COLOR 5

PRINT "°"

NEXT a

SLEEP 1

FOR a = 2 TO 78

LOCATE 22, a

COLOR 6

PRINT "°"

FOR b = 1 TO 123333

NEXT b

NEXT a

SLEEP 2

CLS

SLEEP 1

COLOR 5

LOCATE 12, 35

PRINT "WELCOME!!!"

END

14. WAP TO PRINT ALL ODD NUMBER FROM 1 TO 100.

CLS

A=1

B=1

DO WHILE B<=50

PRINT A

A=A+2

B=B+1

LOOP

END

15. WAP TO PRINT ALL EVEN NUMBERS FROM 1 TO 100.

CLS

A=2

B=1

DO WHILE B<=50

PRINT A

A=A+2

B=B+1

LOOP

END

16. NUMBER PATTERN

1

11

111

1111

11111

CLS

A=1

B=1

DO WHILE B<=5

PRINT A

A= (A*10) +1

B=B+1

LOOP

END

17. WAP TO PRINT FIBONACCI SERIES.

CLS

A=2

B=2

D=1

PRINT A; B

DO WHILE D<=10

C=A+B

PRINT C

A=B

B=C

D=D+1

LOOP

END

18. SUM OF ALL EVEN NMBER FROM 1 TO 100.

CLS

A=2

B=1

WHILE B<=50

S=S+A

A=A+2

B=B+1

WEND

PRINT”THE SUM IS”; S

END

19. SUM OF ALL ODD NMBER FROM 1 TO 100.

CLS

A=1

B=1

WHILE B<=50

S=S+A

A=A+2

B=B+1

WEND

PRINT”THE SUM IS”; S

END

A = N MOD 10

R = R * 10 + A

N = N \ 10

WEND

IF S = R THEN

PRINT "THE GIVEN NUMBER IS PALINDROME"

ELSE

PRINT "IT IS NOT PALINDROME"

END IF

END

8. WAP to calculate the cube root of a given number.

REM Program to calculate the cube root of a given number

CLS

INPUT “Enter any number”; n

c = n ^ (1 / 3)

PRINT “Cube root of “; n; ” is “; s

END

9. WAP to calculate the square root of a given number.

REM Program to calculate the square root of a given number

CLS

INPUT “Enter any number”; n

s = SQR(n)

PRINT “Square root of “; n; ” is “; s

END

10. Program to reverse a given string in qbasic.

CLS

INPUT “ENTER A STRING”; S$

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

M$ = MID$(S$, I, 1)

REV$ = REV$ + M$

NEXT I

PRINT REV$

END

11. Program to reverse a given number in qbasic.

CLS

INPUT “ENTER A NUMBER”; N

WHILE N <> 0

A = N MOD 10

R = R * 10 + A

N = FIX(N / 10)

WEND

PRINT R

END

12. PROGRAM THAT PLAYS HAPPY BIRTHDAY TUNE IN QBASIC.

CLS

PLAY "L4 C8C8DCFE2 P4 C8C8DCGF2 P4"

PLAY "C8C8>C<AFED2 P4 B-8B-8AFGF2"

END

13. WAP THAT DISPLAYS A LOADING SCREEN.

CLS

COLOR 12

SLEEP 1

LOCATE 23, 35

PRINT "Loading ..."

SLEEP 1

FOR a = 2 TO 78

LOCATE 22, a

COLOR 5

PRINT "°"

NEXT a

SLEEP 1

FOR a = 2 TO 78

LOCATE 22, a

COLOR 6

PRINT "°"

FOR b = 1 TO 123333

NEXT b

NEXT a

SLEEP 2

CLS

SLEEP 1

COLOR 5

LOCATE 12, 35

PRINT "WELCOME!!!"

END

14. WAP TO PRINT ALL ODD NUMBER FROM 1 TO 100.

CLS

A=1

B=1

DO WHILE B<=50

PRINT A

A=A+2

B=B+1

LOOP

END

15. WAP TO PRINT ALL EVEN NUMBERS FROM 1 TO 100.

CLS

A=2

B=1

DO WHILE B<=50

PRINT A

A=A+2

B=B+1

LOOP

END

16. NUMBER PATTERN

1

11

111

1111

11111

CLS

A=1

B=1

DO WHILE B<=5

PRINT A

A= (A*10) +1

B=B+1

LOOP

END

17. WAP TO PRINT FIBONACCI SERIES.

CLS

A=2

B=2

D=1

PRINT A; B

DO WHILE D<=10

C=A+B

PRINT C

A=B

B=C

D=D+1

LOOP

END

18. SUM OF ALL EVEN NUMBER FROM 1 TO 100.

CLS

A=2

B=1

WHILE B<=50

S=S+A

A=A+2

B=B+1

WEND

PRINT”THE SUM IS”; S

END

19. SUM OF ALL ODD NUMBER FROM 1 TO 100.

CLS

A=1

B=1

WHILE B<=50

S=S+A

A=A+2B=B+1

WEND

PRINT”THE SUM IS”; S

END