X suit B(n,p)

X-m

Z_n=(X-m)/σ

F=X/n

p = 0.3 (slider from 0 to 1, step 0.01)
n = 30 (slider from 5 to 200, step 1)
s: sqrt(n * p * (1 - p))
d = true
h = false
i = false
e = false
m: n * p
Liste_{CR} = Sequence((k - m) / s, k, 0, n, 1)
Liste_P = Sequence(BinomialDist[n, p, k, false], k, 0, n, 1)
Liste_C = Sequence(k - m, k, 0, n, 1)
Liste_{val} = Sequence(k, k, 0, n, 1)
a = BarChart(Liste_{val}, Liste_P, 0)
b = BarChart(Liste_C, Liste_P, 0)
Liste_F = Sequence(k / n, k, 0, n, 1)
ff = BarChart(Liste_F, Liste_P, 0)
c = BarChart(Liste_{CR}, Liste_P, 0)