PASCAL函数表

PASCAL函数表

1、数学函数

求绝对值函数abs(x)

定义：function Abs(X): (Same type as parameter);

说明：X可以是整型，也可以是实型；返回值和X的类型一致例子：

var

r: Real;

i: Integer;

begin

r := Abs(-2.3); { 2.3 }

i := Abs(-157); { 157 }

end.

2、取整函数int(x)

定义：function Int(X: Real): Real; 注意：X是实型数，返回值也是实型的；返回的是X 的整数部分，也就是说，X被截尾了（而不是四舍五入）例子：

var R: Real;

begin

R := Int(123.567); { 123.0 }

R := Int(-123.456); { -123.0 }

end.

3、截尾函数trunc(x)

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

begin

Writeln(1.4, ' becomes ', Trunc(1.4)); { 1 }

Writeln(1.5, ' becomes ', Trunc(1.5)); { 1 }

Writeln(-1.4, 'becomes ', Trunc(-1.4)); { -1 }

Writeln(-1.5, 'becomes ', Trunc(-1.5)); { -1 }

end.

4、四舍五入函数round(x)

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

begin

Writeln(1.4, ' rounds to ', Round(1.4)); { 1 }

Writeln(1.5, ' rounds to ', Round(1.5)); { 2 }

Writeln(-1.4, 'rounds to ', Round(-1.4));{ -1 }

Writeln(-1.5, 'rounds to ', Round(-1.5));{ -2 }

end.

5、取小数函数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.

6、求平方根函数sqrt(x)和平方函数sqr(x)

定义：

平方根：function Sqrt(X: Real): Real;

注意：X 是实型表达式. 返回实型的X的平方根. 平方：function Sqr(X): (Same type as parameter);

注意：X 是实型或整型表达式.返回值的类型和X的类型一致，大小是X的平方，即X*X. 例子：

begin

Writeln('5 squared is ', Sqr(5)); { 25 }

Writeln('The square root of 2 is ',Sqrt(2.0)); { 1.414 }

2、其他常用函数

function binstr(value:longint;cnt:byte):string;

将value转二进制，取后cnt个字符所成字串

function lowercase(c:char or string):char or string;

upcase 的反函数

procedure setlength(var s:string;len:longint);

将s长度定为len

function power(base,expon:real):real;

base的expon次方

strlcopy 函数将一个字符串中的字符复制到另一个字符串中

strlen 函数返回字符串中的字符数

strlfmt 函数格式化一系列的参数，其结果中包含有指向目标缓冲区的指针

strlicomp 函数以最大长度比较两个字符串（不区分大小写）

strlower 函数将字符串中的字符转换为小写

strmove 函数将一个字符串中的字符复制到另一个字符串中

strnew 函数在堆栈上分配一个字符串

strpas 函数将以null结束的字符串转换为pascal类的字符串

strpcopy 函数将pascal类的字符串复制为以null结束的字符串

strplcopy 函数从pascal类的最大长度字符串复制为以null结束的字符串

strpos 函数返回一个字符串在另一个字符串中首次出现指针

strrscan 函数返回字符串中最后出现字符的指针

strscan 函数返回字符串中出现首字符的指针

strtodate 函数将字符串转换为日期格式

strtodatetime 函数将字符串转换为日期/时间格式

strtofloat 函数将给定的字符串转换为浮点数

strtoint 函数将字符串转换为整型

strtointdef 函数将字符串转换为整型或默认值

strtotime 函数将字符串转换为时间格式