Pascal函数

1、数学函数绝对值函数abs(x)截尾函数trunc(x)四舍五入函数round(x) 取小数函数frac(x) 求平方根函数sqrt(x)和平方函数sqr(x) 2、所有单元 system tp的运行库，包括常用的标准函数和过程，可以在程序中直接使用，不需uses语句说明。

dos 具有日期、时间、目录查找、程序执行等功能crt 具有屏幕模式控制、扩展键盘码、颜色、窗口、声音等功能printer 支持打印输出操作。

graph 高级图形软件包，支持多种图形适配器。

graph3 实现tp3.0的图形软件包。

turbo3 兼容tp3.0的源程序。

overlay 实现高级覆盖管理3、system单元system单元常用过程与函数abs(x) f 求变量的绝对值addr(x) f 测变量地址append(f) p 打开一个存在的文本文件，并将文件指针指向文件末尾准备添加元素arctan(x) f 反正切assign(f,c) p 将字符串c所表示的外部文件名赋给文件变量fassigned(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(s1,s2...s3） f 字符串合并continue p 继续循环copy(s,pos,len) f 返回一个字符串的子串cos(x) f 余弦函数cseg f 返回cs寄存器的当前值dec(x) f x:=x-1delete(s,pos,len) p 删除一个字符串的子串dispose(p) p 释放一个动态变量dseg f 返回ds寄存器的当前值eof(f) f 判断文件是否结束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 分配变长的动态变量，并把块地址存放在一个指针变量中halt p 立即中止程序执行，返回tp编辑器或doshi(i) f 返回一个变量的高位字节insert(s,d,pos) f 在一个字符串中某一位置开始插入一个子串int f 取整数部分ioresult f 返回最后一次输入/出操作的结果状态length(s) f 取字符串的长度ln(r) f 求自然对数lo(i) f 返回一个变量的低位字节maxavail f 返回最大内存空间memavail f 返回可用内存数目mkdir(path) p 建立一个子目录move(s,d,len) p 快传送new(p) p 建立一个新的动态变量odd(x) f 判断一个变量的值是否为奇数ofs(x) f 侧变量偏移地址ord(ch) f 求一个字符的ascii码值paramcount f dos参数串长度paramstr(n) f dos参数串pi f 圆周率的值pos(str1,str2) f 测一个字符串中包含的另一个子串的开始位置pred(x) f 求前驱ptr(i) f 指针赋值random f 返回0~1之间的随机实数randomize p 初始化随机数发生器read/readln(f,x) p 读入/输入数据rename(f,str) p 给一个外部文件改名reset(f) p 打开文件，并将文件指针指向开始，并准备读数据rewrite(f) p 打开文件，并将文件指针指向开始，准备写资料rmdir(path) p 删除一个子目录round(x) f 求实数的近似数runerror p 停止程序的运行scrollto p 滚动显示窗口的某部分内容seek(f,n) p 将文件指针定位于文件f的第n个文件成分上seekrof(f) f 定位到文件尾seekroln(f) f 定位到行尾seg(n) f 测变量段地址settextbuf(f) p 将输入/出缓冲区与一个文本文件建立关联sin(x) f 正弦函数sizeof(x) f 测变量大小sptr f 返回sp寄存器的当前值sqr(x) f 平方sqrt(x) f 平方根sseg f 返回ss寄存器的当前值str(i,s) f 将一个整数转换成字符串succ(X) f 后继函数swap(x) f 交换一个变量的高位和低位字节trunc(x) f 截去实数的小数部分truncate(f) p 截去文件当前指针以后的内容upcase(ch) f 将小写字母转换成大写字母val(s,r,p) p 将一个字符串转换成数值writeln(f,x) p 输出4、DOS单元dos单元常用过程与函数getdate p 返回系统当前日期detftime p 返回最后一次写入的日期和时间gettime p 返回系统当前时间packtime p 转换系统日期和时间，封装成4个字节的长整形格式setdate p 设置系统当前日期setftime p 写入新的系统日期和时间，覆盖系统最后一次写入的系统日期和时间文件settime p 设置系统当前时间uppacktime p 将系统日期和时间转换成纪录格式diskfree f 返回指定磁盘可用剩余空间disksize f 返回指定磁盘的总容量get/setverity p 返回/设置dos状态下的磁盘读写标记fexpand f 返回函数名的全称fsearch f 在一个目录中查找文件fsplit f 将一个文件名分成目录、文件名、扩展名findfirst p 在当前目录或指定目录下查找第一个与给定属性相匹配的文件名findnext p 返回下一个满足匹配条件的文件名getfattr p 返回文件的属性setfattr p 设置文件属性gerintvec p 返回某个中断变量值intr p 执行软中断msdos p 执行dos 系统调用setintvec p 设定中断值exec p 通过一个特定命令行执行特定程序段keep p 中断程序的执行但仍驻留在内存中swapvectors p 用当前变量交换所有中断变量值dosexitcode f 回到子程序出口dosversion f 显示dos版本5、CRT单元crt单元assigncrt(f) p 将文本文件f与显示器crt建立联系clreol p 清除当前行光标所在位置以后的字符clrscr p 清除当前窗口或屏幕，光标返回到左上角delay(t) p 等待t毫秒delline p 清除光标所在行上所有内容gotoxy(x,y) p 将光标移到屏幕某处highvideo p 选择高亮度显示字符insline p 在当前光标位置插入空行keypressed f 测定键盘输入状态lowvideo p 低亮度显示字符normvideo p 选择正常文本属性从光标所在位置开始显示字符nosound p 关闭内部扬声器readkey p 等待从键盘输入一个字符sound(hz) p 以hz指定的频率发声textbackground(soor) p 设置正文背景颜色textcolor(color) p 设置正文前景颜色textmode p 选择特定的文本显示模式wherex/y f 返回当前光标位置的坐标值window(x1,y1,x2,y2) p 在屏幕定义一个文本窗口6、其他单元其他单元chain(f) p 目标程序链接execute(f) p 执行目标程序mark(p) p 标记动态变量release(p) p 释放动态变量区srtinit p 屏幕初始化crtline p 汉字屏幕方式转换graphbackground(color) p 选择背景色graphcolormode p 中分辨率彩色图形方式，320*200彩色graphmode p 中分辨率黑白图形方式，320*200黑白graphwindow(x1,y1,x2,y2,color)p 定义图形方式窗口hires p 高分辨率单色图形方式，640*200黑白hirescolor(color) p 高分辨率彩色图形方式，640*200彩色palette(color) p 中分辨率彩色图形颜色组ovrpath(path) p 指定覆盖文件路径draw(x1,y1,x2,y2,color) p 画线intr(n,m) p 8086中断调用plot(x,y,color) p 画点random(integer) f 产生随机整数seg(x) f 测变量段地址colortable(c1,c2,c3,c4) p 重定义颜色组arc(x,y,radius,color) p 画圆弧circle(x,y,radius,color) p 画圆getpic(buffer,x1,x2,y1,y2) p 屏幕转储到屏幕putpic(buffer,x,y) p 缓冲器转储到屏幕getdotcolor(x,y) p 读点fillscreen(color) p 填充屏幕fillshape(x,y,fillcol,bordercol) p 填充一个区域7、其他常用函数 function binstr(value:longint;cnt:byte):string;将value转二进制，取后cnt个字符所成字串function lowercase(c:char or string):char or string;upcase 的反函数procedure setlength(var s:string;len:longint);将s长度定为lenfunction power(base,expon:real):real;base的expon次方strlcopy 函数将一个字符串中的字符复制到另一个字符串中strlen 函数返回字符串中的字符数strlfmt 函数格式化一系列的参数，其结果中包含有指向目标缓冲区的指针strlicomp 函数以最大长度比较两个字符串（不区分大小写）strlower 函数将字符串中的字符转换为小写strmove 函数将一个字符串中的字符复制到另一个字符串中strnew 函数在堆栈上分配一个字符串strpas 函数将以null结束的字符串转换为pascal类的字符串strpcopy 函数将pascal类的字符串复制为以null结束的字符串strplcopy 函数从pascal类的最大长度字符串复制为以null结束的字符串strpos 函数返回一个字符串在另一个字符串中首次出现指针strrscan 函数返回字符串中最后出现字符的指针strscan 函数返回字符串中出现首字符的指针strtodate 函数将字符串转换为日期格式strtodatetime 函数将字符串转换为日期/时间格式strtofloat 函数将给定的字符串转换为浮点数strtoint 函数将字符串转换为整型strtointdef 函数将字符串转换为整型或默认值strtotime 函数将字符串转换为时间格式strupper 函数将字符串中的字符转换为大写style 属性类型选择suce 函数返回后继的参数swap 函数交换参数的高低地址位tabs 属性标记每一项的内容tabindex 属性标记索引text 属性显示的文本texttofloat 函数将字符串（以null结束的格式）转换为浮点数time 函数返回当前的时间timetostr 函数将时间格式转换为字符串trim 函数从给定的字符串中删除前导和尾部的空格及控制字符trimleft 函数从给定的字符串中删除首部的空格及控制字符trimright 函数从给定的字符串中删除尾部的空格及控制字符trunc 函数将实型值截取为整型值truncate 函数截去当前文件位置后的内容unselectedcolor 属性未选中颜色upcase 将字符转换为大写uppercase 将给定的字符串变为大写val 函数将字符串转换为整型值vararraycreate 函数以给定的界限和维数建立变体数组vararraydimcount 函数返回给定变体的维数vararrayhighbound 函数返回给定变体数组维数的上界vararraylock 函数锁定给定的变体数组vararraylowbound 函数返回给定变体数组维数的下界vararrayof 函数返回指定变体的数组元素vararrayredim 函数通过改变上限来调整变体的大小vararrayunlock 函数解锁指定的变体数组varastype 函数将变体转换为指定的类型varcase 函数将变体转换为指定的类型并保存他varclear 函数清除指定的变体varcopy 函数将指定的变体复制为指定的变体varformdatetime 函数返回包含日期时间的变体varisarray 函数测试变体是否为数组varisempty 函数测试变体是否为unassigned varisnull 函数测试变体是否为null vartodatetime 函数将给定的变体转换为日期时间vartype 函数将变体转换为指定的类型并保存他visible 属性控件的可见性wantreturns 属性为true时，按回车键产生一个回车符；为false时，按下ctrl+enter 才产生回车符 write 命令对有格式的文件，写一变量到文件组件中；对文本文件，写一个或多个值到文件8、其他不常用函数Addr语法 function Addr(var f:text);说明 addr返回一个变量，类型或过程的地址。