文章分类 -  凸包

摘要:扫一遍凸包,然后卡一圈壳。 (pascal好玄) 1 type Point=record 2 x,y:Real; 3 end; 4 var i,j,n,top,his,p1,p2:longint; 5 p,stack:array[0..10010] of Point; 6 ans:Real; 7 8 阅读全文
posted @ 2017-01-31 20:53 KingSann 阅读(86) 评论(0) 推荐(0)