比赛 |
20090916练习赛 |
评测结果 |
AWATTATTTT |
题目名称 |
护卫队 |
最终得分 |
30 |
用户昵称 |
.Xmz |
运行时间 |
0.000 s |
代码语言 |
Pascal |
内存使用 |
0.00 MiB |
提交时间 |
2009-09-16 21:57:39 |
显示代码纯文本
program xmz;
var
f1,f2:text;
w,ws:array[0..1000]of longint;
t,l,n,a,b,c:longint;
s:array[0..1000]of real;
f:array[0..1000,0..1000]of real;
begin
assign(f1,'convoy.in');assign(f2,'convoy.out');
reset(f1);rewrite(f2);
read(f1,t,l,n);
for a:=1 to n do
begin
read(f1,w[a],s[a]);
s[a]:=(l/s[a])*60;
ws[a]:=w[a]+ws[a-1];
end;
for a:=1 to n do
for b:=1 to n-a+1 do
if ws[b+a-1]-ws[b-1]<=t then
begin
for c:=b to b+a-1 do
if f[a,b]<s[c] then f[a,b]:=s[c];
end
else
for c:=1 to a-1 do
if (f[a,b]>f[c,b]+f[a-c,b+c])or(f[a,b]=0) then
f[a,b]:=f[c,b]+f[a-c,b+c];
write(f2,f[n,1]:0:1);
close(f1);close(f2);
end.