12 lines
206 B
Text
12 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
|