13 lines
206 B
Text
13 lines
206 B
Text
|
10 DEF FN r(x)=1/x
|
||
|
|
20 LET f$="FN r(i)"
|
||
|
|
30 LET lo=1: LET hi=100
|
||
|
|
40 GO SUB 1000
|
||
|
|
50 PRINT temp
|
||
|
|
60 STOP
|
||
|
|
1000 REM Evaluation
|
||
|
|
1010 LET temp=0
|
||
|
|
1020 FOR i=lo TO hi
|
||
|
|
1030 LET temp=temp+VAL f$
|
||
|
|
1040 NEXT i
|
||
|
|
1050 RETURN
|