poj2151

【题意】

m道题，t个队伍，给出每个队伍做对每道题的概率，求每个队伍起码做出来一道题，冠军至少做出来n道题的概率

【输入】

多组数据

每组数据第一行为m,t,n

接下来是一个t*n的矩阵，表示每个队伍做出每道题的概率

数据以一行三个0结束

【输出】

对于每组数据，输出一个保留三位小数四舍五入的概率

没什么说的

program poj2151;var  n,m,t,i,j,k:longint;  ans,temp,all:double;  p:array [0..1001,0..31] of double;  f:array [0..31,0..31] of double;begin  repeat    read(m,t,n);    if (m=0)and(t=0)and(n=0) then break;    for i:=1 to t do      for j:=1 to m do        read(p[i,j]);    ans:=1;    all:=1;    for i:=1 to t do      begin        fillchar(f,sizeof(f),0);        f[0,0]:=1;        for j:=1 to m do          begin            for k:=0 to j-1 do              f[j,k]:=f[j,k]+f[j-1,k]*(1-p[i,j]);            for k:=1 to j do              f[j,k]:=f[j,k]+f[j-1,k-1]*p[i,j];          end;        ans:=ans*(1-f[m,0]);        temp:=0;        for j:=1 to n-1 do          temp:=temp+f[m,j];        all:=all*temp;      end;    ans:=ans-all;    writeln(round(ans*1000)/1000:0:3);  until false;end.