0_0_2316451_94\Main.java:1: 需要为 class、interface 或 enum
var
^
0_0_2316451_94\Main.java:3: 需要为 class、interface 或 enum
a:array[0..100000,0..2]of longint;
^
0_0_2316451_94\Main.java:4: 需要为 class、interface 或 enum
father:array[0..10000]of longint;
^
0_0_2316451_94\Main.java:5: 需要为 class、interface 或 enum
flag:array[1..100000]of boolean;
^
0_0_2316451_94\Main.java:6: 需要为 class、interface 或 enum
procedure kp(i,j:longint);
^
0_0_2316451_94\Main.java:7: 需要为 class、interface 或 enum
var
^
0_0_2316451_94\Main.java:9: 需要为 class、interface 或 enum
begin
^
0_0_2316451_94\Main.java:11: 需要为 class、interface 或 enum
P:=j;
^
0_0_2316451_94\Main.java:12: 需要为 class、interface 或 enum
mid:=a[(i+j)shr 1,0];
^
0_0_2316451_94\Main.java:13: 需要为 class、interface 或 enum
repeat
^
0_0_2316451_94\Main.java:15: 需要为 class、interface 或 enum
while a[p,0]<mid do dec(p);
^
0_0_2316451_94\Main.java:16: 需要为 class、interface 或 enum
if q<=p then begin
^
0_0_2316451_94\Main.java:18: 需要为 class、interface 或 enum
a[q]:=a[p];
^
0_0_2316451_94\Main.java:19: 需要为 class、interface 或 enum
a[p]:=a[0];
^
0_0_2316451_94\Main.java:20: 需要为 class、interface 或 enum
inc(Q);
^
0_0_2316451_94\Main.java:21: 需要为 class、interface 或 enum
dec(p);
^
0_0_2316451_94\Main.java:22: 需要为 class、interface 或 enum
end;
^
0_0_2316451_94\Main.java:23: 需要为 class、interface 或 enum
until q>p;
^
0_0_2316451_94\Main.java:24: 需要为 class、interface 或 enum
if i<p then kp(i,p);
^
0_0_2316451_94\Main.java:25: 需要为 class、interface 或 enum
if q<j then kp(q,j);
^
0_0_2316451_94\Main.java:26: 需要为 class、interface 或 enum
end;
^
0_0_2316451_94\Main.java:27: 需要为 class、interface 或 enum
function getfather(x:longint):longint;
^
0_0_2316451_94\Main.java:28: 需要为 class、interface 或 enum
begin
^
0_0_2316451_94\Main.java:30: 需要为 class、interface 或 enum
getfather:=x;
^
0_0_2316451_94\Main.java:31: 需要为 class、interface 或 enum
end;
^
0_0_2316451_94\Main.java:32: 需要为 class、interface 或 enum
begin
^
0_0_2316451_94\Main.java:36: 需要为 class、interface 或 enum
if n=0 then break;
^
0_0_2316451_94\Main.java:37: 需要为 class、interface 或 enum
for i:=1 to m do readln(a[i,1],a[i,2],a[i,0]);
^
0_0_2316451_94\Main.java:38: 需要为 class、interface 或 enum
kp(1,m);
^
0_0_2316451_94\Main.java:39: 需要为 class、interface 或 enum
j:=0;
^
0_0_2316451_94\Main.java:40: 需要为 class、interface 或 enum
for i:=0 to n do father[i]:=i;
^
0_0_2316451_94\Main.java:41: 需要为 class、interface 或 enum
ans:=0;
^
0_0_2316451_94\Main.java:42: 需要为 class、interface 或 enum
fillchar(flag,sizeof(flag),0);
^
0_0_2316451_94\Main.java:43: 需要为 class、interface 或 enum
for i:=1 to n-1 do begin
^
0_0_2316451_94\Main.java:45: 需要为 class、interface 或 enum
while getfather(a[j,1])=getfather(a[j,2])do inc(j);
^
0_0_2316451_94\Main.java:46: 需要为 class、interface 或 enum
ans:=ans+a[j,0];
^
0_0_2316451_94\Main.java:47: 需要为 class、interface 或 enum
father[a[j,1]]:=getfather(a[j,2]);
^
0_0_2316451_94\Main.java:48: 需要为 class、interface 或 enum
flag[j]:=true;
^
0_0_2316451_94\Main.java:49: 需要为 class、interface 或 enum
end;
^
0_0_2316451_94\Main.java:50: 需要为 class、interface 或 enum
for i:=1 to m do if not flag[i] then begin
^
0_0_2316451_94\Main.java:52: 需要为 class、interface 或 enum
break;
^
0_0_2316451_94\Main.java:53: 需要为 class、interface 或 enum
end;
^
0_0_2316451_94\Main.java:54: 需要为 class、interface 或 enum
writeln(ans);
^
0_0_2316451_94\Main.java:55: 需要为 class、interface 或 enum
until false;
^
0_0_2316451_94\Main.java:57: 需要为 class、interface 或 enum
end.
|
