Manipulate[ListPlot[Table[PDF[BinomialDistribution[20,y],x],{x,0,20}],PlotRange->{{0,20},{0,0.4}},
 ImageSize->{480,320},PlotStyle->PointSize[0.01]],{y,0.05,0.95}]

Manipulate[ListPlot[Table[CDF[BinomialDistribution[20,y],x],{x,0,20} ],PlotRange->{{0,20},{0,1}},
 ImageSize->{480,320},PlotStyle->PointSize[0.01],Joined-> True],{y,0.01,0.99}]

Manipulate[{ListPlot[Table[PDF[BinomialDistribution[20,y],x],{x,0,20} ],PlotRange->{{0,20},{0,1}},
 ImageSize->{480,320},PlotStyle->PointSize[0.01],Joined-> False],ListPlot[Table[CDF[BinomialDistribution[20,y],x],{x,0,20} ],PlotRange->{{0,20},{0,1}},
 ImageSize->{480,320},PlotStyle->PointSize[0.01],Joined-> False]},{y,0.01,0.999}]