凸包----扫除法
摘要：
Program GrahamScan;const filename='GrahamScan.';Type Tpoint=record x,y : Extended;end; var p,b : array[1..1000000] of Tpoint; n,m : longint; Procedure openfile; begin assign(input,filena... 阅读全文
posted @ 2012-02-14 13:39 爱宝宝 阅读(136) 评论(0) 推荐(0) 编辑
