记录编号	7724	评测结果	AAAAAAAAAAAAAAAAAAAA
题目名称	沙漠赛道	最终得分	100
用户昵称	zpl123	是否通过	通过
代码语言	Pascal	运行时间	0.854 s
提交时间	2008-11-11 14:32:39	内存使用	0.11 MiB

program mirage;
type
gl=array[1..4] of real;

var
kz,kd,n,fz,fd:longint;
gz,gd:gl;
dpj,pj,tot,e,jpj,dd,dz,gfz,gfd,bcz,bcd,hz,hd:real;

procedure init;
var
i:longint; t1:real; t2:longint;
begin
assign(input,'mirage.in');
reset(input);
assign(output,'mirage.out');
rewrite(output);
for i:=1 to 4 do read(gz[i]);
readln;
for i:=1 to 4 do read(gd[i]);
readln;
readln(fz,fd);
readln(n);
kz:=0;
kd:=0;
tot:=0;
jpj:=1;

for i:=1 to n do
 begin
 readln(t1,t2);
  tot:=tot+t1;
  jpj:=jpj*exp(ln(t1)/n);
 case t2 of 0:begin
              inc(kz);
              dz:=dz+t1;
              end;
            1:begin
              inc(kd);
              dd:=dd+t1;
              end;
 end;
 end;
dz:=tot-dz*2;
dd:=tot-dd*2;
dpj:=tot-jpj*n;
close(input);
end;


procedure main;
var
x:real; i:longint;
begin
x:=fd+fz;
gfd:=fd/x;
gfz:=1-gfd;

bcz:=1;
bcd:=1;
for i:=1 to 4 do
 begin
 bcz:=bcz*(1-gz[i]);
 bcd:=bcd*(1-gd[i]);
 end;

pj:=(1-bcz)*(1-bcd);

hz:=bcz*bcd*gfz+bcz*(1-bcd);

hd:=bcz*bcd*gfd+bcd*(1-bcz);

e:=dz*hz+dd*hd+dpj*pj;

end;

procedure print;
begin
write(hz:0:2);
write(hd:5:2);
write(pj:5:2);
writeln;
writeln(e:0:2);
close(output);
end;

begin
init;
main;
print;
end.