Plot[Sin[x]/x, {x,0,100}]