比赛 NOIP2008集训模拟2 评测结果 EEEEEEEEEEEEEEEEEEEE
题目名称 沙漠赛道 最终得分 0
用户昵称 name:弓虽 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2008-11-11 11:29:16
显示代码纯文本
program mirage(input,output);
 var
  i,j,k:longint;
  a1,a2,a3,a4,b1,b2,b3,b4:double;
  c1:double;  //z d
  c2:double;    // d d
  pingju,m:double;
  z,d,f,x:double;
  n,p:longint;
  ans:double;
  sum1,sum2:double;
begin
 assign(input,'mirage.in');
 assign(output,'mirage.out');
 reset(input);
 rewrite(output);
  readln(a1,a2,a3,a4);
  readln(b1,b2,b3,b4);
  readln(c1,c2);
  z:=(1-a1)*(1-a2)*(1-a3)*(1-a4)*
  (1-b1)*(1-b2)*(1-b3)*(1-b4)*
  (c1/(c1+c2))
    +(1-(1-b1)*(1-b2)*(1-b3)*(1-b4))*(1-a1)*(1-a2)*(1-a3)*(1-a4);
  d:=(1-a1)*(1-a2)*(1-a3)*(1-a4)*(1-b1)*(1-b2)*(1-b3)*(1-b4)*(c2/(c1+c2))
    +(1-(1-a1)*(1-a2)*(1-a3)*(1-a4))*(1-b1)*(1-b2)*(1-b3)*(1-b4);
  pingju:=(1-(1-a1)*(1-a2)*(1-a3)*(1-a4))*(1-(1-b1)*(1-b2)*(1-b3)*(1-b4));

  readln(n);

  for i:=1 to n do
   begin
   readln(m,p);
   if (p=1) then sum2:=sum2+m;
   if (p=0) then sum1:=sum1+m;
   x:=x*m;
   end;

   f:=exp((1/n)*ln(x));

   ans:=((sum2-sum1)*z)+((sum1-sum2)*d)+((sum1+sum2-n*f)*pingju);
   writeln(z:0:2,' ',d:0:2,' ',pingju:0:2);
   writeln(ans:0:2);
   close(input);
   close(output);
end.
   writeln()