Function definition: Difference between revisions
m
Dialects of BASIC moved to the BASIC section. QuickBASIC moved to its alphabetical position.
Langurmonkey (talk | contribs) |
m (Dialects of BASIC moved to the BASIC section. QuickBASIC moved to its alphabetical position.) |
||
Line 662:
=={{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}}===
Line 770 ⟶ 764:
<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}}===
Line 958 ⟶ 966:
{{out}}
<pre> 3.703680038452148</pre>
▲{{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}}===
Line 1,047 ⟶ 1,063:
return a * b
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}}===
Line 1,827 ⟶ 1,850:
let multiply (x: i32, y: i32) : i32 = x * y
</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}}==
Line 3,609 ⟶ 3,618:
<syntaxhighlight lang="scheme">(define multiply
(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}}==
| |||