学步园

【题意】

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.