Plot[Piecewise[{{(8*p^3), 0 <= p <= 0.5}, {1 , p>0.5}}], {p,0,1}]