Pascal中常用的函数和过程.doc

Pascal中常用的函数和过程 1、求绝对值函数abs(x)定义：function Abs(X): (Same type as parameter);说明：X可以是整型，也可以是实型；返回值和X的类型一致例子：varr: Real;i: Integer;beginr := Abs(-2.3); { 2.3 }i := Abs(-157); { 157 }end. 2、取整函数int(x)定义：function Int(X: Real): Real;注意：X是实型数，返回值也是实型的；返回的是X的整数部分，也就是说，X被截尾了（而不是四舍五入）例子：var R: Real;beginR := Int(123.567); { 123.0 }R := Int(-123.456); { -123.0 }end. 3、截尾函数trunc(x)定义：function Trunc(X: Real): Longint;注意：X是实型表达式. Trunc 返回Longint型的X的整数部分例子：beginWriteln(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的表示范围，则出错.例子：beginWriteln(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).例子：varR: Real;beginR := 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.例子：beginWriteln(5 squared is , Sqr(5)); { 25 }Writeln(The square root of 2 is ,Sqrt(2.0)); { 1.414 }end. 7、求字符序号ord(ch)和序号转换字符函数chr(x)定义：字符序号：function Ord(ch: char): integer;注意： ch是字符型，返回的是整型。转换字符：function Chr(X :integer):char ;注意：x是整型，返回的是字符型。例子：beginWriteln( Ord(a)); { 97 }Writeln(Chr(97)); { a }end. 8、pred(x)和succ(x) 函数? 送回参数的前趋或后继数length(s:string)函数：求字符串的长度odd(x:longint)函数：判断表达式是否是奇数?Upcase(ch:char) 函数:把字符转换成大写random（x）:返回零到X之间的随机数。若不指定X，结果是0-1之间的随机实数。inc(x)或者inc(x,n)：把变量x加1或者加ndec(x)或dec(x,n):把变量x减1或者减nrandomize过程：随机数初始化过程Str(x,s:把数字x转换成字符串s过程Val(s,v,code):把字符串s转换成数字v，字符串s必须满足数的语法，若s无效，其中非法字符的下标放在code中，否则，code为零。 附： 如何获取随机数？ 随机数是