35.DISPLAY  1,2,3,5,8….13^TH TERM.

DECLARE SUB SERIES ( )

CLS

CALL SERIES ( )

A=1

B=2

FRO I = 1 TO 13

PRINT A

PRINT B

C= A+B

A=B

B=C

NEXT I

END SUB

34 .Wap to check whether the given number is perfect square or not

34 .Wap to check whether the given number is perfect square or not

DECLARE FUNCTION PERFECT (S)
CLS
INPUT "ENTER ANY NUMBER"; N
S = SQR(N)
PR = PERFECT (S)
IF PR = S THEN
PRINT "PERFECT SQUARE"
ELSE
PRINT "NOT PERFECT SQUARE"
END IF
END

FUNCTION PERFECT (S)
PERFECT = INT (S)
END FUNCTION

        33. POSITIVE OR NEGATIVE OR NEUTRAL.

DECLARE SUB CHECK(N)

CLS

INPUT “ENTER ANY NUMBER “;N

CALL CHECK(N)

END

SUB CHECK(N)

IF N>0 THEN

PRINT “POSITIVE NUMBER “

ELSEIF  N<0 THEN

PRINT “NEGATIVE NUMBER “

ELSE

PRINT “NEUTRAL”

END IF

END SUB

32.ERASE VOWEL FROM INPUT STRING .

DECLARE FUNCTION ERA(A$)
CLS
INPUT"ENTER ANY STRING";A$
PRINT"STRING WITHOUT VOWELS =";ERA(A$)
END

FUNCTION ERA(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 D$=D$+C$
END IF
NEXT I
ERA=D$
END FUNCTION

31.  CHECK INPUT CHARACTER IS CAPITAL OR SMALL.

DECLARE FUNCTION CHECK$(A$)

CLS

INPUT"ENTER ANY CHARACTER";A$

PRINT"THE ENTERED CHARATER IS"; CHECK$(C$)

END

FUNCTION CHECK$(A$)

C = ASC(A$)

IF C>=65 AND C<=91 THEN

CHECK$="UPPER CASE"

ELSEIF C>=97 AND C<=122 THEN

CHECK$="LOWER CASE"

ELSE 

CHTR$="NOT A CHARACTER"

END IF

END FUNCTION

30. DISPLAY 50,42,35,29,24…..10^TH TERM

DECLARER SUB SERIES()

CLS

CALL SERIES

END

SUB SERIES()

A=50

B=8

FOR I = 1 TO 10

PRINT A

A=A-B

B=B-1

NEXT I

END

29.PALINDROME WORD.

DECLARE SUB REV (N)

CLS

INPUT “ENTER ANY NUMBER”;N

CALL REV (N)

END

SUB REV (N)

S=0

A=N

WHILE N<>0

R= N MOD 10

S= S*10+R

N= N\10

WEND

IF A=S THEN  

PRINT “THE GIVEN NO. IS PALINDROME”

ELSE

PRINT “THE GIVEN  NO. IS NOT PALINDROME”

END IF

END

28.PRIME OR COMPOSITE.

DECLARE SUB CHECK(N)

CLS

INPUT “ENTER ANY NUMBER “;N

CALL CHECK(N)

END

SUB CHECK(N)

C=0

FOR I =  1 TO N

IF N MOD I = 0 THEN    C=C+1

NEXT I

IF C= 2 THEN

PRINT “PRIME NUMBER “

ELSE

PRINT “COMPOSITE NUMBER “

END IF

END

27.FACTORIAL.

DECLARE FUNCTION FACT(N)

CLS

INPUT “ENTER ANY NUMBER “;N

PRINT “FACTORIAL=”FACT(N)

END

FUNCTION  FACT (N)

F=1

FOR I = 1 TO N

F=F*I

NEXT I

FACT=F

END FUNCTION

26.POSITIVE OR NEGATIVE

DECLARE SUB CHECK(N)

CLS

INPUT “ENTER ANY NUMBER “;N

CALL CHECK(N)

END

SUB CHECK(N)

IF N>0 THEN

PRINT “POSITIVE NUMBER “

ELSEIF N<0 THEN

PRINT “NEGATIVE NUMBER “

END IF

END SUB

25.DISPLAY 9,7,5,….1.

DECLARE SUB SERIES( )

CLS

CALL SERIES

END

SUB SERIES( )

FOR I= 9 TO 1 STEP -2

PRINT I

NEXT I

END SUB

24.CALCULATE DISTANCE TRAVELLED BY BODY.

DECLARE FUNCTION DISTANCE(U,A,T)

CLS

INPUT “ENTER UNIFORM VELOCITY”;U

INPUT “ENTER ACCELERATION”;A

INPUT “ENTER TIME “;T

PRINT “DISTANCE TRAVELLED=”;DISTANCE ( U,A,T)

END

FUNCTION  DISTANCE (U,A,T)

D=U*T+1/2*A*T^2

DISTANCE =D

END FUNCTION

DECLARE SUB DISP(S$)

23.PRINT  ONLY VOWELS FROM A GIVEN WORD.

DECLARE SUB DISP(S$)

CLS

INPUT "ENTER A WORD";S$

CALL DISP(S$)

END

SUB DISP(S$)

FOR I =1 TO LEN(S$)

B$= MID (S$,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 SUB

22.VOLUME OF BOX.

DECLARE FUNCTION VOLUME (L,B,H)

CLS

INPUT “ENTER LENGTH”;L

INPUT “|ENTER B READTH”;B

INPUT “ENTER HEIGHT”;H

PRINT “VOLUME OF BOX”;VOLUME(L,B,H)

END

FUNCTION VOLUME (L,B,H)

V=L*B*H)

VOLUME=V

END FUNCTION

21.TO CHECK WHETHER THE GIVEN NUMBER  IS COMPLETELY DIVISIBLE BY 13 OR NOT.

DECLARE SUB CHECK(N)

CLS

INPUT ENTER ANY NUMBER “;N

CALL CHECK (N)

END

SUB CHECK$(N)

IF N MOD 13 =0 THEN

PRINT  “THE GIVEN NUMBER IS DIVISIBLE BY 13”

ELSE

PRINT “THE GIVEN NUMBER IS NOT  DIVISIBLE BY 13”

END IF

END SUB

20.CIRCUMFERENCE OF CIRCLE

DECLARE SUB CIR(R)

CLS

INPUT “ENTER RADIUS”;R

CALL CIR(R)

END

SUB CIR (R)

C=2*22/7*R

PRINT “CIRCUMFERENCE OF CIRCLE=”;C

END SUB

19.AREA OF 4 WALLS


DECLARE FUNCTION AREA(L,B,H)
CLS
INPUT "ENTER LENGTH";L
INPUT "ENTER BREADTH";B
INPUT "ENTER HEIGHT";H
PRINT 'AREA OF FOUR WALLS";AREA (L,B,H)
END


FUNCTION AREA (L,B,H)
A= 2*H(L+B)
AREA=A
END FUNCTION

18. AREA OF A BOX.

DECLARE FUNCTION AREA(L,B,H)

CLS

INPUT “ENTER LENGTH”;L

INPUT “ENTER  BREADTH”;B

INPUT “ENTER HEIGJHT”;H

PRINT “AREA OF BOX “;AREA (L,B,H)

END

FUNCTION AREA (L,B,H)

A=2*(L*H+B*H+L*B)

AREA = A

END FUNCTION

17.DISPLAY GREATEST AMONG THREE NUMBER .

DECLARE SUB GREAT(A,B,C)

CLS

INPUT “ENTYER ANY THREE NUMBER “;A,B,C

CALL  GREAT (A,B,C)

END

SUB GREAT (A,B,C0

IF A>B AND A>C THEN

PRINT “THE GREATEST NUMBER IS”;A

ELSEIF B>A AND B>C THEN

PORINT “THE GREATEST NUMBER IS”;B

ELSE

PRINT “THE GREATEST NUMBER IS”;C

END IF END SUB

16.DISPLAY  1,1,2,3,5,8…UP TO TEN TERM.

DECLARE SUB SERIES( )

CLS

CALL SERIES

END

SUB SERIES( )

A=1

B=1

FOR I= 1 TO 5

PRINT A

PRINT B

A=A+B

B=A+B

NEXT I END SUB

15.PRINT NATURAL NO. FROM 1 TO 5.

DEZCLARE SUB SERIES( )

CLS

CALL SERIES( )

END

SUB SERIES ( )

FOR I = 1 TO 5

PRINT I

NEXT I

END SUB

14.PRINT SIMPLE INTEREST .

DECLARE  FUNCTION  INTEREST(P,T,R)

CLS

INPUT “ENTER  PRINCIPAL”;P

INPUT “ENTER TIME”;T

INPUT “ENTER RATE”;R

PRINT “SIMPLE INTEREST=”;INTERESTG(P,T,R)

END

FUNCTION INTEREST(P,T,R)

SI=P*T*R/100

INTEREST=SI

END FUNCTION

13.CONVERT TEMPERATURE IN CELCIUS IN FAHRENHEIT.

DECLARE FUNCTION FAHRENHEIT©

CLS

INPUT”ENTER CELCIUS”;C

PRINT “CELCIUS IN FAHRENHEIT=”;FAHRENHEIT©

END

FUNCTION FAHRENHEIT©

F=9*C/5+32

FAHRENHEIT=F

END FUNCTION

12.SUM OF DIGIT.

DECLARE SUB SUM (N)

CLS

INPUT “ENTER ANY NUMBER”;N

CALL SUM (N)

END

SUB SUM (N)

S=0

WHILE N<>0

R=N MOD 10

S=S+R

N=N/10

WEND

PRINT  “SUM OF DIGIT=”;S

END SUB

11.INPUT STRING AND COUNT TOTAL NO. OF CONSONANT

DECLARE FUNCTION DISP$(N$)

CLS

INPUT “ENTER ANY WORD”;N$

PRINT “CONSONANT=”;DISP$(N$)

END

FUNCTION DISP(N$)

FOR I =1 TO LEN(N$)

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

C$= UCASE$(B$)

IF C$<> “A” AND  C$<> “E” AND  C$<> “I” AND  C$<> “O” AND  C$<> “U” THEN  V$=V$+B$

NEXT I

DISP$=V$

END FUNCTION

10.PRINT FIRST TEN ODD NUMBER .

DECLARE SUB SERIES( )

CLS

CALL SERIES

END

SUB SERIES( )

A=1

FOR I = 1 TO10

PRINT A

A=A+2

NEXT I

END SUB

9.VOLUME OF CYLINDER.

DECLARE FUNCTION VOLUME(R,H)

CLS

INPUT “ENTER RADIUS”|;R

INPUT “ENTER HEIGHT”;H

PRINT “VOLUME  OF CYLINDER”;VOLUME(R,H)

END

FUNCTION  VOLUME (R,H)

V=22/7*R^2*H

VOLUME=V

END FUNCTION

8.AREA OF TRIANGLE

DECLARE FUNCTION AREA (B,H)

CLS

INPUT “ENTER BASE”;B

INPUT  “ENTER HEIGHT”;H

PRINT “AREA OF TRIANGLE=”;AREA (B,H)

END

FUNCTION AREA (B,H)

A=1/2*B*H

AREA =A

END FUNCTION

7. DISPLAY REVERSE OF INPUT STRING

DECLARE SUB REV(N$)

CLS

INPUT “ENTERT NAME”;N$

CALL REV (N$)

END

SUB REV (N$)

FOR I = LEN (N$) TO 1 STEP – 1

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

C$=C$+B$

NEXT I

PRINT  “REVERSE STRING IS “;C$

END SUB

6.COUNT TOTAL NO. OF VOWELS IN A WORD.

DECLARE  FUNCTION COUNT(N$)

PRINT “TOTAL NO. OF VOWELS=”;COUNT(N$)

END

FUNCTION COUNT(N$)

C=0

F OR I = 1 TO LEN(N$)

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

C$=UCASE$(B$)

IF C$= “A” OR C$= “E” OR C$= “I” OR C$= “O” OR C$= “U” THEN C=C+1

NEXT I

COUN T C

END FUNCTION

5.AREA OF 4 WALLS

DECLARE SUB AREA N(L,B,H)

CLS

INPUT “ENTER LERNGTH”;L

INPUT “ENTER BREADTH”;B

INPUT “ENTER HEIGHT”;H

CALL AREA (L,B,H)

END

SUB AREA(L,B,H)

A=2*H*(L+B)

PRINT “AREA OF FOUR WALLS=”;A

END SUB

4. COUNT TOTAL NO. OF WORDS IN SENTENCE

DECLARE FUNCTION COUNT (S$)

CLS
INPUT "ENTER ANY STRING"; S$
PRINT "TOTAL NO. OF WORDS= "; COUNT(S$)
END

FUNCTION COUNT (S$)
WC = 1
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
IF B$ = " " THEN
WC = WC + 1
END IF
NEXT I
COUNT = WC
END FUNCTION

QBASIC PROGRAM

3.AREA OF CIRCLE

DECLARE  SUB  AREA (r)

CLS

INPUT “ENTER RADIUS”;R

CALL AREA (r)

END

SUB AREA  (r)

A=22/7*r^2

PRINT “AREA OF CIRCLE=”;A

END SUB

QBASIC PROGRAM

2.Print total number of vowels in word.

DECLARE SUB COUNT (N$)

CLS

INPUT “ENTER ANY WORD”;N$

CALL COUNT(N$)

END

SUB COUNT (N$)

C=0

FOR I=1 TO LEN(N$)

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

C$=UCASE$(B$)

IF C$= “A” OR C$= “E” OR C$= “I” OR C$= “O” OR C$= “U” THEN C=C+1

NEXT I

PRINT “TOTAL NO. OF VOWELS”;C

END SUB

QBASIC PROGRAM

1. Average of three number

DECLARE  FUNCTION  AVERAGE (A,B,C)

CLS

INPUT “ENTER ANY NUMBER”;A,B,C

PRINT “AVERAGE OF THREE NUMBER=”;AVERAGE(A,B,C)

END

FUNCTION AVERAGE (A,B,C)

AVG=(A+B+C)/3

AVERAGE=AVG

END FUNCTION