p = 0.32 (slider from 0 to 1, step 0.01)
n = 80 (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) - 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) + 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) - sqrt(((n * p) * q))
Ur: (n * p) + sqrt(((n * p) * q))
P: BinomialDist[n, p, rr, true] - BinomialDist[n, p, ll - 1, true]
Text4: "P(" + (LaTeX[ll]) + " \leq X \leq " + (LaTeX[rr]) + ") \approx " + (LaTeX[P]) + ""
Text1 = Text("1σ-Umgebung = [" + ll + " ; " + rr + "]                          ganzzahlige Ergebnisse aus")
Text3: "[\mu - 1 \sigma; \mu+1\sigma] = [" + (LaTeX[Ul]) + ";" + (LaTeX[Ur]) + "]"