Function definition: Difference between revisions

Content added Content deleted
m (Dialects of BASIC moved to the BASIC section. QuickBASIC moved to its alphabetical position.)
Line 662: Line 662:


=={{header|BASIC}}==
=={{header|BASIC}}==
{{works with|QBasic}}
<syntaxhighlight lang="qbasic">DECLARE FUNCTION multiply% (a AS INTEGER, b AS INTEGER)

FUNCTION multiply% (a AS INTEGER, b AS INTEGER)
multiply = a * b
END FUNCTION</syntaxhighlight>


==={{header|Applesoft BASIC}}===
==={{header|Applesoft BASIC}}===
Line 770: Line 764:


<syntaxhighlight lang="freebasic">#Define multiply(d1, d2) (d1) * (d2)</syntaxhighlight>
<syntaxhighlight lang="freebasic">#Define multiply(d1, d2) (d1) * (d2)</syntaxhighlight>

==={{header|FutureBasic}}===
<syntaxhighlight lang="futurebasic">window 1

local fn multiply( a as long, b as long ) as long
end fn = a * b

print fn multiply( 3, 9 )

HandleEvents</syntaxhighlight>
Output:
<pre>
27
</pre>


==={{header|Gambas}}===
==={{header|Gambas}}===
Line 958: Line 966:
{{out}}
{{out}}
<pre> 3.703680038452148</pre>
<pre> 3.703680038452148</pre>

==={{header|QuickBASIC}}===
{{works with|QBasic}}
<syntaxhighlight lang="qbasic">DECLARE FUNCTION multiply% (a AS INTEGER, b AS INTEGER)

FUNCTION multiply% (a AS INTEGER, b AS INTEGER)
multiply = a * b
END FUNCTION</syntaxhighlight>


==={{header|REALbasic}}===
==={{header|REALbasic}}===
Line 1,047: Line 1,063:
return a * b
return a * b
end sub</syntaxhighlight>
end sub</syntaxhighlight>

==={{header|Xojo}}===
<syntaxhighlight lang="vbnet">Function Multiply(ByVal a As Integer, ByVal b As Integer) As Integer
Return a * b
End Function</syntaxhighlight>
Call the function
<syntaxhighlight lang="vbnet">Dim I As Integer = Multiply(7, 6)</syntaxhighlight>


==={{header|ZX Spectrum Basic}}===
==={{header|ZX Spectrum Basic}}===
Line 1,827: Line 1,850:
let multiply (x: i32, y: i32) : i32 = x * y
let multiply (x: i32, y: i32) : i32 = x * y
</syntaxhighlight>
</syntaxhighlight>

=={{header|FutureBasic}}==
<syntaxhighlight lang="futurebasic">window 1

local fn multiply( a as long, b as long ) as long
end fn = a * b

print fn multiply( 3, 9 )

HandleEvents</syntaxhighlight>
Output:
<pre>
27
</pre>


=={{header|GAP}}==
=={{header|GAP}}==
Line 3,609: Line 3,618:
<syntaxhighlight lang="scheme">(define multiply
<syntaxhighlight lang="scheme">(define multiply
(lambda (x y) (* x y)))</syntaxhighlight>
(lambda (x y) (* x y)))</syntaxhighlight>

=={{header|Xojo}}==
<syntaxhighlight lang="vbnet">Function Multiply(ByVal a As Integer, ByVal b As Integer) As Integer
Return a * b
End Function</syntaxhighlight>
Call the function
<syntaxhighlight lang="vbnet">Dim I As Integer = Multiply(7, 6)</syntaxhighlight>


=={{header|XPL0}}==
=={{header|XPL0}}==