p = 0.6 (slider from 0.01 to 0.99, step 0.01)
n = 50 (slider from 30 to 150, step 1)
a = BarChart(Sequence[k, k, 0.0, n], Sequence[Binomial[n, k] * p^(k) * (1.0 - p)^(n - k), k, 0.0, n], 0.2)
b = BarChart(Sequence[k, k, -1.0 * n * p, n - n * p], Sequence[Binomial[n, k] * p^(k) * (1.0 - p)^(n - k), k, 0.0, n], 0.2)
σ: sqrt(n * p * (1.0 - p))
c = BarChart(Sequence[(i - n * p) / σ, i, 0.0, n], Sequence[Binomial[n, k] * p^(k) * (1.0 - p)^(n - k), k, 0.0, n], 0.2)