QBASIC PROGRAM TO FIND FACTORIAL(FUNCTION)
DECLARE FUNCTION FACTORIAL(N)
CLS
INPUT "ENTER ANY NUMBER";N
PRINT "FACTORIAL=";FACTORIAL(N)
END
FUNCTION FACTORIAL(N)
F=1
FOR I= 1 TO N
F=F*I
NEXT I
FACTORIAL=F
END FUNCTION
CLS
INPUT "ENTER ANY NUMBER";N
PRINT "FACTORIAL=";FACTORIAL(N)
END
FUNCTION FACTORIAL(N)
F=1
FOR I= 1 TO N
F=F*I
NEXT I
FACTORIAL=F
END FUNCTION
Very nice blog design. Please visit my blog. Seminaryclasses.blogspot.com
ReplyDelete