P(X\, \leq\, k) \, =

f(p)=P^{n}_p(X \leq k)

p = 0.32 (slider from 0 to 1, step 0.01)
n = 15 (slider from 1 to 200, step 1)
q: 1 - p
a = BarChart(-0.5, n + 0.5, Sequence[Binomial[n, k] * p^(k) * q^(n - k), k, 0, n])
k = 5 (slider from 0 to 200, step 1)
m: k
b = BarChart(-0.5, m + 0.5, Sequence[Binomial[n, k] * p^(k) * q^(n - k), k, 0, m])
cdf = Sum(Sequence[Binomial[n, k] * p^(k) * q^(n - k), k, 0, m])
Text["P(X<=k) = " + cdf]: cdf
Text1 = Text(cdf)
f = If(0 ≤ x ≤ 1, Sum[Sequence[Binomial[n, i] * x^(i) * (1 - x)^(n - i), i, 0, k]])