[ZJU 3301]Make Pair(贪心)

首先好久不写blog了，这是我2010第一个解题报告，也希望大家以后多多支持……

而且今天是元宵节，也算年没过完，也给大家拜个晚年~~

 

下面言归正传……

 

【题目描述】：

偶数个人，让你配对，使得每对差距之和最小。

【题目分析】：

没啥好说的，排序后贪心~~

这题最烦人的地方在于那个seekeof和eof的区别~

如果不用seekeof的话，他会将最后一行也当作也一组输入数据~

最后的结果就是末尾多一个回车~~

结果我就wa了一次~~

教训就是，没事少用eof~~~

【代码】：

program ZJU_3301; var a,sit:array[1..10000] of longint; n,i:longint; flag:boolean; procedure qsort(s,t:longint); var i,j,k,key:longint; begin i:=s; j:=t; key:=a[(s+t) shr 1]; repeat while a[i]<key do inc(i); while a[j]>key do dec(j); if i<=j then begin k:=a[i]; a[i]:=a[j]; a[j]:=k; k:=sit[i]; sit[i]:=sit[j]; sit[j]:=k; inc(i); dec(j); end; until i>j; if s<j then qsort(s,j); if i<t then qsort(i,t); end; begin assign(input,'pair.in'); assign(output,'pair.out'); reset(input); rewrite(output); flag:=false; while not seekeof do begin if flag then writeln; flag:=true; readln(n); for i:=1 to n do begin read(a[i]); sit[i]:=i; end; qsort(1,n); i:=1; while i<=n do begin writeln(sit[i],' ',sit[i+1]); i:=i+2; end; end; close(input); close(output); end.