PASCAL函数表1、数学函数求绝对值函数abs(x)定义：function Abs(X): (Same type as parameter);说明：X可以是整型，也可以是实型；返回值和X的类型一致例子：varr: Real;i: Integer;beginr := Abs(-2.3); { 2.3 }i := Abs(-157); { 157 }end.2、取整函数int(x)定义：function Int(X: Real): Real; 注意：X是实型数，返回值也是实型的；返回的是X 的整数部分，也就是说，X被截尾了（而不是四舍五入）例子：var R: Real;beginR := Int(123.567); { 123.0 }R := Int(-123.456); { -123.0 }end.3、截尾函数trunc(x)定义：function Trunc(X: Real): Longint; 注意：X是实型表达式. Trunc 返回Longint 型的X的整数部分例子：beginWriteln(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.4、四舍五入函数round(x)定义：function Round(X: Real): Longint; 注意：X是实型表达式. Round 返回Longint 型的X的四舍五入值.如果返回值超出了Longint的表示范围，则出错. 例子：beginWriteln(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 }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). 例子：varR: Real;beginR := Frac(123.456); { 0.456 }R := Frac(-123.456); { -0.456 }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. 例子：beginWriteln('5 squared is ', Sqr(5)); { 25 }Writeln('The square root of 2 is ',Sqrt(2.0)); { 1.414 }2、其他常用函数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 命令对有格式的文件，写一变量到文件组件中；对文本文件，写一个或多个值到文件3、其他不常用函数Addr语法 function Addr(var f:text);说明 addr返回一个变量，类型或过程的地址。

结果为指针类型assigncer语法 procedure assigncrt(var f:file;name:string);说明将文件f的内容输于显示器上bolckread语法procedure blockread(var f:file; var b:type; numrecs:integer;varecsread:integer);说明从无类型文件f中读出number 个记录，放在缓冲区b .recsread表示了实际读出的记录数。

注意：只有pc\ms-dos版才支持recsreadbolckwrite语法 procedure blockwrite(var f:file; var b:type; numrecs:integer);说明从缓冲区b读出numrecs个记录至无类型文件中。

chdir表示的目录.语法 procedure chdir (s:string);说明将当前的目录换为s所filesize语法 function(f:file):integer;说明返回f当前所含的记录数。

filepos语法 function(f:file):integer;说明返回文件f指针所指向的记录号fillpoly(dos)语法 frocedure fillpoly(munpoints:word;var polypoints);说明用munpoints个点画一个多边形，数组munpoints含多边形的顶点坐标flush说明 procedure flush(var f:file)语法刷新用于输出文件f的全部磁盘缓冲区frac语法 function frac(r:real):real;说明返回实数r的小数部分fsearch (dos)语法 function fsearch(path:pathstr;dirlist:string):pathstr说明查找dirlist目录中的与path相匹配的文件。

如果找到则以一个字符串返回结果，否则返回的函数值为一空串insline语法 procedure insline;说明在当前光标的所在位置插入一空行mark语法 procedure mark(p:pionter)说明贮存了当前堆顶端知底于指针p中maxavaih语法 function maxavil:longint说明返回堆中最大的自由块的尺寸menavail语法 function memavail:longint说明返回堆中自由空间的总长度mkdir语法 procedure mkdir(s:string)说明以字符串s命名建立一个目录（文件夹）parammstr语法 function paramstr(i;word:string);说明返回命令行所指定的参数。