6.38 How to make listplot

one way

p = Plot[Sin[x], {x, 0, Pi}, MaxRecursion -> 0, 
         PlotPoints -> 10]; 
data = Cases[Normal[p], x_Line :> First[x], Infinity]; 
Show[p, ListPlot[data, PlotStyle -> Red]]