
9-4
9.3 User Function
DEF FN (Statement) [Conforms to SLIM]
Function
Declares a user-defined function.
Format
DEF FN <Function name>[<Postposition>] = <Constant>
DEF FN <Function name>[<Postposition>](<Argument>[,<Argument>...]) =
<Arithmetic expression>
Explanation
This statement declares a <Function name> starting with FN as the user
defined function.
Designate a variable name used in <Arithmetic expression> for <Argument>.
<Postposition> can be ignored. However, if it is added the variable type can be
declared with it. For postpositions, the following can be used.
Integer type postposition: %
Single precision type postposition: !
Double precision type postposition: #
Character string type postposition: $
If the postposition is ignored, the single precision real type is applied.
A different variable type with the same variable name cannot be declared.
Example
DEF FND$ = “DENSO” 'Declares FND$ as a user defined function.
DEF FNLAP# (radius) = 2 * PI * radius 'Declares FNLAP# (radius) as a user defined
'function of the double precision real type.
DEF FNAREA (radius) = PI * POW(radius, 2)
'Declares FNAREA (radius) as user defined
'function of the single precision real type.
PRINT #1, FND$ 'Outputs “DENSO” from ch1.
PRINT #2, HANKEI
PRINT #1, FNLAP# (HANKEI) 'Outputs the value of (2 * PI * HANKEI) from
'ch1.
PRINT #2, FNAREA (HANKEI) 'Outputs the value of (PI * POW(HANKEI, 2)
'from ch2.
Commenti su questo manuale