wllaz 2008-08-21 19:44:00
点我顶贴
收藏
删除
http://rqnoj.cn/Status_Show.asp?SID=86048
运行错误 怎么可能
var
m,i,j,n,kr,her,p,t:longint；
pd:boolean；
a,a1,a2,b,c,d,e,f:array [0..500000] of longint；
begin
read(n,m)；
for i:=1 to m do
read(a2[i])；
for i:=1 to m do
begin
read(her)；
a[her]:=a2[i]；
a1[i]:=i；
end；
for i:=1 to n do
begin
read(b[i],c[i],e[i])；
f[i]:=i；
end；
read(p)；
inc(n)；
p:=b[n]；
f[n]:=n；
for i:=1 to n-1 do
for j:=i+1 to n do
if b[j]>b[i] then
begin
t:=f[i]；f[i]:=f[j]；f[j]:=t；
end；
for i:=1 to m-1 do
for j:=i+1 to m do
if a[j]<a[i] then
begin
t:=a1[i]；a1[i]:=a1[j]；a1[j]:=t；
end；
for i:=1 to n do
begin
pd:=true；
if f[i]=n then begin
repeat
inc(kr)；
if a[a1[kr]]>0 then begin
writeln(a1[kr])； exit； end；
until kr=m；
writeln(’0’)；exit；
end；
if a[c[f[i]]]>0 then dec(a[c[f[i]]])
else if a[e[f[i]]]>0 then dec(a[e[f[i]]])；
end；
end.