13 lines
207 B
Text
13 lines
207 B
Text
|
evalx(prog, a, b)
|
|||
|
|
Func
|
|||
|
|
Local x,eresult1,eresult2
|
|||
|
|
a→x
|
|||
|
|
expr(prog)→eresult1
|
|||
|
|
b→x
|
|||
|
|
expr(prog)→eresult2
|
|||
|
|
Return eresult2-eresult1
|
|||
|
|
EndFunc
|
|||
|
|
|
|||
|
|
■ evalx("ℯ^x", 0., 1)
|
|||
|
|
1.71828
|