Jensen's Device: Difference between revisions
Jensen's Device en Yabasic
(Jensen's Device en FreeBASIC) |
(Jensen's Device en Yabasic) |
||
Line 1,650:
5.1873775176396
</pre>
=={{header|Yabasic}}==
{{trans|FreeBASIC}}
<lang Yabasic>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
Evaluation()</lang>
{{out}}
<pre>
5.18738
</pre>
=={{header|zkl}}==
| |||