Display 1,2,3,5,8..13th term.(SUB)

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

Perfect square or not.(FUNCTION)

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 Positive, negative or neutral.(SUB)

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

Erase vowel from input string.(FUNCTION)

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

FUNCTION ERA(A$)
B$=UCASE$(A$)
FOR I = 1 TO 10
C$=MID$(B$,I,1)
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

Check input character is capital or small.(FUNCTION)

DECLARE FUNCTION CHECK$(A$)

CLS

INPUT"ENTER ANY CHARACTER";A$

PRINT CHECK$(C$)

END

FUNCTION CHECK$ (A$)
C = ASC(A$)
IF C >= 65 AND C <= 91 THEN
    CHECK$ = "UPPERCASE"
ELSEIF C >= 97 AND C <= 122 THEN
    CHECK$ = "LOWERCASE"
END IF
END FUNCTION

Display 50,42,35,29,24..10th term.(SUB)

DECLARE SUB SERIES()

CLS

CALL SERIES

END

SUB SERIES()

A=40

B=2

FOR I = 1 TO 10

PRINT A

A=A-B

B=B-1

NEXT I

END SUB

Palindrome word.(Function)

DECLARE FUNCTION REV$ (S$)
CLS
INPUT "ENTER ANY STRING"; S$
PRINT "PALINDROME WORD IS ";REV$(S$)
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

Prime or composite.(SUB)

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

Factorial.(FUNCTION)

DECLARE FUNCTION FACT(N)
CLS
INPUT"ENTER ANY NUMBER";N
PRINT"FACTORIAL NO.=";FACT(N)
END

FUNCTION FACT(N)
F=1
FOR I= 1 TO N
F=F*I
NEXT I
PRINT"FACTORIAL=";F
END SUB

Positive or negative.(SUB)

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.(SUB)

DECLARE SUB SERIES()
CLS
CALL SERIES
END

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

Calculate distance travelled by body.(FUNCTION)

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

FUNCTION DIS(V,T,A)
S=V*T+1/2*A*T^2
DISTANCE=S
END FUNCTION

Print only vowels from a given word.(SUB)

DECLARE SUB DISPLAY(N$)
CLS
INPUT"ENTER ANY NUMBER";N$
CALL DISPLAY(N$)
END

SUB DISPLAY"(N$)
FOR I=1 TOO LEN(N$)
B$=MID$(N$,I,1)
C$=UCASE$(B$)
IF C$="A" OR C$"E" OR C$="I"  OR C$="I" OR C$="O" OR C$="U" THEN D$=D$+B$
NEXT I
PRINT"VOWELS=";D$
END SUB

Volume of box.(FUNCTION)

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

To check whether the given no. is divisible by 13 or not.(SUB)

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 DIVISIBLE BY 13"

ELSE

PRINT"THE NO. IS NOT DIVISIBLE BY 13'

END IF 

END SUB

Circumference of circle.(SUB)

DECLARE SUB CIR(R)
CLS
INPUT"ENTER RADIUS";R
CALL SUB CIR(R)
END

SUB CIR(R)
C=2*22/7*R
PRINT"CIRCUMFERENCE OF CIRCLE IS ";C
END SUB

Area of 4 walls.(FUNCTION)

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

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

Area of a box.(FUNCTION)

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

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

Display greatsest among three numbers.(SUB)

DECLARE SUB GREAT (A,B,C)

CLS

INPUT"ENTER ANY NO. ";A
INPUT"ENTER ANY NO."; B
INPUT"ENTER ANY NO.";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

Display 1,1,2,3,5,8...up to ten terms.(SUB)

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

Print natural no. from 1 TO 5.(SUB)

DECLARE SUB SERIES()
CLS
CALL SERIES()
END

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

Print simple interest.(FUNCTION)

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

Convert temperature in celsius in farenheit.(FUNCTION)

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

Sum of digits.(SUB)

DECLARE SUB SUM(N)
CLS
INPUT"ENTER ANY NO.";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 IS ";S
END SUB

Input string and count total no. of consonants.(FUNCTION)

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

Print first ten odd numbers.(SUB)

DECLARE SUB SERIES()
CLS
CALL SERIES
END

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

Volume of cylinder.(FUNCTION)

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

Area of triangle.(FUNCTION)

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

Display reverse of input string.(SUB)

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

Count total no.of vowels in a word.(FUNCTION)

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,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

Area of 4 walls.(SUB)

DECLARE SUB AREA(L,B,H)
CLS
INPUT"ENTER LENGTH";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 4 WALLS =";A
END SUB

Count total no.of words in a sentence.(FUNCTION)

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

Area of circle.(SUB)

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

To find Average of three numbers.(FUNCTION)

DECLARE FUNCTION AVG(A,B,C)
CLS
INPUT"ENTER ANY NUMBERS";A
INPUT"ENTER ANY NUMBER";B
INPUT"ENTER ANY NUMBER";C
PRINT"AVERAGE OF THREE NUMBERS=";AVG(A,B,C)
END

FUNCTION AVG(A,B,C)
AV=(A+B+C)/3
AVG=AV
END FUNCTION

Print total no of vowels in a given word. (Sub)

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 “THE TOTAL NO. OF VOWELS IS “;C

END SUB