Manipulate[DiscretePlot[PDF[BinomialDistribution[n,p],k]//Evaluate,{k,n},PlotRange->All,PlotMarkers->Automatic],{n,20,200,1},{p,0,1}]

Manipulate[DiscretePlot[PDF[BinomialDistribution[n,λ/n],k]//Evaluate,{k,80},PlotRange->All,PlotMarkers->Automatic],{n,60,6000,1},{λ,0.1,60}]

Manipulate[DiscretePlot[PDF[GeometricDistribution[p],k]//Evaluate,{k,100},PlotRange->All,PlotMarkers->Automatic],{p,0.01,1}]

Manipulate[DiscretePlot[PDF[NegativeBinomialDistribution[r,p],k]//Evaluate,{k,100},PlotRange->All,PlotMarkers->Automatic],{r,1,40,1},{p,0.01,1}]

Manipulate[DiscretePlot[PDF[HypergeometricDistribution[n,M,N],k]//Evaluate,{k,n},PlotRange->All,PlotMarkers->Automatic],{N,20,200,1},{M,0,N,1},{n,1,N,1}]

Manipulate[DiscretePlot3D[PDF[MultinomialDistribution[n,{1/3,1/3,1/3}],{x,y,n-x-y}],{y,0,n},{x,0,n},PlotLabel->Row[{"n = ",n}],ExtentSize->0.5],{n,3,40,1}]

Manipulate[DiscretePlot[PDF[PoissonDistribution[λ],k]//Evaluate,{k,100},PlotRange->All,PlotMarkers->Automatic],{λ,0.01,100}]