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