RosettaCodeData/Task/Function-definition/QBasic/function-definition.basic

13 lines
358 B
Plaintext

'This function could either be used for all numeric types
'(as they are implicitly convertible to Double)
FUNCTION multiply# (a AS DOUBLE, b AS DOUBLE)
multiply = a * b
END FUNCTION
'
' Alternatively, it can be expressed in abbreviated form :
'
DEF FNmultiply# (a AS DOUBLE, b AS DOUBLE) = a * b
PRINT multiply(3, 1.23456)
PRINT FNmultiply#(3, 1.23456)