0_0_1600212_9628\Main.java:1: 需要 "class" 或 "interface"
const maxn=10001;
^
0_0_1600212_9628\Main.java:3: 需要 "class" 或 "interface"
var n,ans,tmp:longint;
^
0_0_1600212_9628\Main.java:4: 需要 "class" 或 "interface"
a,link:array[0..maxn] of longint;
^
0_0_1600212_9628\Main.java:5: 需要 "class" 或 "interface"
v:array[0..maxn] of boolean;
^
0_0_1600212_9628\Main.java:7: 需要 "class" 或 "interface"
function min(a,b:longint):longint; {交换}
^
0_0_1600212_9628\Main.java:7: 需要 "class" 或 "interface"
function min(a,b:longint):longint; {交换}
^
0_0_1600212_9628\Main.java:10: 需要 "class" 或 "interface"
end;
^
0_0_1600212_9628\Main.java:12: 需要 "class" 或 "interface"
procedure qsort(l,r:longint); {快排}
^
0_0_1600212_9628\Main.java:12: 需要 "class" 或 "interface"
procedure qsort(l,r:longint); {快排}
^
0_0_1600212_9628\Main.java:14: 需要 "class" 或 "interface"
begin
^
0_0_1600212_9628\Main.java:15: 需要 "class" 或 "interface"
i:=l; j:=r;
^
0_0_1600212_9628\Main.java:16: 需要 "class" 或 "interface"
x:=a[(l+r) shr 1];
^
0_0_1600212_9628\Main.java:17: 需要 "class" 或 "interface"
repeat
^
0_0_1600212_9628\Main.java:19: 需要 "class" 或 "interface"
while a[j]>x do dec(j);
^
0_0_1600212_9628\Main.java:20: 需要 "class" 或 "interface"
if i<=j then
^
0_0_1600212_9628\Main.java:22: 需要 "class" 或 "interface"
t:=a[i]; a[i]:=a[j]; a[j]:=t;
^
0_0_1600212_9628\Main.java:22: 需要 "class" 或 "interface"
t:=a[i]; a[i]:=a[j]; a[j]:=t;
^
0_0_1600212_9628\Main.java:23: 需要 "class" 或 "interface"
t:=link[i]; link[i]:=link[j]; link[j]:=t;
^
0_0_1600212_9628\Main.java:23: 需要 "class" 或 "interface"
t:=link[i]; link[i]:=link[j]; link[j]:=t;
^
0_0_1600212_9628\Main.java:23: 需要 "class" 或 "interface"
t:=link[i]; link[i]:=link[j]; link[j]:=t;
^
0_0_1600212_9628\Main.java:24: 需要 "class" 或 "interface"
inc(i); dec(j);
^
0_0_1600212_9628\Main.java:24: 需要 "class" 或 "interface"
inc(i); dec(j);
^
0_0_1600212_9628\Main.java:25: 需要 "class" 或 "interface"
end;
^
0_0_1600212_9628\Main.java:26: 需要 "class" 或 "interface"
until i>j;
^
0_0_1600212_9628\Main.java:27: 需要 "class" 或 "interface"
if i<r then qsort(i,r);
^
0_0_1600212_9628\Main.java:28: 需要 "class" 或 "interface"
if l<j then qsort(l,j);
^
0_0_1600212_9628\Main.java:29: 需要 "class" 或 "interface"
end;
^
0_0_1600212_9628\Main.java:31: 需要 "class" 或 "interface"
procedure init; {读入}
^
0_0_1600212_9628\Main.java:31: 需要 "class" 或 "interface"
procedure init; {读入}
^
0_0_1600212_9628\Main.java:33: 需要 "class" 或 "interface"
begin
^
0_0_1600212_9628\Main.java:34: 需要 "class" 或 "interface"
readln(n); ans:=0; tmp:=maxlongint;
^
0_0_1600212_9628\Main.java:34: 需要 "class" 或 "interface"
readln(n); ans:=0; tmp:=maxlongint;
^
0_0_1600212_9628\Main.java:35: 需要 "class" 或 "interface"
for i:=1 to n do
^
0_0_1600212_9628\Main.java:36: 需要 "class" 或 "interface"
begin read(a[i]); link[i]:=i; tmp:=min(tmp,a[i]); end;
^
0_0_1600212_9628\Main.java:36: 需要 "class" 或 "interface"
begin read(a[i]); link[i]:=i; tmp:=min(tmp,a[i]); end;
^
0_0_1600212_9628\Main.java:36: 需要 "class" 或 "interface"
begin read(a[i]); link[i]:=i; tmp:=min(tmp,a[i]); end;
^
0_0_1600212_9628\Main.java:37: 需要 "class" 或 "interface"
end;
^
0_0_1600212_9628\Main.java:39: 需要 "class" 或 "interface"
procedure main;
^
0_0_1600212_9628\Main.java:40: 需要 "class" 或 "interface"
var i,j,len:longint;
^
0_0_1600212_9628\Main.java:41: 需要 "class" 或 "interface"
begin
^
0_0_1600212_9628\Main.java:44: 需要 "class" 或 "interface"
for i:=1 to n do
^
0_0_1600212_9628\Main.java:47: 需要 "class" 或 "interface"
j:=i; len:=0;
^
0_0_1600212_9628\Main.java:48: 需要 "class" 或 "interface"
while not v[j] do
^
0_0_1600212_9628\Main.java:49: 需要 "class" 或 "interface"
begin v[j]:=true; inc(ans,a[j]); inc(len); j:=link[j]; end; {计算每个轮换}
^
0_0_1600212_9628\Main.java:49: 需要 "class" 或 "interface"
begin v[j]:=true; inc(ans,a[j]); inc(len); j:=link[j]; end; {计算每个轮换}
^
0_0_1600212_9628\Main.java:49: 需要 "class" 或 "interface"
begin v[j]:=true; inc(ans,a[j]); inc(len); j:=link[j]; end; {计算每个轮换}
^
0_0_1600212_9628\Main.java:49: 需要 "class" 或 "interface"
begin v[j]:=true; inc(ans,a[j]); inc(len); j:=link[j]; end; {计算每个轮换}
^
0_0_1600212_9628\Main.java:49: 需要 "class" 或 "interface"
begin v[j]:=true; inc(ans,a[j]); inc(len); j:=link[j]; end; {计算每个轮换}
^
0_0_1600212_9628\Main.java:50: 需要 "class" 或 "interface"
inc(ans,min((len-2)*a[i],a[i]+(len+1)*tmp)); {(len-2)*a[i]代表用当前轮换的最小值去交换的代价,a[i]+(len+1)*tmp代表将当前轮换之外的最小值tmp加入当前轮换后进行交换,再把tmp移出轮换的代价}
^
0_0_1600212_9628\Main.java:50: 非法字符: \65292
inc(ans,min((len-2)*a[i],a[i]+(len+1)*tmp)); {(len-2)*a[i]代表用当前轮换的最小值去交换的代价,a[i]+(len+1)*tmp代表将当前轮换之外的最小值tmp加入当前轮换后进行交换,再把tmp移出轮换的代价}
^
0_0_1600212_9628\Main.java:50: 非法字符: \65292
inc(ans,min((len-2)*a[i],a[i]+(len+1)*tmp)); {(len-2)*a[i]代表用当前轮换的最小值去交换的代价,a[i]+(len+1)*tmp代表将当前轮换之外的最小值tmp加入当前轮换后进行交换,再把tmp移出轮换的代价}
^
0_0_1600212_9628\Main.java:53: 需要 "class" 或 "interface"
writeln(ans);
^
0_0_1600212_9628\Main.java:54: 需要 "class" 或 "interface"
end;
^
0_0_1600212_9628\Main.java:56: 需要 "class" 或 "interface"
begin
^
0_0_1600212_9628\Main.java:57: 未结束的字符字面值
assign(input,'p3270.in'); reset(input);
^
0_0_1600212_9628\Main.java:57: 未结束的字符字面值
assign(input,'p3270.in'); reset(input);
^
0_0_1600212_9628\Main.java:58: 未结束的字符字面值
assign(output,'p3270.out'); rewrite(output);
^
0_0_1600212_9628\Main.java:58: 未结束的字符字面值
assign(output,'p3270.out'); rewrite(output);
^
58 错误
|