Factor using sub

DECLAFE SUB FACTOR(N)

CLS

INPUT"ENTER ANY NO";N

CALL FACTOR(N)

END

SUB FACTOR(N)

FOR I=1 TO N

IF  N MOD I=0 THEN PRINT I

NEXT I 

END SUB

Factorial using function

DECLARE FUNCTION FACT(N)
CLS
INPUT"ENTER ANY NO";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

Palindrome no of string

DECLARE SUB PAL(N$)

CLS

INPUT"ENTER ANY WORD";H$

CALL PAL(N$)

END

SUB PAL(N$)

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

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

C$=C$+B$

NEXT I

IF N$=C$ THEN

PRINT"THE GIVEN WORD IS PALINDROME"

ELSE

PRINT"THE GIVEN WORD IS NOT PALINDROME"

END IF

END SUB

Armstrong no

DECLARE SUB A(N)

CLS

INPUT"ENTER ANY NO";N

CALL A(N)

END

SUB A(N)

S=0

A=N

WHILE N<>0

R=N MOD 10

S=S+R^3

N=N\10

WEND

IF A=S THEN

PRINT"THE GIVEN NNO IS ARMSTRONG";

ELSE

PRINT"THE GIVEN NO IS NOT ARMSTRONG"

END IF

END SUB

Display 9,7,5,.....1using sub

DECLARE SUB SERIES()
CLS
CALL SERIES
END

SUB SERIES
FOR I=9TO 1
PRINT I
NEXT I
END SUB

Distance traveled by body

DECLARE FUNCTION DISTANCE(A,T,U)

CLS

INOUT"ENTER ACCELAERATION";A

INPUT"ENTER TIME";T

INPUT"ENTER INITIAL VELOCITY";U

PRINT"DISTANCE TRAVALLED BY BODY";DISTANCR(A,T,U)

END

FUNCTION DISTANCE(A,T,U)

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

DISTANCE=S

END FUNCTION

Print only bowel from a given word using sub

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

SUB DISP(N$)
FOR I=1 TO LEN(N$)
B$=MID$(N$,I,1)
C$=UCASE$(B$)
IF C$="A" OR C$="E"ORC$="I"ORC$="O"ORC$="U" THEN V$=V$+B$
NEXT I
PRINT"VOWEL";V$
END SUB

Volume of box using 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
VOL=V
END FUNCTION

To check whether the given no is completely divisible by 13 or not using 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 GIVEN NO IS DIVISIBAL BY 13"
ELSE
PRINT"THE GIVEN NO IS NOT DIVIDIBAL BY 13"
END IF
END SUB

Circumference of circle using sub

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

Area of 4wall using function

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

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