One way to visualize the effect of the steepness of the ramp is to graph the
distance that the block will travel in (say) five seconds as a function of
theta. How could you do that?

Click here for an answer.

Plot[
distance[5, theta], {theta, 0,Pi/2},
PlotLabel -> "Frictionless Motion"];