noip复习资料.pdf

NOIP2002 复习资料 作者：徐沛来 2002．11．23 NOIP2002 复习资料 作者 徐沛来 第一章 Pascal 函数与技巧 一、常用函数与过程： * abs(x):y 取 x 的绝对值，x 与 y 可为整型或实型。 * append(f:text) 用赋给 f 的文件名打开存在的外部文件。如果不存在给定的文件，产生错误。如果 f 已经存在，就先关闭再重新打开它。当前文件指针指向文件尾。 * frac(x):y 取 x 的小数部分，x 与 y 均为实型。 * int(x):y 取 x 的整数部分，x 与 y 均为实型，常写成 trunc(int(x)). * random(x):y 在 0-x 之间的整数中随机找一个整数，x 与 y 均为整型。 * sin(x):y; cos(x):y; arctan(x):y; exp(x):y; ln(x):y 均与数学运算一致,三角函数返回的均为弧度,转换成角度即乘以 Pi 除以 180. * copy(str,n1,n2):substr 从字符串 str 中取从第n1 个字符开始长度为 n2 个字符的子串 substr.n 1 和 n2 是整型 表达式，如果 n1 大于 s 的长度，则返回空字符串。如果指定的n2 大于第 n1 个字符后剩下 的字符数，则返回剩下的字符串。 * pos(substr,str):num 查找 substr 是否为 str 的子串，若是则返回 substr 在 str 中的起始位置，若否则返回 0. * val(str,int,code) 将字串str 转为数值型数据存入int, 如果字符串无效，其中非法字符的下标放在Code 中；否则，code 为零。 * str(num,str) 将 num 表达式转成字符串 str 。 * delete( str,n1,n2) 从原字符串 str 中删去一个从 n1 开始长度为 n2 的子串，如果 Index 比s 长，不删除 任何字符。如果指定的 Count 大于从第 1ndex 大到结尾的字符数，删除剩余部分。 第 1 页 NOIP2002 复习资料 作者 徐沛来 * Insert(Source：String ；Var S ：String ；Index ：Integer) Source 是字符串表达式。S 是任意长度的字符串变量。Index 是整型表达式。过程Insert 把字符串 Source 插入字符串 S 中第 1ndex 个字符开始的位置上。如果字符串比 255 个字符 长，则将第 255 后面的字符截去。 ． * FileSize(var f:text):longint 返回文件字节数。 * Flush(f:text) 如果正文文件由 Rewr 比和Append 打开用来输出，则对 F1ush 的调用将腾空文件缓 冲区，这保证写向文件的字符实际写到外部文件上。Flush 对打开用来输入的文件没有作用。 * SetTextBuf(Varf ：Text ；Var Buf[Size：word]) f 是文本文件变量，Buf 是任何变量，Size 是可选的 Word 表达式。每个文本文件变 量缺省时有一个 128 字节的内部缓冲区用于输入输出操作。该缓冲区对大多数程序来说是足 够了。然而对于 I ／O 繁多的子程序如复制或转换文件，设置大的缓冲区较有利。因为这样 减少了磁盘读写头的移动和系统负荷。本过程使文本文件变量、f 使用指定的缓冲区 BMf ， 而不是内部缓