78. Qbasic program to calculate the factorial of an input number.

78.      Write a program source code using FUNCTION.....END FUNCTION to calculate the factorial of an input number.

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