Wap to display 1,2,3,5,8, up to 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

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

Wap to find whether the given number is 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

Wap 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

Wap to check the 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

WAP 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

Wap to find the palindrome word

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

Wap To check whether the given no. is 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

Wap to find factorial of given no.

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

Wap to find whether the given no. 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

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

Wap to calculate distance travelled by 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

Wap to print only vowels from given word

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

Wap to find 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

Wap to check whether the given no. is completely 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

WAP 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

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

Wap to display greatest among 3 no

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

Wap to display 1,1,2,3,5,8.....upto 10th term

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

Wap to print natural no. from 1 to 5

DECLARE SUB SERIES()
CLS
CALL SERIES()
END

SUB SERIES()
FOR I = 1 TO 5
PRINT I
NEXT I
END SUB

Wap to find simple intrest

DECLARE FUNCTION SI(P,T,R)
CLS
INPUT"ENTER PRINCIPLE":P
INPUT"ENTER TIME";T
INPUT"ENTER RATE":R
PRINT"SIMPLE INTEREST= ";SI(P,T,R)
END

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

Wap to convert temperature in celsius into fahrenheit

DECLARE FUNCTION CONVERT (F)

CLS

INPUT “ENTER TEMPERATURE IN FAHRENHEIT”; F

PRINT “TEMPERATURE IN CELSIUS=”; CONVERT (F)

END

FUNCTION  CONVERT (F)

C = (F – 32) * (5 / 9)

CONVERT = C

END FUNCTION

Wap to find sum of digits

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

SUB SU8M(N)
S=0
WHILE N<>0
R = N MOD 10
S = S+R
N = N\10
WEND
PRINT"SUM OF DIGITS IS ";S
END SUB

Wap to count total no. of consonant in given word

DECLARE FUNCTION COUNT(N$)
CLS
INPUT"ENTER ANY STRING";N$
PRINT"TOTAL NO. OF CONSONANTS";COUNT(N$)
END

FUNCTION COUNT(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 C= C+1
NEXT I
COUNT = C
END FUNCTION

Wap to print first ten numbers

DECLARE SUB SERIES()
CLS
CALL SERIES
END

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

Wap to find volume of cylinder

DECLARE FUNCTION VOL(R,H)
CLS
INPUT"ENTER RADIUS";R
INPUT"ENTER HEIGHT";H
PRINT"VOLUME OF CYLINDER IS";VOL(R,H)
END

FUNCTION VOL(R,H)
VOL=22/7*R^2*H
END FUNCTION

Wap to find area of triangle

DECLARE FUNCTION AREA(B,H)

CLS

INPUT"ENTER BREADTH";B

INPUT"ENTER HEIGHT";H

PRINT"AREA OF TRIANGLE";AREA(B,H)

END

FUNCTION AREA(B,H)

AREA=1/2*B*H

END FUNCTION

Wap to count total no. of vowels in a word

DECLARE FUNCTION COUNT(N$)

CLS

INPUT"ENTER ANY WORD";N$

PRINT"TOTAL NO. OF VOWELS IS";COUNT(N$)

END

FUNCTION COUNT(N$)

FOR I = 1 TO LEN(N$)

B$ = MID$(N$,I,10

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

Wap to find area of 4 wall

DECLARE SUB AR(L,B,H)
CLS
INPUT"ENTER LENGTH";L
INPUT'"ENTER BREADTH";B
INPUT"ENTER HEIGHT";H
CALL AR(L,B,H)
END

SUB AR(L,B,H)
ARE=2*H*(L+B)
PRINT"AREA OF 4 WALLS =";ARE
END SUB

Wap to display reverse of input string

DECLARE SUB REV$(N$)
CLS
INPUT"ENTER STRING";N$
CALL REV$($)
END

SUB REV$(N$)
FOR I = LEN(N$) TO 1 STEP-1
B$ = MID$(N$,I,1)
C$= C$+B$
NEXT I
PRINT"REVERSE OF STRING";C$
END SUB