Program Binomial

Distribusi binomial adalah suatu distribusi untuk memperoleh banyaknya sukses dalan n kali percobaan.
Rumus dari distribusi bernoulli adalah

Keterangan :
x= banyaknya kuberhasilan dalam peubah acak X
n= banyaknya percobaan
p= peluang keberhasilan dalam setiap percobaan
q= peluang gagal dalam setiap kali percobaan

program binomial;
uses wincrt;
var i, j, k, n, x: longint;
a,b,c,d,e,p:real;
begin
readln(n);
readln(x);
readln(p);
a:=1;b:=1;c:=1;d:=1;e:=1;
for i:=1 to n do
a:=a*i;
for j:=1 to x do
begin
b:=b*j;
c:=c*p;
end;
for k:=1 to (n-x) do
begin
d:=d*k;
e:=e*(1-p);
end;
writeln(a/(b*d)*c*e:0:4)
end.

Hasil :

Jadi untuk n=4; x=3; p=0,7 diperoleh hasil 0,4116