Program Pascal Binomial

program binomial;
uses wincrt;
var p,a,b,c,d,e:real ;
i,j,k,n,x:longint;
begin
writeln ('jumlah data');readln(n);
writeln ('yang sukses');readln(x);
writeln ('persentase sukses');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 ('hasilnya');
writeln(a/(b*d)*c*e:0:4);

end.

Posted in: binomial, pascal, program pascal, program pascal binomial, turbo pascal