f = {IntegerPart, FractionalPart, Ceiling, Floor, Round, PrimePi,
NextPrime};
GraphicsGrid[
Partition[
Plot[{#[u], D[Evaluate@#[x], x] /. x -> u}, {u, 0, 3},
PlotLabel ->
Style[Framed[#], 16, Blue, Background -> Lighter[Yellow]]] & /@
f, 2], Frame -> All]