使用While循环和FindRoot

Question

我想使用While循环和FindRoot函数来估计根。

`xroot = FindRoot[x Cos[x] == 0, {x, 2}];
itercnt == 0;
iterlimit == 10000;
While[f[x] > 10^{-5} && itercnt < iterlimit,
    x - f[x]/f'[x]; itercnt++]`

我只能做一次，但是我想做任意多次。因此，请对我的代码以及如何简化代码提出建设性的批评。