17 lines
245 B
Text
17 lines
245 B
Text
local fn EulerConstant_e as double
|
|
UInt64 n = 1, n1 = 1
|
|
double e1 = 0, e = 1 / 1
|
|
|
|
while ( e <> e1 )
|
|
e1 = e
|
|
e = e + 1 / n
|
|
n1 = n1 + 1
|
|
n = n * n1
|
|
wend
|
|
end fn = e
|
|
|
|
window 1
|
|
|
|
print "Euler constant e = "; fn EulerConstant_e
|
|
|
|
HandleEvents
|