Manipulate[TextCell["Binomialverteilung mit np=lambda"];
sigma=Sqrt[n p (1-p)];
ListPlot[Table[{k,PDF[BinomialDistribution[n,Min[1,lambda /n]],k]},{k,0,IntegerPart[4 lambda]}],Filling->Axis,PlotRange->All,PlotMarkers->{Automatic,Medium},Axes->{True,False}]
,{{n,10,"n"},3,300,1},{{lambda,5,"Erwartungswert: np=λ"},0,20,.25}]