PASCAL中常用的函数和过程

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 }
随机数在信息学奥林匹克中可用于随机化搜索、穷举等算法，以优化其性能， 也可用于在快速排序中选择关键数，以使其快速排序算法的最坏情况没有固定的 相应数列。
另外，System 单元中随机种子变量的标识符为 RandSeed，你也可以手动修 改它。如果你希望使用了随机数的程序对同一个输入数据能有恒定的输出结果， 可以设置 RandSeed 为一个定值。
附： 如何获取随机数？
随机数是指理论上没有规律可循、在指定范围内每个数的出现几率相等、无 法根据之前的数来预测下一个数的数列。一般随机数生成器的基本原理是：首先 初始化一个随机种子，其初始值可以是任意的整数；在每次获取随机数时，以随 机种子为基础进行某种特殊的运算，获得一个随机数并返回之，然后再对随机种 子进行某种运算，改变随机种子的值。这样，就可以生成许多比较随机的数，但 同一个初始值的随机种子将会生成完全相同的随机数列。
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.
Pascal 的 System 单元提供了两个与随机数有关的子程序：Randomize 和 Random。
Randomize 过程用于初始化随机种子，其初始值取决于当前的系统时钟。
Random 函数用于获取随机数. 它有两种调用形式：Random，返回一个 0 到 1 之间（不包括 1）的随机实数； Random(N)，返回 0 至 N 之间（不包括 N）的随机整数，N 为 Word 类型整数。
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.
7、求字符序号 ord(ch)和序号转换字符函数 chr(x) 定义： 字符序号：function Ord(ch: char): integer; 注意： ch 是字符型，返回的是整型。 转换字符：function Chr(X :integer):char ; 注意：x 是整型，返回的是字符型。 例子： ord(false)=0 ord(true)=1
11、Upcase(ch:char) 函数:把字符转换成大写 12、random（x）函数:返回零到 X 之间的随机数。若不指定 X，结果是 0-1 之间 的随机实数。 13、inc(x)或者 inc(x,n)过程：把变量 x 加 1 或者加 n 14、dec(x)或 dec(x,n)过程:把变量 x 减 1 或者减 n 15、randomize 过程：随机数初始化 16、过程 Str(x,s):把数字 x 转换成字符串 s 17、过程 Val(s,v,code):把字符串 s 转换成数字 v，字符串 s 必须满足数的语 法，若 s 无效，其中非法字符的下标放在 code 中，否则，code 为零。
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.
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 } end.
begin Writeln( Ord('a')); { 97 } Writeln(Chr(97)); { 'a' } end. 8、pred(x)和 succ(x) 函数 送回参数的前趋或后继数 9、length(s:string)函数：求字符串的长度 10、odd(x:longint)函数：判断表达式是否是奇数
Pascal 中常用的函数和过程
1、求绝对值函数 abs(x) 定义：ion 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.