|
优学合肥奥数网讯：信息学奥赛语言教程PASCAL函数表。 1、数学函数 求绝对值函数abs(x) 定义：functionAbs(X):(Sametypeasparameter); 说明：X可以是整型，也可以是实型；返回值和X的类型一致例子： var r:Real; i:Integer; begin r:=Abs(-2.3);{2.3} i:=Abs(-157);{157} end. 取整函数int(x) 定义：functionInt(X:Real):Real;注意：X是实型数，返回值也是实型的；返回的是X的整数部分，也就是说，X被截尾了（而不是四舍五入）例子： varR:Real; begin R:=Int(123.567);{123.0} R:=Int(-123.456);{-123.0} end. 下一页阅读：截尾函数、四舍五入函数 截尾函数trunc(x) 定义：functionTrunc(X:Real):Longint;注意：X是实型表达式.Trunc返回Longint型的X的整数部分例子： begin Writeln(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. 四舍五入函数round(x) 定义：functionRound(X:Real):Longint;注意：X是实型表达式.Round返回Longint型的X的四舍五入值.如果返回值超出了Longint的表示范围，则出错.例子： begin Writeln(1.4,'roundsto',Round(1.4));{1} Writeln(1.5,'roundsto',Round(1.5));{2} Writeln(-1.4,'roundsto',Round(-1.4));{-1} Writeln(-1.5,'roundsto',Round(-1.5));{-2} end. 下一页阅读：取小数函数、求平方根函数和平方函数 取小数函数frac(x) 定义：functionFrac(X:Real):Real;注意：X是实型表达式.结果返回X的小数部分;也就是说，Frac(X)=X-Int(_X).例子： var R:Real; begin R:=Frac(123.456);{0.456} R:=Frac(-123.456);{-0.456} end. 求平方根函数sqrt(x)和平方函数sqr(x) 定义： 平方根：functionSqrt(X:Real):Real; 注意：X是实型表达式.返回实型的X的平方根.平方：functionSqr(X):(Sametypeasparameter); 注意：X是实型或整型表达式.返回值的类型和X的类型一致，大小是X的平方，即X*X. 例子： begin Writeln('5squaredis',Sqr(5));{25} Writeln('Thesquarerootof2is',Sqrt(2.0));{1.414} 下一页阅读：其他常用函数 2、其他常用函数 functionbinstr(value:longint;cnt:byte):string; 将value转二进制，取后cnt个字符所成字串 functionlowercase(c:charorstring):charorstring; upcase的反函数 proceduresetlength(vars:string;len:longint); 将s长度定为len functionpower(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函数测试变体是否为unassignedvarisnull函数测试变体是否为null vartodatetime函数将给定的变体转换为日期时间 vartype函数将变体转换为指定的类型并保存他 visible属性控件的可见性 wantreturns属性为true时，按回车键产生一个回车符；为false时，按下ctrl+enter才产生回车符write命令对有格式的文件，写一变量到文件组件中；对文本文件，写一个或多个值到文件 下一页阅读：其他不常用函数 3、其他不常用函数 Addr 语法functionAddr(varf:text); 说明addr返回一个变量，类型或过程的地址。结果为指针类型 assigncer 语法procedureassigncrt(varf:file;name:string); 说明将文件f的内容输于显示器上 bolckread 语法procedureblockread(varf:file;varb:type;numrecs:integer;varecsread:integer); 说明从无类型文件f中读出number个记录，放在缓冲区b.recsread表示了实际读出的记 录数。注意：只有pcms-dos版才支持recsread bolckwrite 语法procedureblockwrite(varf:file;varb:type;numrecs:integer); 说明从缓冲区b读出numrecs个记录至无类型文件中。 chdir 表示的目录.语法procedurechdir(s:string); 说明将当前的目录换为s所 filesize 语法function(f:file):integer; 说明返回f当前所含的记录数。 filepos 语法function(f:file):integer; 说明返回文件f指针所指向的记录号 fillpoly(dos) 语法frocedurefillpoly(munpoints:word;varpolypoints); 说明用munpoints个点画一个多边形，数组munpoints含多边形的顶点坐标 flush 说明procedureflush(varf:file) 语法刷新用于输出文件f的全部磁盘缓冲区 frac 语法functionfrac(r:real):real; 说明返回实数r的小数部分 fsearch(dos) 语法functionfsearch(path:pathstr;dirlist:string):pathstr 说明查找dirlist目录中的与path相匹配的文件。如果找到则以一个字符串返回结果，否则返回的函数值为一空串 insline 语法procedureinsline; 说明在当前光标的所在位置插入一空行 mark 语法proceduremark(p:pionter) 说明贮存了当前堆顶端知底于指针p中 maxavaih 语法functionmaxavil:longint 说明返回堆中最大的自由块的尺寸 menavail 语法functionmemavail:longint 说明返回堆中自由空间的总长度 mkdir 语法proceduremkdir(s:string) 说明以字符串s命名建立一个目录（文件夹） parammstr 语法functionparamstr(i;word:string); 说明返回命令行所指定的参数。例如paramstr(1)返回第一个参数。在dos3.0以上的版本返回执行文件的路径和文件名 randomize 语法functionrandomize; 说明初始化随机产生程序。其基数存放在长整型randseed中 release 语法procedurefalease(varp;pointer) 说明释放由mark命令所设置的内存。用mark于贮存指针的堆地址 rename 语法procedurerename(varf:file;s:string) 说明将文件f的文件名变为字符串s rmdir 语法procedurermdir(s:string) 说明删除目录s(文件夹) sound（crt单元） sound(i:integer) 利用内部扬声器发音 seekeof 语法functionseekeof(varfile)：boolean 说明与eof相似，只是在测试文件结束前要跳过空格，制表符号和文件的结束符（cr/cf） truncate 语法proceduretrunvate 说明在当前文件f指针处强行结束文件，文件指针后的内容丢失 更多内容，请参加优学合肥奥数网“杯赛竞赛”频道。 》》“信息学竞赛” 信息学竞赛可能用到的c++语法 信息学奥林匹克竞赛与编程语言的关系 全国青少年信息学奥林匹克竞赛规则 安徽省青少年信息学竞赛基本知识点（小学组） | 
