#33 TO FIND POSITIVE NEGATIVE OR ZERO

DECLARE SUB CHECK(N) CLS INPUT"ENTER ANY NO.";N CALL CHECK(N) END SUB CHECK(N) IF N>0 THEN PRINT"NUMBER IS POSITIVE" ELSE IF N<0 THEN PRINT"NUMBER IS NEGATIVE" ELSE PRINT"NUMBER IS NEUTRAL" END IF END SUB

#32 TO DISPLAY 1,2,3,5,8 UPTO 13th TERM

DECLARE SUB SERIES ( ) CLS CALL SERIES END SUB SERIES A = 1 B = 2 FOR I = 1 TO 13 PRINT A; C = A+B A = B B = C NEXT I END SUB

#31 TO CHECK WHETHER THE GIVEN NO 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

#30 TO ERASE VOWELS FROM GIVEN 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

#29 TO CHECK 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

#28 TO DISPLAY 50, 42, 35, 29, 24 1O.......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

#27 FIND PALINDROME OR NOT

DECLARE FUNCTION REV$ (S$)
CLS
INPUT "ENTER ANY STRING"; S$
P$ = S$
IF P$ = REV$(S$) THEN
PRINT "THE GIVEN WORD IS PALINDROME "
ELSE
PRINT " THE GIVEN NO. IS NOT PALINDROME"
END IF
END

FUNCTION REV$ (S$)
FOR I = LEN(S$) TO 1 STEP -1
B$ = MID$(S$, I, 1)
W$ = W$ + B$
NEXT I
REV$ = W$
END FUNCTION

#26 FIND PRIME OR COMPOSITE

DECLARE SUB PRIME (N)
INPUT "ENTER ANY NUMBER"; N
CALL PRIME (N)
END

SUB PRIME (N)
C = 0
FOR I = 1 TO N
IF N MOD I = 0 THEN C = C + 1
NEXT I
IF C = 2 THEN
PRINT N; "IS PRIME NUMBER"
ELSE
PRINT N; "IS COMPOSITE NUMBER"
END IF
END SUB

#25 FIND FACTORIAL OF GIVEN NUMBER

DECLARE FUNCTION factorial (n)

CLS

INPUT "Enter a number"; n

PRINT "The factorial of the given number is"; factorial(n)

END

FUNCTION factorial (n)

f = 1

FOR i = 1 TO n

f = f * i

NEXT i

factorial = f

END SUB

#24 CHECK WETHER THE GIVEN NUMBER IS POSITIVE OR NEGATIVE

DECLARE SUB CHECK(N)
CLS
INPUT"ENTER ANY NO.";N
CALL CHECK(N$)
END

SUB CHECK(N)
IF N > 0 THEN
PRINT"POSITIVE NO."
ELSE IF N  < 0 THEN
PRINT"NEGATIVE NO."
ELSE
PRINT"ZERO"
END IF
END SUB

#23 display 9,7,5,4.....1

DECLARE SUB SERIES()
CLS
CALL SERIES
END

SUB SERIES()
FOR I = 9 TO 1 STEP-2
PRINT I
NEXT I
END SUB

#22 FIND THE DISTANCE TRAVELLED BY A BODY

DECLARE FUNCTION DIS(U,T,A)
CLS
INPUT"ENTER VELOCITY";U
INPUT"ENTER TIME";T
INPUT"ENTER ACCELERATION";A
PRINT"DISTANCE TRAVELLED BY BODY IS ";DIS(U,T,A)
END

FUNCTION DIS(U,T,A)
DIS=U*T+1/2*A*T^2
END FUNCTION

#21 PRINT ONLY VOWELS FROM GIVEN WORDS

DECLARE SUB DIS(N$)
CLS
INPUT"ENTER ANY WORD";N$
CALL DIS(N$)
END

SUB DIS(N$)
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
PRINT C$
NEXT I
END SUB

#20 VOLUME OF BOX

DECLARE FUNCTION VOL(L,B,H)
CLS
INPUT"ENTER LENGTH";L
INPUT"ENTER BREADTH";B
INPUT"ENTER HEIGHT";H
PRINT" VOLUME OF BOX";VOL(L,B,H)
END

FUNCTION VOL(L,B,H)
VOL=L*B*H
END FUNCTION

#19 CHECK WETHER THE GIVEN NO IS DIVISIBLE BY 13 OR NOT

DECLARE SUB CHECK(N)

CLS

INPUT"ENTER ANY NO.";N

CALL CHECK(N)

END

SUB CHECK(N)

IF N MOD 13 = 0 THEN

PRINT"THE NO. IS COMPLETELY DIVISIBLE BY 13"

ELSE

PRINT"THE NO. IS NOT COMPLETELY DIVISIBLE BY 13'

END IF 

END SUB

#18 TO FIND 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 IS ";C
END SUB

#17 FIND AREA OF BOX

DECLARE FUNCTION AR(L,B,H)
CLS
INPUT"ENTER LENGTH";L
INPUT"ENTER BREADTH";B
INPUT"ENTER HEIGHT";H
PRINT"THE AREA OF BOX IS ";AR(L,B,H)
END

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

#16 TO DISPLAY GREATEST AMONG 3 NUMBERS

DECLARE SUB GREAT (A,B,C)

CLS

INPUT"ENTER 3 NO. ";A,B,C

CALL GREAT(A,B,C)

END

SUB GREAT (A,B,C)

IF A > B AND A>C THEN

PRINT"THE GREATEST NO. IS";A

ELSE IF B>A AND B>A THEN

PRINT"THE GREATEST NO. I S";B

ELSE

PRINT"THE GREATEST NO IS";C

END IF 

END SUB

#15 WAP TO DISPLAY1,1,2,3,5,8.....UPTO 10thTERM

DECLARE SUB SERIES()
CLS
CALL SERIES
END

SUB SERIES()
A=1
B=1
FOR I = 1 TO 10
PRINT A;
PRINT B;
A=A+B
B=B+A
NEXT I
END SUB

#14 PRINT SIMPLE INTEREST

DECLARE FUNCTION INTEREST (P,T,R)
CLS
INPUT " ENTER PRINCIPAL";P
INPUT " ENTER INTEREST";I
INPUT "ENTER TIME";T
PRINT "SIMPLE INTEREST";INTEREST(P,T,R)
END

FUNCTION INTEREST (P,T,R)
I=P*T*R/100
INTEREST=I
END FUNCTION

#13 CONVERT TEMPERATURE IN CELSIUS

DECLARE FUNCTION CONVERT (N)
CLS
INPUT "TEMPERATURE IN CELSIUS";N
PRINT "CELSIUS INTO FARHENHEIT";CONVERT(N)
END

FUNCTION CONVERT (N)
F = 9*C/5+32
CONVERT = F
END FUNCTION

#12 SUM OF DIGITS

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 DIGITS";S
END FUNCTION