Comparing Binomial and Normal Distributions

TableForm[Table[
{x,PDF[BinomialDistribution[n,p],x],PDF[NormalDistribution[n*p*1.0,(Sqrt[n*p*(1-p)])],x]},{x,0,n}]/.{n->5,p->.2}]

approxGraph[n_, p_,maxX_,maxY_]:=Show[
ListPlot[Table[{x,PDF[BinomialDistribution[n,p],x]},
{x,0,n}],
PlotStyle->{PointSize[.02],Red},
PlotRange->{{0,maxX},{0,maxY}}   ],
Plot[PDF[NormalDistribution[n*p,(Sqrt[n*p*(1-p)])],x],
{x,0,2*n},PlotRange->{{0,maxX},{0,maxY}}],
PlotLabel->StringJoin["n=",ToString[n],", p=",ToString[p]]
];

approxGraph[20,.1,20,.5]

approxGraph[20,.9,20,.5]

approxGraph[20,.9,40,.5]

Manipulate[approxGraph[n,.2,40,.5],{n,5,100,10}]

Manipulate[approxGraph[n,.8,100,.5],{n,5,100,10}]

n=20;p=.4;
Print["n = ",n,".    p = ",p,"     μ = ",n*p,
"     σ = ",(Sqrt[n*p*(1-p)])]
TableForm[Table[
{x,PDF[BinomialDistribution[n,p],x],
PDF[NormalDistribution[n*p,(Sqrt[n*p*(1-p)])],x]},
{x,0,n}]]
Clear[n,p]

Manipulate[approxGraph[n,p,100,.5],{n,5,100,10},{p,.1,.9,.05}]