第一问答网»论坛 › 中问网 › 问答 › 求个Graham 的凸包或者zoj3234 我要pascal ..恩 ...

求个Graham 的凸包或者zoj3234 我要pascal ..恩

11 |

1 | 2012-3-7 20:20:05 | 显示全部楼层 |阅读模式

program Graham; consteps = 0.000001;typeTPoint = record
x, y: extended;end;TVector = TPoint;varn: longint;a: array[1..10000] of TPoint;stack: array[1..10000] of TVector;i, j: longint;t, l: longint;total: extended; function dis(const a, b: TPoint): extended;begin
dis := sqrt(sqr(a....

使用道具举报