program binomial;
uses wincrt;
var
n,x,i,a,b,d:longint;
p,c,e,binom:real;
begin
writeln('input:');
write('n:');readln(n);
write('x:');readln(x);
write('p:');readln(p);
a:=1;b:=1;c:=1;d:=1;e:=1;
for i:=1 to n do
a:=a*i;
for i:=1 to n-x do
begin
b:=b*i;
c:=c*(1-p);
end;
for i:=1 to x do
begin
d:=d*i;
e:=e*p;
end;
binom:=(a/(b*d))*e*c;
writeln('nilai binomial:',binom:0:5);
end.
0 comments:
Post a Comment