比赛 |
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()