比赛 |
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.