0_0_6873526_27644\Main.java:1: 需要为 class、interface 或 enum
Const
^
0_0_6873526_27644\Main.java:3: 需要为 class、interface 或 enum
MAXM=100000;
^
0_0_6873526_27644\Main.java:4: 需要为 class、interface 或 enum
MAXK=50;
^
0_0_6873526_27644\Main.java:5: 需要为 class、interface 或 enum
MAXC=100;
^
0_0_6873526_27644\Main.java:6: 需要为 class、interface 或 enum
MAXD=MAXM*MAXC*10*MAXK;
^
0_0_6873526_27644\Main.java:8: 需要为 class、interface 或 enum
Var
^
0_0_6873526_27644\Main.java:10: 需要为 class、interface 或 enum
next,e,c:array[1..MAXM*2]of longint;
^
0_0_6873526_27644\Main.java:11: 需要为 class、interface 或 enum
dis:array[0..MAXK,1..MAXN]of int64;
^
0_0_6873526_27644\Main.java:12: 需要为 class、interface 或 enum
qu,qk:array[1..MAXN*MAXK*10]of longint;
^
0_0_6873526_27644\Main.java:13: 需要为 class、interface 或 enum
inq:packed array[0..MAXK,1..MAXN]of boolean;
^
0_0_6873526_27644\Main.java:14: 需要为 class、interface 或 enum
n,m,i,j,u,v,s,t,k,top,tail,nk,kk:longint;
^
0_0_6873526_27644\Main.java:16: 需要为 class、interface 或 enum
procedure ins(x,y,z,p:longint);
^
0_0_6873526_27644\Main.java:17: 需要为 class、interface 或 enum
begin
^
0_0_6873526_27644\Main.java:19: 需要为 class、interface 或 enum
head[x]:=p;
^
0_0_6873526_27644\Main.java:20: 需要为 class、interface 或 enum
e[p]:=y;
^
0_0_6873526_27644\Main.java:21: 需要为 class、interface 或 enum
c[p]:=z;
^
0_0_6873526_27644\Main.java:22: 需要为 class、interface 或 enum
end;
^
0_0_6873526_27644\Main.java:24: 需要为 class、interface 或 enum
procedure spfa;
^
0_0_6873526_27644\Main.java:25: 需要为 class、interface 或 enum
begin
^
0_0_6873526_27644\Main.java:27: 需要为 class、interface 或 enum
tail:=0;
^
0_0_6873526_27644\Main.java:28: 需要为 class、interface 或 enum
qu[1]:=s;
^
0_0_6873526_27644\Main.java:29: 需要为 class、interface 或 enum
qk[1]:=0;
^
0_0_6873526_27644\Main.java:30: 需要为 class、interface 或 enum
inq[0,s]:=true;
^
0_0_6873526_27644\Main.java:31: 需要为 class、interface 或 enum
dis[0,s]:=0;
^
0_0_6873526_27644\Main.java:33: 需要为 class、interface 或 enum
while top-tail>0 do
^
0_0_6873526_27644\Main.java:36: 需要为 class、interface 或 enum
u:=qu[tail];
^
0_0_6873526_27644\Main.java:37: 需要为 class、interface 或 enum
nk:=qk[tail];
^
0_0_6873526_27644\Main.java:38: 需要为 class、interface 或 enum
inq[nk,u]:=false;
^
0_0_6873526_27644\Main.java:39: 需要为 class、interface 或 enum
kk:=nk+1;
^
0_0_6873526_27644\Main.java:40: 需要为 class、interface 或 enum
if kk>k then kk:=k;
^
0_0_6873526_27644\Main.java:42: 需要为 class、interface 或 enum
j:=head[u];
^
0_0_6873526_27644\Main.java:43: 需要为 class、interface 或 enum
while j>0 do
^
0_0_6873526_27644\Main.java:46: 需要为 class、interface 或 enum
if dis[nk,u]+c[j]<dis[kk,v] then
^
0_0_6873526_27644\Main.java:49: 需要为 class、interface 或 enum
if not inq[kk,v] then
^
0_0_6873526_27644\Main.java:52: 需要为 class、interface 或 enum
qu[top]:=v;
^
0_0_6873526_27644\Main.java:53: 需要为 class、interface 或 enum
qk[top]:=kk;
^
0_0_6873526_27644\Main.java:54: 需要为 class、interface 或 enum
inq[kk,v]:=true;
^
0_0_6873526_27644\Main.java:55: 需要为 class、interface 或 enum
end;
^
0_0_6873526_27644\Main.java:56: 需要为 class、interface 或 enum
end;
^
0_0_6873526_27644\Main.java:57: 需要为 class、interface 或 enum
j:=next[j];
^
0_0_6873526_27644\Main.java:58: 需要为 class、interface 或 enum
end;
^
0_0_6873526_27644\Main.java:59: 需要为 class、interface 或 enum
end;
^
0_0_6873526_27644\Main.java:60: 需要为 class、interface 或 enum
end;
^
0_0_6873526_27644\Main.java:62: 需要为 class、interface 或 enum
Begin
^
0_0_6873526_27644\Main.java:66: 需要为 class、interface 或 enum
fillchar(head,sizeof(head),0);
^
0_0_6873526_27644\Main.java:67: 需要为 class、interface 或 enum
for i:=1 to m do
^
0_0_6873526_27644\Main.java:70: 需要为 class、interface 或 enum
ins(u,v,j,i*2-1);
^
0_0_6873526_27644\Main.java:71: 需要为 class、interface 或 enum
ins(v,u,j,i*2);
^
0_0_6873526_27644\Main.java:72: 需要为 class、interface 或 enum
end;
^
0_0_6873526_27644\Main.java:73: 需要为 class、interface 或 enum
readln(s,t,k);
^
0_0_6873526_27644\Main.java:75: 需要为 class、interface 或 enum
if k mod 10=0 then k:=k div 10
^
0_0_6873526_27644\Main.java:78: 需要为 class、interface 或 enum
for i:=1 to n do
^
0_0_6873526_27644\Main.java:80: 需要为 class、interface 或 enum
fillchar(inq,sizeof(inq),false);
^
0_0_6873526_27644\Main.java:82: 需要为 class、interface 或 enum
spfa;
^
0_0_6873526_27644\Main.java:84: 需要为 class、interface 或 enum
if dis[k,t]>MAXD then writeln(-1)
^
0_0_6873526_27644\Main.java:86: 需要为 class、interface 或 enum
end;
^
0_0_6873526_27644\Main.java:87: 需要为 class、interface 或 enum
end.
^
57 错误
|
