比赛 20090916练习赛 评测结果 AAAAAAAAAA
题目名称 护卫队 最终得分 100
用户昵称 belong.zmx 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2011-09-21 19:13:49
显示代码纯文本
program convoy(input,output);
var
 n,m,l:int64;
 i,j:longint;
 temp,lest:int64;
 a:array[0..1000,1..2]of int64;
 f:Array[0..1001]of double;

begin
 assign(input,'convoy.in');
 reset(input);
 readln(m,l,n);
 for i:=1 to n do readln(a[i,1],a[i,2]);
 close(input);

 for i:=1 to n do
 begin
  temp:=a[i,1];
  lest:=a[i,2];
  f[i]:=f[i-1]+l/a[i,2];
  for j:=i-1 downto 0 do
  begin
   if temp>m then break;
   if f[i]>f[j]+l/lest
    then f[i]:=f[j]+l/lest;
   temp:=temp+a[j,1];
   if lest>a[j,2] then lest:=a[j,2];
  end;
 end;

 assign(output,'convoy.out');
 rewrite(output);
 writeln((f[n]*60):0:1);
 close(output);
end.