比赛 20090927练习赛 评测结果 WAAWWA
题目名称 跳远 最终得分 50
用户昵称 .Xmz 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2009-09-27 21:02:10
显示代码纯文本
program xmz;
var
 f1,f2:text;
 f,t:array[1..10]of integer;
 x,y:array[1..10]of real;
 n,vv,a,b,c,ttt,s:integer;
 v,yy:real;
begin
 assign(f1,'jump.in');assign(f2,'jump.out');
 reset(f1);rewrite(f2);
  read(f1,n,vv);
  for a:=1 to n do
   begin
   read(f1,t[a]);
   x[a]:=t[a]/2+s;
   y[a]:=(t[a]/2)*sqrt(3);
   s:=s+t[a];
   end;

  for a:=1 to n-1 do
   for b:=a+1 to n do
    begin
     v:=sqrt(abs((5*sqr(x[b]-x[a]))/((x[b]-x[a])-(y[b]-y[a]))));
     if v<vv then
      begin
       for c:=b-1 downto a+1 do
        begin
         yy:=y[a]+x[c]-x[a]-5*sqr(x[c]-x[a])/sqr(v);
         if yy<y[c] then ttt:=1;
        end;
       if (ttt<>1)or(b-1<a+1) then
        f[a]:=b;
       ttt:=0;
      end;
    end;

  for a:=1 to n-1 do
   write(f2,f[a],' ');
 close(f1);close(f2);
end.