e = 12 (slider from -5 to 12, step 0.1)
g = 4 (slider from -5 to 5, step 1)
liste1 = Sequence(If[Random[1, e] ≤ g, 1, 0], i, 1, 1000)
wahrscheinlichkeit: Sum[liste1] / 1000