第一个点是怎么搞得,DFS没超时,9个点都过了,算法应该没问题,但是第一个点答案总错误,我后来连Qsort都写上去了,想看看是不是给的数据没按顺序,还是.............

下面把我的程序发一下,请各位大牛指教修改,感激不尽>_<

program P1150;

type

arr=array[1..50]of boolean;

var

b,c:array[1..50] of longint;

a:arr;

i,j,k,n,c1,a1,a2:longint;

max,min,sum:longint;

q:boolean;

procedure init;

begin

readln(n,c1);

for i:=1 to n do

begin

read(b[i],c[i]);

a[i]:=true;

end;

end;

procedure Qsort(i,j:longint);

begin

if j-i>1 then begin

k:=(i+j) div 2;

for a1:=i to j do

begin

if (b[a1]>b[k])and(a10 then begin

if i=1) do

k:=k-1;

if a[k] then

make(a,s,waste+sum*(abs(b[i]-b[k])),k,sum);

end;

end;

end;

begin

init;

Qsort(1,n);

min:=maxlongint;

for i:=1 to n do

sum:=sum+C[i];

a[c1]:=false;

make(a,n,0,c1,sum);

write(min);

end.