记录编号	7710	评测结果	AAAAAAAAAAAAAAAAAAAA
题目名称	沙漠赛道	最终得分	100
用户昵称	E.M.B.E.R	是否通过	通过
代码语言	Pascal	运行时间	0.914 s
提交时间	2008-11-11 13:24:41	内存使用	2.02 MiB

program EmberAsh;
var
a1,a2:array[1..4]of extended;//侏儒 地精发生事故的概率
t1,t2:longint;//动力指数
t3,t4:extended;//动力指数概率
n,i,ii:longint;
j,k:extended;
b1:array[1..100000]of extended;//侏儒
b2:array[1..100000]of extended;//地精
head,tail:longint;
w1,w2,w3,w4,w5,w6,w7,w8,add{一共的投注额},add1,add2{a,b的投注额}:extended;
lr1,lr2,lr3,lr:extended;//a赢 b赢 平局的利润
jihe,jh1,jh2,jh3,jh:extended;//几何平均数
sumb1,sumb2:extended;
e:extended;//期望
fin,fout:text;

BEGIN
assign(fin,'mirage.in');reset(fin);
assign(fout,'mirage.out');rewrite(fout);
for i:=1 to 4 do
  begin
  read(fin,a1[i]);
  //if a1[i]=0 then a1[i]:=1;
  end;
readln(fin);
for i:=1 to 4 do
  begin
  read(fin,a2[i]);
  //if a2[i]=0 then a2[i]:=1;
  end;
readln(fin);
readln(fin,t1,t2);
readln(fin,n);
sumb1:=1;sumb2:=1;
for i:=1 to n do
  begin
  readln(fin,j,ii);
  if ii=0 then
    begin
    inc(head);//侏儒
    b1[head]:=j;
    //sumb1:=sumb1*j;
    add:=add+b1[head];
    add1:=add1+b1[head];
    end;
  if ii=1 then
    begin
    inc(tail);
    b2[tail]:=j;
    //sumb2:=sumb2*j;
    add2:=add2+b2[tail];
    add:=b2[tail]+add;//总额
    end;
  end;
t3:=t1/(t1+t2);//赢的概率  侏儒 --a
t4:=t2/(t1+t2);//          地精 --b
w1:=(1-a1[1])*(1-a1[2])*(1-a1[3])*(1-a1[4]);//a不发生事故
w2:=1-w1;//a发生事故
w3:=(1-a2[1])*(1-a2[2])*(1-a2[3])*(1-a2[4]);//b不发生事故
w4:=1-w3;//b发生事故
w5:=w1*w4+w1*w3*t3;//a赢
w6:=w2*w3+w1*w3*t4;//b赢
w7:=w2*w4;//平局
lr1:=add-add1*2;//a赢的利润
lr2:=add-add2*2;//b赢的利润
//求几何平均数
jihe:=1;//几何平均数
jh:=1/n;
for i:=1 to head do//a队的
  begin
  jh1:=exp(jh*ln(b1[i]));
  jihe:=jihe*jh1;
  end;
for i:=1 to tail do//b队的
  begin
  jh1:=exp(jh*ln(b2[i]));
  jihe:=jihe*jh1;
  end;
//求几何平均数
lr3:=add-n*jihe;//平局的利润
e:=lr1*w5+lr2*w6+lr3*w7;
writeln(fout,w5:0:2,' ',w6:0:2,' ',w7:0:2);
writeln(fout,e:0:2);
close(fin);close(fout);
END.