Noip2008普及组T2
Posted
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了Noip2008普及组T2相关的知识,希望对你有一定的参考价值。
这题在很早之前就看过了,可是当时太蒟蒻(虽然现在也是蒟蒻)不会写,最近才重新看题并且AC了,其实就是简单的贪心。。
上课的时候总有一些同学和前后左右的人交头接耳,这是令小学班主任十分头疼的一件事情。不过,班主任小雪发现了一些有趣的现象,当同学们的座次确定下来之后,只有有限的D对同学上课时会交头接耳。同学们在教室中坐成了M行N列,坐在第i行第j列的同学的位置是(i,j),为了方便同学们进出,在教室中设置了K条横向的通道,L条纵向的通道。于是,聪明的小雪想到了一个办法,或许可以减少上课时学生交头接耳的问题:她打算重新摆放桌椅,改变同学们桌椅间通道的位置,因为如果一条通道隔开了两个会交头接耳的同学,那么他们就不会交头接耳了。
请你帮忙给小雪编写一个程序,给出最好的通道划分方案。在该方案下,上课时交头接耳的学生对数最少。
第一行,有5各用空格隔开的整数,分别是M,N,K,L,D(2<=N,M<=1000,0<=K<M,0<=L<N,D<=2000)。
接下来D行,每行有4个用空格隔开的整数,第i行的4个整数Xi,Yi,Pi,Qi,表示坐在位置(Xi,Yi)与(Pi,Qi)的两个同学会交头接耳(输入保证他们前后相邻或者左右相邻)。
输入数据保证最优方案的唯一性。
共两行。
第一行包含K个整数,a1a2……aK,表示第a1行和a1+1行之间、第a2行和第a2+1行之间、…、第aK行和第aK+1行之间要开辟通道,其中ai< ai+1,每两个整数之间用空格隔开(行尾没有空格)。
第二行包含L个整数,b1b2……bk,表示第b1列和b1+1列之间、第b2列和第b2+1列之间、…、第bL列和第bL+1列之间要开辟通道,其中bi< bi+1,每两个整数之间用空格隔开(行尾没有空格)。
4 5 1 2 3
4 2 4 3
2 3 3 3
2 5 2 4
2
2 4
我的做法就是在读入的时候储存坐标到行和列的数组里,后面再用两个数组想
x【i】,y【i】储存位置,然后排序,然后输出x数组前k个和y数组前l个(输出是还要再排序,我被这个坑了好几次);大概代码如下:
var
m,n,k,l,d,x1,x2,y1,y2,i,j,t,p,q,t1:longint;
lie,hang,x,y:array[1..100000]of longint;
function min(a,b:longint):longint;
begin
if a<b then exit(a)
else exit(b);
end;
begin
read(n,m,k,l,d);
for i:=1 to d do begin
readln(x1,y1,x2,y2);
if x1=x2 then inc(lie[min(y1,y2)]);{储存列的分割线,就是说每一列的分割线能分割多少对学生}
if y1=y2 then inc(hang[min(x1,x2)]);{同上}
end;
dec(m);{分割线只有m-1条}
dec(n);{同上}
for i:=1 to m do{储存位置}
x[i]:=i;
for i:=1 to n do{同上}
y[i]:=i;
for i:=1 to m-1 do
for j:=i+1 to m do begin{排序}
if (lie[i]<lie[j]) then begin
t:=lie[i]; lie[i]:=lie[j]; lie[j]:=t;
t:=x[i]; x[i]:=x[j]; x[j]:=t;{位置跟着改}
end;
end;
for i:=1 to n-1 do
for j:=i+1 to n do begin{同上}
if (hang[i]<hang[j]) then begin
t1:=hang[i]; hang[i]:=hang[j]; hang[j]:=t1;
t1:=y[i]; y[i]:=y[j]; y[j]:=t1;{同上}
end;
end;
{for i:=1 to m do
if lie[i]<>0 then begin
inc(p);
lie[p]:=lie[i];
x[p]:=x[i];
end;
for i:=1 to n do
if hang[i]<>0 then begin
inc(q);
hang[q]:=hang[i];
y[q]:=y[i];
end;{这一段就是把多余的零删掉,没什么必要,可写可不写)}
for i:=1 to k-1 do
for j:=i+1 to k do
if y[i]>y[j] then begin
t:=y[i]; y[i]:=y[j]; y[j]:=t;
end;
for i:=1 to l-1 do
for j:=i+1 to l do
if x[i]>x[j] then begin
t:=x[i]; x[i]:=x[j]; x[j]:=t;
end;{排序后输出,这里坑死我了}
for i:=1 to k do
write(y[i],‘ ‘);
writeln;
for i:=1 to l do
write(x[i],‘ ‘);
end.
以上是关于Noip2008普及组T2的主要内容,如果未能解决你的问题,请参考以下文章