Jensen's Device: Difference between revisions
Jensen's Device en BASIC256
(Jensen's Device en Yabasic) |
(Jensen's Device en BASIC256) |
||
Line 212:
</lang>
=={{header|BASIC256}}==
{{trans|FreeBASIC}}
<lang BASIC256>subroutine Evaluation()
lo = 1 : hi = 100 : temp = 0
for i = lo to hi
temp += (1/i) ##r(i)
next i
print temp
end subroutine
call Evaluation()
end</lang>
{{out}}
<pre>
5.18737751764
</pre>
=={{header|BBC BASIC}}==
|