Qbasic

Program to find the factors of a number using FUNCTION

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

FUNCTION FACT(N)
FOR I= 1 TO N
IF N MOD I=0 THEN
PRINT I
NEXT I
END FUNCTION

Program to check whether the given no is armstrong number or not using FUNCTION

DECLARE FUNCTION ARM(N)
CLS
INPUT"ENTER ANY NUMBER";N
A=P
P=ARM
IF A=P THEN
PRINT"The given no is armstrong"
ELSE
PRINT"The given no is not armstrong"
END IF
END

FUNCTION ARM(N)
S=0
WHILE N<>0
R=N MOD 10
S=S+R^3
N=N\10
WEND
ARM=S
END FUNCTION

Program to check whether the given word is palindrome string or not using FUNCTION

DECLARE FUNCTION PAL$(N$)
CLS
INPUT"ENTER ANY WORD";N$
P$=PAL$(N$)
IF N$=P$ THEN
PRINT"The given word is palindrome"
ELSE
PRINT"The given word is not palindrome"
END

FUNCTION PAL$(N$)
FOR I= LEN$(N$) TO 1 STEP -1
B$= MID$(N$,I,1)
C$=C$+B$
NEXT I
PAL$=C$
END FUNCITON

Program to check whether the given no is palindrome or not using FUNCTION

DECLARE FUNCTION PAL(N)
CLS
INPUT"ENTER ANY NUMBER";N
P=PAL((N))
IF N=P THEN
PRINT"The given no is palindrome"
ELSE
PRINT"The given no is not palindrome"
END IF
END

FUNCTION PAL(N)
S=0
WHILE N<>0
R= N MOD 10
S=S*10+R
N=N\10
WEND
PAL=S
END FUNCTION

Program to calculate distance using FUNCTION

DECLARE FUNCTION DISTANCE(A,U,T)
CLS
INPUT"ENTER ACCELERATION",A
INPUT"ENTER INITIAL VELOCITY";U
INPUT"ENTER TIME";T
PRINT"DISTANCE TRAVELLED=";DISTANCE(A,U,T)
END

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

Program to find factorial using FUNCTION

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

Program to print 9,7,5......1 using SUB

DECLARE SUB SERIES()
CLS
CALL SERIES
END

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

AREA OF BOX.(FUNCTION)

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

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