11 lines
194 B
Text
11 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
|