直接上代码：需要引用Math单元。 procedureCenterRadiusPoint(constPX,PY:Integer;constAngle:Double;constRadius:Integer;varX,Y:Integer);varAngleHude:Double;beginAngleHude:=A...