System 中的数学函数

此页已更新到: System 单元下的公用函数目录

---

//绝对值: Abs
var
  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、Int
var
  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;


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

  i := 12;
  b := Odd(i);
  ShowMessage(BoolToStr(b)); {False}
end;