11 lines
154 B
Text
11 lines
154 B
Text
|
subroutine Evaluation()
|
||
|
|
lo = 1 : hi = 100 : temp = 0
|
||
|
|
for i = lo to hi
|
||
|
|
temp += (1/i) ##r(i)
|
||
|
|
next i
|
||
|
|
print temp
|
||
|
|
end subroutine
|
||
|
|
|
||
|
|
call Evaluation()
|
||
|
|
end
|