System 中的数学函数

 

//绝对值: Absvar  d: Real;  v: Variant;begin  d := Abs(-1.2);  ShowMessage(FloatToStr(d)); {1.2}  v := '-100';  ShowMessage(v);             {-100; v 是变体类型无需转换}  v := Abs(v);  ShowMessage(v);             {100; 如果变量的确是个数字, 变体类型也是可以取绝对值}end;

---

//返回整数: Trunc、Round、Intvar  i: Integer;  d: Real;begin  i := Trunc(1234.5678);    {截断}  ShowMessage(IntToStr(i)); {1234}  i := Round(1234.5678);    {四舍五入}  ShowMessage(IntToStr(i)); {1235}  {Int 和 Trunc 都是向 0 方向舍入, 但 Int 返回的不是整数类型}  d := Int(-1234.5678);  ShowMessage(FloatToStr(d)); {-1234}end;

---

//平方: Sqr var  d: Real;begin  d := Sqr(6);  ShowMessage(FloatToStr(d)); {36}end;

---

//平方根: Sqrt var  d: Real;begin  d := Sqrt(81);  ShowMessage(FloatToStr(d)); {9}end;

---

//判断一个整数是不是奇数: Oddvar  i: Integer;  b: Boolean;begin  i := 11;  b := Odd(i);               {是奇数返回真}  ShowMessage(BoolToStr(b)); {True}  i := 12;  b := Odd(i);  ShowMessage(BoolToStr(b)); {False}end;