Euler method: Difference between revisions
→{{header|BBC BASIC}}
Drkameleon (talk | contribs) (added Arturo) |
Basicgames (talk | contribs) |
||
Line 314:
100.000 20.000
</pre>
==={{header|Craft BASIC}}===
<syntaxhighlight lang="basic">'euler method example
precision 4
let s = 2
gosub euler
let s = 5
gosub euler
let s = 10
gosub euler
end
sub euler
cls
cursor 1, 1
wait
print "step: ", s
let b = 100
let y = 100
for t = 0 to b step s
print t, " : ", y
let y = y + s * (-0.07 * (y - 20))
gosub delay
next t
alert "step ", s, " finished"
return
sub delay
let w = clock
do
wait
loop clock < w + 200
return</syntaxhighlight>
==={{header|FreeBASIC}}===
|