Wap to find factorial of given no.
DECLARE FUNCTION factorial (n)
CLS
INPUT "Enter a number"; n
PRINT "The factorial of the given number is"; factorial(n)
END
FUNCTION factorial (n)
f = 1
FOR i = 1 TO n
f = f * i
NEXT i
factorial = f
END SUB
No comments:
Post a Comment