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
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
No comments:
Post a Comment