Function definition: Difference between revisions
m
no edit summary
Langurmonkey (talk | contribs) |
LalaithMeren (talk | contribs) mNo edit summary |
||
| (3 intermediate revisions by 2 users not shown) | |||
Line 662:
=={{header|BASIC}}==
{{works with|QBasic}}▼
In ANSI BASIC, functions can be defined as either formulas or multi-line external or internal subroutines. External functions are independent program units that can be called from within the program. Internal functions are considered part of the program unit they are contained in and can only be called from within that unit. External functions do not share any information with other program units and exchange information through parameters and returned values. Internal functions share everything with their surrounding program unit except for their parameters. Internal functions do not have local variables.
<syntaxhighlight lang="qbasic">DECLARE FUNCTION multiply% (a AS INTEGER, b AS INTEGER)▼
{{works with|Decimal BASIC}}
FUNCTION multiply% (a AS INTEGER, b AS INTEGER)▼
100 DEF Multiply(A,
120 DECLARE EXTERNAL FUNCTION MultiplyE
130 PRINT Multiply(3, 1.23456)
140 PRINT MultiplyI(3, 1.23456)
150 PRINT MultiplyE(3, 1.23456)
160 FUNCTION MultiplyI(X, Y)
170 LET MultiplyI = X * Y
180 END FUNCTION
190 END
200 EXTERNAL FUNCTION MultiplyE(A, B)
210 LET MultiplyE = A * B
220 END FUNCTION
{{out}}
<pre>▼
3.70368
3.70368
3.70368
</pre>▼
==={{header|Applesoft BASIC}}===
Line 770 ⟶ 788:
<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 )▼
Output:▼
<pre>
27▼
</pre>
==={{header|Gambas}}===
Line 958 ⟶ 990:
{{out}}
<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)
==={{header|REALbasic}}===
Line 1,047 ⟶ 1,087:
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,172 ⟶ 1,219:
return a*b;
}</syntaxhighlight>
=={{header|Chapel}}==
<syntaxhighlight lang="text">
proc multiply(a, b)
{
return a * b;
}
</syntaxhighlight>
Can require that the two arguments be of the same type.
<syntaxhighlight lang="text">
proc multiply(a : ?t ... 2)
{
return a(0) * a(1)
}
</syntaxhighlight>
Will work on any type where the * operator is defined.
=={{header|ChucK}}==
Line 1,827 ⟶ 1,893:
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 2,157 ⟶ 2,209:
Parameters are defined within parentheses after the fn token. To specify no parameters, use an empty set of parentheses.
<syntaxhighlight lang="langur">val .multiply = fn(.x, .y) { .x * .y }
▲.multiply(3, 4)</syntaxhighlight>
.multiply(3, 4)</syntaxhighlight>
Line 3,609 ⟶ 3,656:
<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}}==
| |||