Jensen's Device: Difference between revisions
Content added Content deleted
(Jensen's Device en Yabasic) |
(Jensen's Device en BASIC256) |
||
| Line 212: | Line 212: | ||
</lang> |
</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}}== |
=={{header|BBC BASIC}}== |
||