admin 管理员组文章数量: 1184232
2024年3月26日发(作者：多久能学会sql)
pascal函数
PASCAL内自带的函数，通常可以直接调用，特殊的需要调用数据库，如：used math
目录
一、数学函数与过程
二、字符串函数与过程
三、标准函数
四、各单元的函数与过程
展开
一、数学函数与过程
过程：
inc(i) 使i:=i+1;
inc(i,b) 使i:=i+b;
dec(i) 使i:=i-1;
dec(i,b) 使i:=i-b;
randomize 随机数的种子函数，在每次设置随机数时都要把这个函数
放在最前面。
函数：
abs(x) 求x的绝对值。例：abs(-3)=3 x为整数
chr(x) 求编号x对应的字符。例：chr(65)='A' chr(97)='a'
chr(48)='0' x为非负整数
ord(x) 求字符x对应的编号。例：ord(‘A')=65 ord(‘a')=97 另外：
ord(false)=0 ord(true)=1 x为字符或数字或布尔量
sqr(x) 求x的平方。例：sqr(4)=16 x为整数
sqrt(x) 求x的正根。例：sqrt(16)=4 (ps：负数是不能进行运算的，
如果需要就要先取绝对值：sqrt(-4)是错的，应该为sqrt(abs(-4))结果为
实数
round(x) 求x的四舍五入。例：round(4.5)=5 x实数
trunc(x) 求x的整数部分。例：trunc(5.6)=5 结果是integer型 x
为实数
int(x) 求x的整数部分。例：int(5.6)=5.0 结果是real型 x为实数
frac (x) 求x的小数部分。例：frac(5.6)=0.6 x为实数
pred(x) 求x的前导。例：pred(‘b')='a' pred(5)=4
pred(true)=false x为字符或数字或布尔量
succ(x) 求x的后继。例：succ(‘b')='c' succ(5)=6
succ(false)=true x为字符或数字或布尔量
odd(x) 判断x是否为奇数。如果是值为true，反之值为false。例：
odd(2)=false odd(5)=true x为整数
power(a,n) 求a的n次方。例：power(2,3)=8 {只有在开启math库
时才可以使用}a,n为整数，但是不能求高精度数
random(n) 取0~n-1之间的随机数(不能取到n) 。n为整数
max(x,y):返回x和y中的较大值。x,y整数
min(x,y):返回x和y中的较小值。x,y整数
二、字符串函数与过程
1. 连接运算（函数） concat(s1,s2,s3„sn) 相当于s1+s2+s3+„+sn。
例：concat('11','aa')='11aa';
2. 求子串。 （函数）Copy(s,I,L) 从字符串s中截取第I个字符开
始，长度为L的子串。
例：copy('abdag',2,3)='bda'
3. 删除子串。（过程） Delete(s,I,l) 从字符串s中删除第I个字
符开始，长度为l的子串。
例：s:='abcde';delete(s,2,3);结果s:='ae'
4. 插入子串。 （过程）Insert(s1,s2,I) 把s1插入到s2的第I个
位置。
例：s:='abc';insert('12',s,2);结果s:='a12bc'
5. 求字符串长度 （函数）length(s) 。
例：length('12abc')=5
6. 搜索子串的位置 （函数）pos(s1,s2) 如果s1是s2的子串 ，则
返回s1的第一个字符在s2中的位置，若不是子串，则返回0。
例：pos('ab','12abcd')=3
7. 字符的大写转换。（函数）Upcase(ch) 求字符ch的大写体。
例：upcase('a')='A'
8. 数值转换为数串。 （过程）Str(x,s) 把数值x化为数串s。
例：str(12345,s); 结果s='12345'
9. 数串转换为数值。 （过程）val(s,x,I) 把数串s转化为数值x,
如果成功则I=0,不成功则I为无效字符的序数。
例：val('1234',x,I);结果 x:=1234
三、标准函数
版权声明：本文标题：pascal常用函数(较全) 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/b/1711428440a593560.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论