P\left( X=k  \right)=\binom{n}{k} p^{k}\left( 1-p  \right) ^{n-k}

f\left(  x \right) =\frac{1}{\sqrt{2\pi}×\sqrt{np\left( 1-p  \right) }}×e^{-\frac{1}{2}× \frac{{\left(x-np\right)}^{2}}{np\left(  1-p \right) }  }

n = 100 (slider from 1 to 200, step 1)
p = 0.5 (slider from 0.02 to 0.98, step 0.02)
liste1 = Sequence(BinomialDist[n, p, k, false], k, 0, n)
b = Element(liste1, 1)
f(x) = (1 / sqrt(((((2 * π) * n) * p) * (1 - p))) * exp(((-0.5) * ((x - (n * p)) / sqrt(((n * p) * (1 - p))))^(2))))
liste2 = Sequence(Segment[(k, 0), (k, Element[liste1, k + 1])], k, 0, n)
a = Segment(((n * p), 0), ((n * p), 1 / sqrt(((((2 * π) * n) * p) * (1 - p)))))