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