10 lines
194 B
Text
10 lines
194 B
Text
local fn JensensDevice( lo as long, hi as long ) as double
|
|
double i, temp = 0.0
|
|
for i = lo to hi
|
|
temp = temp + (1/i)
|
|
next
|
|
end fn = temp
|
|
|
|
print fn JensensDevice( 1, 100 )
|
|
|
|
HandleEvents
|