裸题,直接上凸包,然后加上一个圆周即可 只是在这之前没写过旋转而已 const pi=3.14159265358979323; eps=1e-8; type point=record x,y:double; end; ..] of point; q:..] of longint; n,i,k,t:longint; ans,a,b,x,y,an,r:double; procedure swap(var a,b:point); var c:point; begin c:=a; a:=b; b:=c;…