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