DEF FN Statement Example
◄Example► ◄Contents► ◄Index► ◄Back►
──────────────────────────────────────────────────────────────────────────────
' This example uses a DEF FN function to calculate the factorial of an
' integer (for example, the factorial of 3 is 3*2*1).
' To try this example:
' 1. Choose New Project from the file menu
' 2. Copy the code example below to the code window
' 3. Press F5 to run the example
CLS ' Clear the screen
DEF FNFactorial# (X%)
STATIC Tmp#, I%
Tmp# = 1
FOR I% = 2 TO X%
Tmp# = Tmp# * I%
NEXT I%
FNFactorial# = Tmp#
END DEF
INPUT "Enter an integer: ", Num%
PRINT : PRINT Num%; "factorial is"; FNFactorial#(Num%)