Delphi数学常用操作函数二

1. Inc

procedure Inc(var X [ ; N: Longint ] );：整数自加N。其中，X为变量；N为要增加的长度。例如：

D1 := 1;
Inc(D1);  //结果为2
Inc(D1,2);  //D1= D1 +2 结果为3

2. Odd

function Odd(X: Longint): Boolean;：判断X的奇偶数。如果X为奇数，则返回true；否则返回false。

 

3.Ord

function Ord(X);：利用X来获取X的ASCII的值。

 

4. Mean

function Mean(const Data: array of Double): Extended;：返回Data数组中所有数值的算术平均值。例如：

Mean([15,20,25,60]);   //其结果为30

5. Sum、SumInt

Sum

function Sum(const Data: array of Double): Extended; register;：返回双精度型Data数组中所有数值的总和。例如：

Sum([1.0,1.1]);  //结果为2.1

SumInt

function SumInt(const Data: array of Integer): Integer register;：返回整数型数组中所有数值的总和。例如：

SumInt([150,100]);   //结果为250

6. MaxIntValue、MaxValue、MinIntValue、MinValue

MaxIntValue

function MaxIntValue(const Data: array of Integer): Integer;：获取Data数组中的最大整数。

MaxValue

function MaxValue(const Data: array of Double): Double;：获取Data数组中的最大浮点数。

函数MinIntValue、MinValue刚好与上面刚刚介绍的函数相反。