FACTORIAL

Q BASIC PROGRAM TO PRINT FACTORIAL OF A GIVEN NUMBER. 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