132conan 2008-11-12 04:23:00
点我顶贴
收藏
删除
138168.pas(20,1) Error: Can’t call the linker, switching to external linking
program dddvd；
var n,m,l,i,j,k:longint；
t,mark:array[1..1000]of longint；
f:array[0..1000,0..1000]of longint；
begin
read(n,m,l)；
for i:=1 to n do
read(t[i],mark[i])；
fillchar(f,sizeof(f),128)；
for i:=0 to l do
f[0,i]:=0；
for i:=1 to n do
for j:=m downto 1 do
for k:=l downto t[i] do
if f[j,k]<f[j-1,k-t[i]]+mark[i]
then f[j,k]:=f[j-1,k-t[i]]+mark[i]；
if f[m,l]>10000000
then write(0)
else write(f[m,l])；
end.
我的free有问题？还是评测机有问题？
本机编译通过，评测机NO Compiled.
10分送上（路人：才1次RP测试而已）