能不能求到数据调下？谢谢。。。。

或者神犇帮忙看下代码的问题。。。。

十分感谢。。。。

type

pp=record

point,site:longint;

end;

var

q:array [1..5,1..500000] of pp;

head,tail:array [1..5] of longint;

n,i,j,k,t,m,l,movetime:longint;

mac:array [1..5,1..100000] of longint;

sum:array [1..5,0..100000] of longint;

f,g:array [0..100000,1..5] of longint;

procedure init;

begin

readln(m,n,movetime,l);

for i:=1 to n do

begin

for j:=1 to m do

read(mac);

readln;

end;

for i:=1 to n do

begin

for j:=1 to m do

sum:=sum+mac;

end;

end;

function ef(point,x:longint):longint;

var

l,h,mid:longint;

begin

l:=head[x];h:=tail[x];

while lpoint then h:=mid-1

else

if q[x,mid].pointb then exit(b);exit(a);

end;

procedure main;

var

i,j,k,temp:longint;

begin

for i:=1 to n do

begin

head[i]:=1;tail[i]:=1;q.point:=0;q.site:=0;

end;

for i:=1 to m do

begin

for j:=1 to n do

begin

g:=maxlongint;

for k:=1 to n do

if kj then

g:=min(f+mac[j,i]+movetime,g);

insert(g-sum[j,i],j,i);

end;

for j:=1 to n do

begin

while i-q[j,head[j]].site>=l do inc(head[j]);

temp:=q[j,head[j]].point;

f:=temp+sum[j,i];

end;

end;

temp:=maxlongint;

for i:=1 to n do

if f[m,i]