Delphi 数学函数:常用的几个数学函数(Power、Abs、Int、Trunc、Round、Frac、sqr、sqrt)

Delphi 常用的几个数学函数

1

Power函数,求次方

定义:function Power(X,Y): (Same type as parameter);

说明:X可以是整型,也可以是实型;返回值实型例子:

var
 i:integer;
begin
 i := Power(2,3); { 8 }    // 2的3次方
end.

 

2

Abs(x) 函数 ,求绝对值。
定义:function Abs(X): (Same type as parameter);
说明:X可以是整型,也可以是实型;返回值和X的类型一致例子:

var
  r: Real;
  i: Integer;
begin
  r := Abs(-10.3);   { 10.3 }
  i := Abs(-170);    { 170 }
end. 

  

3
Int(x) 函数  取整数(实数)
定义:function Int(X: Real): Real; 注意:X是实型数,返回值也是实型的;返回的是X的整数部分,也就是说,X被截尾了(而不是四舍五入)例子:

var R: Real;
begin
    R := Int(123.4567); { 123.0 }
    R := Int(-123.456); { -123.0 }
end.

  

4
Trunc(x)函数 取整(整数 截尾)
定义:function Trunc(X: Real): Longint; 注意:X是实型表达式. Trunc 返回Longint型的X的整数部分例子:

begin
  Writeln(2.4, ' becomes ', Trunc(2.4));   { 2 }
  Writeln(2.5, ' becomes ', Trunc(2.5));   { 2 }
  Writeln(-2.4, 'becomes ', Trunc(-2.4));   { -2 }
  Writeln(-2.5, 'becomes ', Trunc(-2.5));   { -2 }
end. 

 

Int(x)函数和Trunc(x)函数 都是取整数,那么他们有什么区别呢,直接看输出便知:

Trunc 取整 : X := trunc(10.6) X := 10; //X是Int64类型,是整数
Int 取整 : X := Int(10.6) X := 10.0      //X是一个浮点数

 

5
Round(x)函数  四舍五入
定义:function Round(X: Real): Longint; 注意:X是实型表达式. Round 返回Longint型的X的四舍五入值.如果返回值超出了Longint的表示范围,则出错. 例子:

begin
  Writeln(2.4, ' rounds to ', Round(2.4));     { 2 }
  Writeln(2.5, ' rounds to ', Round(2.5));     { 3 }
  Writeln(-2.4, 'rounds to ', Round(-2.4));    { -2 }
  Writeln(-2.5, 'rounds to ', Round(-2.5));    { -3 }
end. 

 

6
Frac(x)函数  取小数
定义:function Frac(X: Real): Real; 注意:X 是实型表达式. 结果返回 X 的小数部分; 也就是说,Frac(X) = X - Int(_X). 例子:

var
    R: Real;
begin
    R := Frac(123.456); { 0.456 }
    R := Frac(-123.456); { -0.456 }
end. 

  


7
sqr(x) 平方函数

sqrt(x) 求平方根函数
定义:
平方根:function Sqrt(X: Real): Real;
注意:X 是实型表达式. 返回实型的X的平方根. 平方:function Sqr(X): (Same type as parameter); 
注意:X 是实型或整型表达式.返回值的类型和X的类型一致,大小是X的平方,即X*X. 
例子:

begin
  Writeln('5的平方 ', Sqr(5));     {结果 25 }     
  Writeln('2的平方根 ',Sqrt(2.0));   {结果 1.414 }  
end;

  

 

 




Pascal函数实例
标准数据类型的含义及符号
(1)

整型数的取值范围:-32768 <= n <= 32768;

整型运算操作:+、-、*、div、mod;

整型关系操作:=、<>、>=、<=,

结果为布尔型;有关整型的标准函数:

整型函数
函数名               函数值               例
前接函数 pred(x)       x-1                 pred(4)=3
后继函数 succ(x)       x+1                succ(-3)=-2
绝对值函数abs(x)       |x|                 abs(-1)=1
平方函数sqr(x)           x^2                   sqr(-5)=25
奇函数 odd(x)        x为奇数时值为True      odd(1)=true
            x为偶数时值为False       odd(16)=false
字符函数chr(x)      序号为x的ASCII字符       chr(65)=\'\'a\'\'
                            a对应的序号65


(2)

实型数的绝对值取值范围:1E-38~1E+38;计算机实数的表示标准形式往往类如1.2E-8,-1234.56E+3等形式;实数范围比整数大,但实型数的运算速度比整形数慢,另外实型数在存储时会出现小的误差;
实型的运算操作:+、-、*、/。只要有一个运算对象是实型量,其运算结果总是实型量,即其可与整型量混合计算。

实型的关系操作;=、<>、>=、<=,结果为布尔型,即两种结果:true或false。

实型函数种类:
abs(x);
sqr(x);
sin(x)正弦函数,求数学三角正弦函数的值,如sin(1.570789)=0.99999,注意X值要以弧度作单位;
cos(x)余弦函数;
arctan(x)反正切函数;
ln(x)自然对数;
exp(x)指数函数;求ex的值。
Sqrt(x)平方根函数;如sqrt(1.44)=1.2
trunc(x)截尾函数;截去实数x的小数部分,保留整数,例:trunc(-3.3)=-3;
round(x)舍入函数;将实数x四舍五入得到最接近的整数,例;round(3.3)=3,round(-8.9)=-9;

注意:实型数据没有pred和succ函数。

 


(3)

布尔型数据的值只有两个:false和true,前者序号为0,后者序号为1。布尔类型数据最少,但用途广泛,主要用于程序设计中的流程控制和逻辑判断。

布尔型数据可作如下运算操作:
not(逻辑非),and(逻辑与),or(逻辑与)。

布尔型的标准函数:
ORD(X) 序号函数,例:ORD(FALSE)=0,ORD(TRUE)=1;
RRED(X) 前趋函数,例:PRED(TRUE)=FALSE,但X的值为TRUE时,只有前接值,没有后趋值;
SUCC(X)后继函数,例:SUCC(FALSE)=TRUE,但X的值为FALSE时,只有后继值,没有前趋值;
EOF(X)和EOLN(X)文件结束函数,行结束函数,此处不予以讨论。

(4)

字符型数据取值范围:ASCⅡ码表中的一部分,包含几十个大小写英文字母与数字及数字、各种符号(含空格),注意每个字符符号均有相应的序号,而序号可视为整型数,所以字符型与整型是可以转换的。

在PASCAL程序中,用单引号括起来的一个字符表视字符型数据,如\'\'A\'\',\'\'8\'\',\'\'+\'\',\'\' \'\',分别表示字母A,数字8,字符+和空格。注意整型或实型的8与字符型的8是有本质的区别的。

字符型数据不可直接进行运算操作+、-、*、/;

字符型数据可做如下关系操作:>,<,=,<>,<=,>=,运算结果是布尔类型的值,即TRUE或FALSE。

字符性的标准函数:
ORD(x) 求X的序号,例如:ORD(\'\'C\'\')=67;ORD(\'\'0\'\')=48;ORD(\'\'A\'\')=65;
ORD(\'\'A\'\')=97;
PRED(X) 求X的前接值,例如:PRED(\'\'6\'\')=\'\'5\'\';
SUCC(X) 求X的后续值,例如:SUCC(\'\'6\'\')=\'\'7\'\'
CHR(X) 求序号为X的相应自负,是ORD的逆函数,例如:CHR(67)=\'\'C\'\';
CHR(ORD(\'\'X\'\')-1);

例如如下关系也成立;
ORD(\'\'9\'\')-ORD(\'\'1\'\')=57-49=8;
SUCC(X)=CHR(ORD(X)+1);如SUCC(\'\'B\'\')=CHR(ORD(\'\'B\'\')+1)=CHR(66+1)-C\'\';
PRED(X)=CHR(ORD(X)-1);如PRED( \'\'B\'\')=CHR(ORD(\'\'B\'\')-1)=CHR(66-1)=\'\'A\'\'

 

posted on 2015-10-03 12:37  滔Roy  阅读(5765)  评论(0编辑  收藏  举报

导航