常用函数-------数学运算函数

我们在编写跟数学紧密相关的程序时，数学运算函数将大有用处。比如图像处理软件，就会大量用到这些数学运算函数。

 

　　默认情况下，Delphi新建的工程里，没有包含大多数的数学运行函数，因此需要在Uses中加入Math单元。

 

　　1.Abs

　　功能说明：求绝对值。

 

　　参考实例：

 

　　var

 

　　 　r: Single;

 

　　 　i: Integer;

 

　　begin

 

　　 　r := Abs(-2.8); // r等于 2.8

 

　　 　i := Abs(-156); // I 等于 156

 

　　end;

 

　　2.Exp

　　功能说明：Exp返回e的X次幂的值，其中e是一个自然对数基底。

 

　　参考实例：

 

　　 　e := Exp(1.0); // e为real型变量

 

　　end;

 

　　3.Floor

　　功能说明：取得小于等于X的最大的整数。

 

　　参考实例：

 

　　Floor(-2.8) = -3

 

　　Floor(2.8) = 2

 

　　Floor(-1.0) = -1

 

　　4.Int

　　功能说明：返回参数中的整数部分。

 

　　参考实例：

 

　　var

 

　　 　R: Real;

 

　　begin

 

　　 　R := Int(123.456); // R等于 123.0

 

　　 　R := Int(-123.456); // R等于 -123.0

 

　　end;

 

　　5.Max(所在单元：Math)

　　功能说明：比较两个数字，并返回最大的一个数字。

 

　　参考实例：

 

　　var

 

　　 　k: Integer;

 

　　begin

 

　　 　k := Max(10, 20); // k将为20

 

　　end;

 

　　6.Min(所在单元：Math)

　　功能说明：比较两个数字，并返回最小的一个数字。

 

　　参考实例：

 

　　var

 

　　 　k: Integer;

 

　　begin

 

　　 　k := Min(10, 20); // k将为10

 

　　end;

 

　　7.PI

　　功能说明：精确计算返回圆周率。

 

　　参考实例：

 

　　var

 

　　 　x Extended;

 

　　begin

 

　　 　x := PI; // x等于3.1415926535897932385

 

　　end;

 

　　8.Round

　　功能说明：对一个实数进行四舍五入。

 

　　参考实例：

 

　　var

 

　　 　I, j: Integer;

 

　　begin

 

　　 　i := Round(1.25); // i等于1

 

　　 　j := Round(1.62); // j等于2

 

　　end;

 

　　9.Sqr

　　功能说明：取给定值的平方。

 

　　参考实例：

 

　　var

 

　　 i: Integer;

 

　　begin

 

　　 i := Sqr(3); // i等于9

 

　　end;