Jensen's Device: Difference between revisions
Grouping BASIC dialects
(Added various BASIC dialects (Applesoft BASIC, Chipmunk Basic, Gambas, GW-BASIC, Minimal BASIC, MSX Basic, QBasic, QB64, Quite BASIC, Run BASIC and True BASIC)) |
(Grouping BASIC dialects) |
||
Line 346:
190 print temp
200 end sub</syntaxhighlight>
==={{header|Craft Basic}}===
<syntaxhighlight lang="basic">precision 4
define lo = 1, hi = 100, temp = 0
for i = lo to hi
let temp = temp + (1 / i)
wait
next i
print temp</syntaxhighlight>
{{out| Output}}<pre>5.1873</pre>
==={{header|FreeBASIC}}===
<syntaxhighlight lang="vbnet">Sub Evaluation
Dim As Integer i, lo = 1, hi = 100
Dim As Double temp = 0
For i = lo To hi
temp += (1/i) ''r(i)
Next i
Print temp
End Sub
Evaluation
Sleep</syntaxhighlight>
{{out}}
<pre>5.187377517639621</pre>
==={{header|FutureBasic}}===
<syntaxhighlight lang="futurebasic">local fn JensensDevice( lo as long, hi as long ) as double
double i, temp = 0.0
for i = lo to hi
temp = temp + (1/i)
next
end fn = temp
print fn JensensDevice( 1, 100 )
HandleEvents</syntaxhighlight>
{{output}}
<pre>5.187377517639621</pre>
==={{header|Gambas}}===
Line 405 ⟶ 449:
{{works with|MSX BASIC|any}}
Same code as [[#GW-BASIC|GW-BASIC]]
==={{header|PureBasic}}===
{{trans|C}}
<syntaxhighlight lang="purebasic">Prototype.d func()
Global i
Procedure.d Sum(*i.Integer, lo, hi, *term.func)
Protected Temp.d
For i=lo To hi
temp + *term()
Next
ProcedureReturn Temp
EndProcedure
Procedure.d term_func()
ProcedureReturn 1/i
EndProcedure
Answer.d = Sum(@i, 1, 100, @term_func())</syntaxhighlight>
==={{header|QBasic}}===
Line 466 ⟶ 530:
0 OK, 0:313 </pre>
==={{header|Yabasic}}===
{{trans|FreeBASIC}}
<syntaxhighlight lang="yabasic">Evaluation()
end
sub Evaluation()
lo = 1 : hi = 100 : temp = 0
for i = lo to hi
temp = temp + (1/i) //r(i)
next i
print temp
end sub</syntaxhighlight>
{{out}}
<pre>5.18738</pre>
==={{header|ZX Spectrum Basic}}===
<syntaxhighlight lang="qbasic">10 DEF FN r(x)=1/x
20 LET f$="FN r(i)"
30 LET lo=1: LET hi=100
40 GO SUB 1000
50 PRINT temp
60 STOP
1000 REM Evaluation
1010 LET temp=0
1020 FOR i=lo TO hi
1030 LET temp=temp+VAL f$
1040 NEXT i
1050 RETURN </syntaxhighlight>
{{out}}
<pre>5.1873775</pre>
=={{header|Bracmat}}==
Line 618 ⟶ 713:
CL-USER> (float (sum i 1 100 (/ 1 i)))
5.1873775</syntaxhighlight>
=={{header|D}}==
Line 928 ⟶ 1,008:
Incidentally, a subroutine such as TEST(A,B) invoked as TEST(X,X) enables the discovery of copy-in, copy-out parameter passing. Within the routine, modify the value of A and look to see if B suddenly has a new value also.
=={{header|Go}}==
Line 1,596 ⟶ 1,639:
Output:
<pre>-> "5.187383"</pre>
=={{header|Python}}==
Line 2,096 ⟶ 2,119:
5.1873775176396
</pre>
=={{header|zkl}}==
Line 2,140 ⟶ 2,146:
5.187378
5.187378
</pre>
| |||