比赛 NOIP2008集训模拟2 评测结果 AAAAAAAAAAEEEEEEEEEE
题目名称 沙漠赛道 最终得分 50
用户昵称 Achilles 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2008-11-11 10:54:41
显示代码纯文本
program mirage;
var
  n,i,t2:longint;
  a1,a2,a3,a4,b1,b2,b3,b4,c1,c2,d1,d2,d3,e1,e2,e3,t,f1,f2,f3: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);
  d1:=(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);
  d2:=(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);
  d3:=(1-(1-a1)*(1-a2)*(1-a3)*(1-a4))*(1-(1-b1)*(1-b2)*(1-b3)*(1-b4));
  writeln(d1:0:2,' ',d2:0:2,' ',d3:0:2);
  readln(n);
  e1:=0;
  e2:=0;
  e3:=1;
  for i:=1 to n do
  begin
    readln(t,t2);
    if t2=0 then e1:=e1+t else e2:=e2+t;
    e3:=e3*t;
  end;
  e3:=exp((1/n)*ln(e3));
  f1:=(e2-e1)*d1;
  f2:=(e1-e2)*d2;
  f3:=(e1+e2-e3*n)*d3;
  writeln(f1+f2+f3:0:2);
  close(input);
  close(output);
end.