比赛 20111104 评测结果 C
题目名称 网球赛 最终得分 0
用户昵称 feng 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2011-11-04 20:49:33
显示代码纯文本
  1. program lx;
  2. const
  3. filename='elimination';
  4. inf=filename+'.in';
  5. ouf=filename+'.out';
  6. maxn=1024;
  7. var
  8. i,j,k,l,m,n,x,p,y:longint;
  9. sum:real;
  10. a,f:array[0..maxn,0..maxn]of real;
  11. function xy(x:longint):longint;
  12. var i:longint;
  13. begin
  14. xy:=1;
  15. for i:=1 to x do
  16. xy:=xy*2;
  17. end;
  18. begin
  19. assign(input,inf); reset(input);
  20. assign(output,ouf);rewrite(output);
  21. readln(m);
  22. fillchar(f,sizeof(f),0);
  23. fillchar(a,sizeof(a),0);
  24. n:=1;
  25. for i:=1 to m do
  26. n:=2*n;
  27. for i:=1 to n do
  28. for j:=1 to n do
  29. begin
  30. read(a[i,j]);
  31. a[i,j]:=a[i,j]/100;
  32. end;
  33. for i:=1 to n do
  34. f[0,i]:=1;
  35. for i:=1 to m do
  36. for j:=1 to n do
  37. begin
  38. x:=xy(i-1);
  39. p:=(j-1)div x;
  40. if p mod 2=0 then
  41. y:=x
  42. else y:=-x;
  43. for k:=(p*x+y+1) to (p*x+y+x) do
  44. f[i,j]:=f[i-1,j]*f[i-1,k]*a[j,k]+f[i,j];
  45. end;
  46. sum:=0;
  47. for i:=1 to n do
  48. if f[m,i]>sum then begin
  49. sum:=f[m,i];
  50. j:=i;
  51. end;
  52.  
  53. writeln(j);
  54.  
  55.  
  56. close(input);close(output);
  57. end.