N integrate integration strategies introduction

NIntegrate[(1/Sqrt[Abs[x - 1]]), {x, 0, 2}]

7781.165464676946

points = Reap[NIntegrate[(1/Sqrt[Abs[x - 1]]), {x, 0, 2}, EvaluationMonitor :> Sow[x]]][[2, 1]];
Graphics[{PointSize[0.006], Point /@ N@Transpose[{points, Range[Length[points]]}]}, PlotRange -> All, AspectRatio -> 1, Axes -> True]

-Graphics-