0_0_5256263_13567\Main.java:1: 需要为 class、interface 或 enum
var
^
0_0_5256263_13567\Main.java:3: 需要为 class、interface 或 enum
a:array[0..201,0..201] of int64;
^
0_0_5256263_13567\Main.java:4: 需要为 class、interface 或 enum
f:array[0..201] of int64;
^
0_0_5256263_13567\Main.java:5: 需要为 class、interface 或 enum
k1,k2,c,x,y,m,n,i:longint;
^
0_0_5256263_13567\Main.java:6: 需要为 class、interface 或 enum
procedure dij(s:longint);
^
0_0_5256263_13567\Main.java:7: 需要为 class、interface 或 enum
var
^
0_0_5256263_13567\Main.java:9: 需要为 class、interface 或 enum
begin
^
0_0_5256263_13567\Main.java:11: 需要为 class、interface 或 enum
for i:=0 to n-1 do f[i]:=a[s,i];
^
0_0_5256263_13567\Main.java:12: 需要为 class、interface 或 enum
for i:=1 to n-1 do begin
^
0_0_5256263_13567\Main.java:14: 需要为 class、interface 或 enum
for j:=0 to n-1 do if (not p[j]) and (f[j]<min) then begin
^
0_0_5256263_13567\Main.java:16: 需要为 class、interface 或 enum
st:=j;
^
0_0_5256263_13567\Main.java:17: 需要为 class、interface 或 enum
end;
^
0_0_5256263_13567\Main.java:18: 需要为 class、interface 或 enum
if min=maxlongint then exit;
^
0_0_5256263_13567\Main.java:19: 需要为 class、interface 或 enum
p[st]:=true;
^
0_0_5256263_13567\Main.java:20: 需要为 class、interface 或 enum
for j:=0 to n-1 do if f[j]>a[st,j]+f[st] then f[j]:=a[st,j]+f[st];
^
0_0_5256263_13567\Main.java:21: 需要为 class、interface 或 enum
end;
^
0_0_5256263_13567\Main.java:22: 需要为 class、interface 或 enum
end;
^
0_0_5256263_13567\Main.java:23: 需要为 class、interface 或 enum
begin
^
0_0_5256263_13567\Main.java:25: 需要为 class、interface 或 enum
fillchar(a,sizeof(a),$7F);
^
0_0_5256263_13567\Main.java:26: 需要为 class、interface 或 enum
fillchar(f,sizeof(f),0);
^
0_0_5256263_13567\Main.java:27: 需要为 class、interface 或 enum
fillchar(p,sizeof(p),false);
^
0_0_5256263_13567\Main.java:28: 需要为 class、interface 或 enum
for i:=0 to m-1 do a[i,i]:=0;
^
0_0_5256263_13567\Main.java:29: 需要为 class、interface 或 enum
for i:=1 to m do begin
^
0_0_5256263_13567\Main.java:31: 需要为 class、interface 或 enum
if (a[x,y]=0) or (a[x,y]>c) then begin
^
0_0_5256263_13567\Main.java:33: 需要为 class、interface 或 enum
a[y,x]:=c;
^
0_0_5256263_13567\Main.java:34: 需要为 class、interface 或 enum
end;
^
0_0_5256263_13567\Main.java:35: 需要为 class、interface 或 enum
end;
^
0_0_5256263_13567\Main.java:36: 需要为 class、interface 或 enum
readln(k1,k2);
^
0_0_5256263_13567\Main.java:37: 需要为 class、interface 或 enum
dij(k1);
^
0_0_5256263_13567\Main.java:38: 需要为 class、interface 或 enum
if f[k2]>n*10000 then writeln(-1) else writeln(f[k2]);
^
0_0_5256263_13567\Main.java:39: 需要为 class、interface 或 enum
end.
^
31 错误
|
