12 lines
183 B
Text
12 lines
183 B
Text
|
100 call evaluation
|
||
|
|
110 end
|
||
|
|
120 sub evaluation()
|
||
|
|
130 lo = 1
|
||
|
|
140 hi = 100
|
||
|
|
150 temp = 0
|
||
|
|
160 for i = lo to hi
|
||
|
|
170 temp = temp+(1/i)
|
||
|
|
180 next i
|
||
|
|
190 print temp
|
||
|
|
200 end sub
|