>>366
特異点（？）の場所を指示して
　
NIntegrate[Sin[x]/x,{x,-1,0,1}]

あるいは解析解を求めてから数値化する
　
N[Integrate[Sin[x]/x,{x,-1,1}]]

ではどうでしょうか？