1、1pascal 函数大全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
2、)=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(
3、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 取 01 之间的随机数（不能取到 1） randomize 随机数的种子函数,在每次设置随机数时都要把这个函数放在最前面. Fillchar(a,size(a),0) 数组初始化，即把数组 a 的值
4、全部置为 0 赋成布尔型变量也可以SHR: x SHR n 把 x 换成二进制后向右移 n 位，相当于 把 x 除以 2n SHL: x SHL n 把 x 换成二进制后向左移 n 位，相当于 把 x 乘以 2n编辑本段二、字符串函数1. 连接运算 concat(s1,s2,s3sn) 相当于 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 个字
5、符开始后的长度为 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 的大
6、写体。 例：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:=12342标准函数是 Turbo Pascal 语言预先定义的，它们实际上是能完成特定功能的称步子程序的程序段。每个标准函数都用一个标识符来标识，每个标准函数都能完成一个特定的功能，在程序中可以直接调用它们。Turbo Pascal 语言中某些标准函数与
7、数学中的函数有相似之处。一、整数类型函数整型是顺序类型，即所有的整型数都是按一定的顺序排列的。如 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
8、 (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
9、)：函数值为 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) 间的随机小数；有自变量且为
10、Word 类型时，函数值取(0，自变量)间的随机整数。halt：退出程序。 （使用前不要忘了关闭文件） exit：在过程或函数中退出过程或函数，主程序中相当于 halt，在函数中，exit（i） ；表示把 i 的值赋给函数并退出函数。 break：退出 for 循环。 continue：跳过执行的这步 for 循环。 SYSTEM TP 的运行库，包括常用的标准函数和过程，可以在程序 中直接使用，不需 USES 语句说明。 DOS 具有日期、时间、目录查找、程序执行等功能 3CRT 具有屏幕模式控制、扩展键盘码、颜色、窗口、声音等 功能 PRINTER 支持打印输出操作。 GRAPH 高级图形
11、软件包，支持多种图形适配器。 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
12、,NUM) P 写无类型文件 BREAK P 中止或结束循环 CHDIR(PATH) P 改变当前目录 CHR(X) F 求 ASCII 码值为 X 的字符 CLOSE(F) P 关闭文件 CONCAT(S1,S2.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 判
13、断文件是否结束 EOLN(F) F 判断文件类型中的一行是否结束 ERASE(F) P 删除一个存在的外部文件。 EXIT P 过程中止 EXP(X) F 以 E 为底的指数函数 FILEPOS(F) F 文件记录的当前位置 FILESIZE(F) F 文件记录数 FILLCHAR(D,LEN,DATE) P 填充数值或字符 FLUSH(F) P 清空文件缓存区 FRAC(X) F 取实形变量的小数部分 FREEMEM(P,I) P 释放变长动态变量 GETDIR(DRV,PATH) P 取当前盘，当前目录 GETMEM(P,I) P 分配变长的动态变量，并把块地址存放在一个指针变量中 HAL
14、T P 立即中止程序执行，返回 TP 编辑器或 DOS HI(I) F 返回一个变量的高位字节 INSERT(S,D,POS) F 在一个字符串中某一位置开始插入一个子串 INT F 取整数部分 IORESULT F 返回最后一次输入/出操作的结果状态 4LENGTH(S) F 取字符串的长度 LN(R) F 求自然对数 LO(I) F 返回一个变量的低位字节 MAXAVAIL F 返回最大内存空间 MEMAVAIL F 返回可用内存数目 MKDIR(PATH) P 建立一个子目录 MOVE(S,D,LEN) P 快传送 NEW(P) P 建立一个新的动态变量SECKEOLN SECKEOF :结束
