[AHK]面向对象练习

一圆形游泳池。需在其周围建一圈过道，并且在最外边围上栅栏，栅栏价格为每英尺3.5美元，过道造价每平方英尺0.5美元。过道宽度为3英尺，游泳池半径由键盘输入。要求编程计算并输出过道和栅栏的造价。

 

global PI:=3.141592
global FencePrice:=3.5
global ConcretePrice:=0.5
class Circle  ;声明类Circle及其数据和方法
{

; Methods 
; creates a new instance of the Circle object
__New(radius) {   ;构造函数
    this.radius := radius ;数据成员
  }

Circumference() ;计算周长的函数
  {
    Return 2*PI*this.radius
  }
Area()
  {
    Return PI*this.radius*this.radius
  }
ToString(){
    Return "Circle.radius: " . this.radius
  }

}


;~ Main()
InputBox,radius,输入,Enter the radius of the pool:
Pool:=new Circle(radius)
PoolRim:=new Circle(radius+3)
;~ MsgBox % Pool.Circumference()
FenceCost:=PoolRim.Circumference() *FencePrice
ConcreteCost:=(PoolRim.Area() -Pool.Area() )*ConcretePrice

MsgBox,,输出,The radius of the pool is %radius%`nFencing Cost is $ %FenceCost% `nConcrete Cost is $ %ConcreteCost%

Return