记录编号 13648 评测结果 AAAAAAAAAA
题目名称 护卫队 最终得分 100
用户昵称 Gravatar李腾飞OI 是否通过 通过
代码语言 Pascal 运行时间 0.055 s
提交时间 2009-10-07 14:26:51 内存使用 0.34 MiB
显示代码纯文本
var
  w,v:array[0..10000] of int64;
  f:array[0..10000] of real;
  mv,t,i,j,k,m,n,max,len:longint;
  x:real;
begin
  assign(input,'convoy.in');
  assign(output,'convoy.out');
  reset(input);
  rewrite(output);
  readln(max,len,n);
  for i:=1 to n do
    readln(w[i],v[i]);
  fillchar(f,sizeof(f),$7F);
  f[0]:=0;
  for i:=1 to n do
  begin
    t:=0;
    mv:=v[i];
    k:=i;
    while (t+w[k]<=max)and(k>0) do
    begin
      t:=t+w[k];
      if v[k]<mv then mv:=v[k];
      x:=f[k-1]+len/mv;
      if x<f[i] then f[i]:=x;
      k:=k-1;
    end;
  end;
  writeln((f[n]*60):0:1);
  close(input);
  close(output);
end.