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剛好與上面剛剛介紹的函數相反。