p = 0.24 (slider from 0 to 1, step 0.01)
n = 100 (slider from 1 to 200, step 1)
q: 1 - p
a = BarChart(-0.5, n + 0.5, Sequence[((nCr[n, k] * p^(k)) * q^(n - k)), k, 0, n])
l: floor((n * p) - (2 * sqrt(((n * p) * q))))
b = BarChart(-0.5, l + 0.5, Sequence[((nCr[n, k] * p^(k)) * q^(n - k)), k, 0, l])
r: ceil((n * p) + (2 * sqrt(((n * p) * q))))
c = BarChart(r - 0.5, n + 0.5, Sequence[((nCr[n, k] * p^(k)) * q^(n - k)), k, r, n])
rr: r - 1
ll: l + 1
Text2 = Text("G. Roolfs")
Ul: (n * p) - (2 * sqrt(((n * p) * q)))
Ur: (n * p) + (2 * sqrt(((n * p) * q)))
Text3: "[\mu - 2 \sigma; \mu+ 2 \sigma] = [" + (LaTeX[Ul]) + ";" + (LaTeX[Ur]) + "]"
Text1 = Text("2σ-Umgebung = [" + ll + " ; " + rr + "]                          ganzzahlige Ergebnisse aus")
P: BinomialDist[n, p, rr, true] - BinomialDist[n, p, ll - 1, true]
Text4: "P(" + (LaTeX[ll]) + " \leq X \leq " + (LaTeX[rr]) + ") \approx " + (LaTeX[P]) + ""