8.15 找礼物 2697

2024-07-04 06:01| 来源: 网络整理| 查看: 265

题目题解代码

题目

新年到了，突然间，就在那美丽的一霎那，你好友和你（K个人）的周围满是礼物，你发扬你帅气的风格，让你的好友先拿，但是每个人只能拿当前离自己最近的礼物[当然如果有并列的多个礼物离你的距离相等（精确到小数后四位,所有运算均为去尾），这些礼物就都属于这个人]。现在你们所在的位置是原点(0,0)，每个礼物的位置用坐标表示。现在告诉你每个礼物的坐标，还有每个礼物是谁送的。要你找出你的礼物离你多远，你能拿到多少礼物，这些礼物是谁送的。如果你拿不到礼物，请输出“555”

对于30%的数据 K≤N≤1000 对于所有的数据 K≤N≤100000 所有的坐标绝对值小于10^6

题解

模拟即可

点与点间的距离是很好算的了，精确到小数点后四位也是很好处理的了（*10000取整）。

处理读入的字符串时判断空格的位置即可，人的名字很长，不过只要求输出前21位。

提交编译错误了n次，错的是哪里呢？ val(copy(t,1,length(t)),y);//t打成了s

代码 var n,k,i,j,x,y,ans,c:longint; a,b:array[0..100500]of longint; s:array [0..100500] of string; t:ansistring; d:double; procedure qsort(l,r:longint); var i,j,key,key2,t:longint; begin if l>=r then exit; i:=l;j:=r; key:=a[(l+r) div 2]; key2:=b[(l+r) div 2]; repeat while (a[i]key2) do dec(j); if ij; qsort(i,r); qsort(l,j); end; begin // assign(input,'find9.in'); // assign(output,'find.out'); // reset(input);rewrite(output); readln(n,k); for i:=1 to n do begin readln(t); if length(copy(t,1,pos(' ',t)-1))>21 then s[i]:=copy(t,1,21) else s[i]:=copy(t,1,pos(' ',t)-1); delete(t,1,pos(' ',t)); if t[1]='-' then delete(t,1,1); val(copy(t,1,pos(' ',t)-1),x); delete(t,1,pos(' ',t)); if t[1]='-' then delete(t,1,1); val(copy(t,1,length(t)),y); a[i]:=trunc(sqrt(sqr(x)+sqr(y))*10000); b[i]:=i; end; qsort(1,n); i:=1; while (i0) do begin if k=1 then break; while (in then writeln('555') else begin k:=a[i];x:=i; while (i

【本文地址】

公司简介

联系我们

今日新闻

推荐新闻

专题文章