pascal函数大全
pascal函数
编辑本段一、数学函数：
Inc(i) 使i:=i+1; （在free pascal中，它是过程，不能再将值赋给变量，也不能写在语句中直接调用）
dec(i) 使i:=i-1; （在free pascal中，它是过程，不能再将值赋给变量，也不能写在语句中直接调用）
Abs(x) 求x的绝对值 例：abs(-3)=3
Chr(x) 求编号x对应的字符。例：Chr(65)=’A’ chr(97)=’a’ chr(48)=’0’
Ord(x) 求字符x对应的编号。例:ord(‘A’)=65 ord(‘a’)=97 另外：ord(false)=0 ord(true)=1
Sqr(x) 求x的平方。 例：sqr(4)=16
Sqrt(x)求x的开方. 例：sqrt(16)=4
round(x) 求x的四舍五入 例：round(4.5)=5 结果是integer型
trunc(x) 求x的整数部分 例：trunc(5.6)=5 结果是integer型
int(x) 求x的整数部分 例int(5.6)=5.0 结果是real型
frac (x)求x的小数部分 例 frac(5.6)=0.6 （在free pascal中想看小数型式的结果，在输出时应指定场宽）
pred(x) 求x的前导 pred(‘b’)=’a’ pred(5)=4 pred(true)=false
succ(x) 求x的后继 succ(‘b’)=’c’ succ(5)=6 succ(false)=true
odd(x) 判断x是否为奇数。如果是值为true，反之值为false. Odd(2)=false odd(5)=true
power(a,n) 求a的n次方 power(2,3)=8 {只有在开启math库时才可以使用}
random 取0~1之间的随机数（不能取到1）
randomize 随机数的种子函数,在每次设置随机数时都要把这个函数放在最前面.
Fillchar(a,size(a),0) 数组初始化，即把数组a的值全部置为0 {赋成布尔型变量也可以}
SHR: x SHR n 把x换成二进制后向右移n位，相当于 把x 除以 2n
SHL: x SHL n把x换成二进制后向左移n位，相当于 把x 乘以 2n
编辑本段二、字符串函数
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(‘字符串长度0到5912’,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
标准函数是Turbo Pascal语言预先定义的，它们实际上是能完成特定功能的称步子程序的程序段。每个标准函数都用一个标识符来标识，每个标准函数都能完成一个特定的功能，在程序中可以直接调用它们。Turbo Pascal语言中某些标准函数与数学中的函数有相似之处。
一、整数类型函数
整型是顺序类型，即所有的整型数都是按一定的顺序排列的。如3的后序数是4，350的后序数是351。以后介绍的布尔型、字符型、枚举类型和子界类型等都是顺序类型。顺序函数可以对顺序类型数据进行操作，但要注意它们自变量的取值范围。
①前趋函数：Pred(x)函数值为x-l，例如：
Pred (6)=5 Pred (-21)=-22
②后继函数：Succ (x)函数值为x+l，例如：
Succ (l5)=16 Succ (-114)= -113
③绝对值函数：Abs (x)函数值为︱X︱，例如：
Abs (-119)=119 Abs (101)=101
④平方函数：Sqr (x)函数值为X2，例如：
Sqr (-5)=，25 Sqr (l0)= 100
以上四个函数的结果仍是整型数。
⑤奇函数：Odd (x)，函数的结果为布尔型。当X为奇数时，函数值为true；当X为偶数时，函数值为false。例如：
Odd (13)= True Odd (16)= False
⑥字符函数：Chr (X)，函数值是序号的ASCII字符，属字符型。例如：
Chr (65)=’A’ Chr (32)=’ ’
二、实数类型函数
在下列算术函数中，X可以是实型或整型数的表达式。对于函数Abs和Sqr，其结果类型和变量X的类型相同，其他算术函数的结果类型都是实型。
绝对值函数Abs(x)：函数值为x的绝对值
平方函数Sqr (x)：函数值为x的平方
小数函数Frac (x)：函数值为x的小数部分
整数函数Int (x)：函数值为x的整数部分
正弦函数Sin (x)：函数值为x的正弦，其申，的单位为弧度
余弦函数Cos (x)：函数值为x的余弦，其中，的单位为弧度
指数函数Exp (x)：函数值为了ex
对数函数Ln (X)：函数值为x的自然对数
平方根函数的Sqrt (x)：函数值为x的平方根
反正切函数Arctan(x)：函数值为x的反正切，单位为弧度
随机函数Random：无自变量时，函数值取(0,1)间的随机小数；有自变量且为Word类型时，函数值取(0，自变量)间的随机整数。
halt：退出程序。（使用前不要忘了关闭文件）
exit：在过程或函数中退出过程或函数，主程序中相当于halt，在函数中，exit（i）；表示把i的值赋给函数并退出函数。
break：退出for循环。
continue：跳过执行的这步for循环。SYSTEM TP的运行库，包括常用的标准函数和过程，可以在程序 中直接使用，不需USES语句说明。
DOS 具有日期、时间、目录查、程序执行等功能
CRT 具有屏幕模式控制、扩展键盘码、颜、窗口、声音等 功能
PRINTER 支持打印输出操作。
GRAPH 高级图形软件包，支持多种图形适配器。
GRAPH3 实现TP3.0的图形软件包。
TURBO3 兼容TP3.0的源程序。
OVERLAY 实现高级覆盖管理
SYSTEM单元常用过程与函数
ABS(X) F 求变量的绝对值
ADDR(X) F 测变量地址
APPEND(F) P 打开一个存在的文本文件，并将文件指 针指向文件末尾准备添加元素
ARCTAN(X) F 反正切
ASSIGN(F,C) P 将字符串C所表示的外部文件名赋给文件变量F
ASSIGNED(X) P 测试程序当中的指针或变量是否为空
BLOCKREAD(F,D,NUM) P 读类型文件。
BLOCKWRITE(F,D,NUM) P 写无类型文件
BREAK P 中止或结束循环
CHDIR(PATH) P 改变当前目录
CHR(X) F 求ASCII码值为X的字符
CLOSE(F) P 关闭文件
CONCAT(S3） F 字符串合并
CONTINUE P 继续循环
COPY(S,POS,LEN) F 返回一个字符串的子串
COS(X) F 余弦函数
CSEG F 返回CS寄存器的当前值
DEC(X) F X:=X-1
DELETE(S,POS,LEN) P 删除一个字符串的子串
DISPOSE(P) P 释放一个动态变量
DSEG F 返回DS寄存器的当前值
EOF(F) F 判断文件是否结束
EOLN(F) F 判断文件类型中的一行是否结束
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论