讨论 / AC相信党
y64782975 2012-07-12 10:39:00
点我顶贴 收藏 删除
Accepted

测评机: Xeond[6]

得分: 100分 [我要评价一下题目~]

提交日期: 2012-7-12 10:36:00

有效耗时: 2219毫秒

测试结果1: 通过本测试点|有效耗时234ms

测试结果2: 通过本测试点|有效耗时157ms

测试结果3: 通过本测试点|有效耗时203ms

测试结果4: 通过本测试点|有效耗时156ms

测试结果5: 通过本测试点|有效耗时187ms

测试结果6: 通过本测试点|有效耗时188ms

测试结果7: 通过本测试点|有效耗时187ms

测试结果8: 通过本测试点|有效耗时329ms

测试结果9: 通过本测试点|有效耗时422ms

测试结果10: 通过本测试点|有效耗时156ms

提交代码: view sourceprint?01.program ex;

02.var a:array[1..10000,1..2]of integer;

03.n,m,i,j,k,b,z:integer;

04.procedure sd(var g,y:integer);

05.var t:integer;

06.begin

07.t:=g;g:=y;y:=t;

08.end;

09.begin

10.read(n,m);

11.for i:= 1 to n do

12.read(a[i,1],a[i,2]);

13.m:=trunc(m*1.5);

14.

15.for i:= 1to n-1 do

16.for j:=i+1 to n do

17.if (a[i,2]<a[j,2])or ((a[i,2]=a[j,2])and (a[i,1]>a[j,1])) then

18.for k:=1 to 2 do

19.sd(a[i,k],a[j,k]);

20.

21.

22.b:=a[m,2];

23.for i:=m+1 to n do

24.if a[i,2]=a[m,2] then

25.z:=z+1;

26.m:=m+z;

27.write(a[m,2],' ');

28.writeln(m);

29.for i:=1 to m do

30.writeln(a[i,1], ' ',a[i,2]);

31.end.

查看更多回复
提交回复