1. 先确定x的值域
   因为 e^x > 0 所以  x < 0
   因为 e^x < 1 所以  x < -1
   也就是说 x 的值域是(-1,0)
2. 我不记得我是忘了什么是牛顿迭代法，
           还是根本没学过牛顿迭代法了。
   不过反正目的差不多，就随便猜猜

DEFDBL A-Z
l = -.9
r = 0
DO
  x = (r + l) / 2
  y = x + EXP(x)
  IF y > 0 THEN r = x ELSE l = x
LOOP UNTIL r - l < 1D-15          '精度
PRINT x