Question

pascal的标准函数和过程

Answer 1

PASCAL中的函数又分为标准函数与自定义函数。在这里只讲标准函数，标准函数是系统设置的函数，可以直接使用。 1.算术函数 函数标识符 自变量类型 意义 结果类型 abs 整型、实型 绝对值 同自变量 cos 整型、实型 余弦 实型 exp 整型、实型 指数 实型 int 整型、实型 整数部分 实型 ln 整型、实型 自然对数 实型 sin 整型、实型 正弦 实型 sqr 整型、实型 平方 同自变量 sqrt 整型、实型 平方根 实型 2.标量函数 函数标识符 自变量类型 意义 结果类型 odd 整型 判断奇数 布尔型 pred 离散类型 求前趋 同自变量 succ 离散类型 求后继 同自变量 3.转换函数 函数标识符 自变量类型 意义 结果类型 chr byte型 自量对应的字符 字符型 ord 离散类型 自量对应的序号 longint round 实型 四舍五入 longint trunc 实型 截断取整 longint 1 绝对值函数 ABS( ) 例:ABS(-3.14)=3.14 ABS(6)=6 2 平方函数 SQR( ) 例:SQR(4)=16 SQR(-3)=9 3 开方函数 SQRT( ) 例:SQRT(9)=3 AQRT(2)=1.414 4 正弦函 SIN( ) 例:SIN(3.14)=0 SIN(3.14/2)=1.0 5 余弦函数 COS( ) 例:COS(3.14)=1.0 COS(3.14/2)=0 6 以e为底数的指数函数EXP() 例:EXP(3)=e3 7 自然对数函数 LN( ) 例:ln3=ln(3) 8 取整函数 TRUNC( ) ,其作用是将括号里的数的小数全部去掉 例:TRUNC(3.14)=3 TRUNC(4.79)=4 TRUNC(-2.8)=-2 9 四舍五入取整函数 ROUND(), 例:ROUND(3.14)=3.14 ROUND(4.8)=5 ROUND(-3.2)=-3 ROUND(-5.7)=-6 10 前导函数PRED( ),其作用是对括号中的整数求其前面一个整数,或者对括号中的字符根据ASCII码表中的次序求其前面的一个字符 例: PRED(3)=2 PRED(123)=122 PRED(‘C’)=’B’ PRED(‘Z’)=’Y’ 11 后继函数SUCC( ),其作用是对括号中的整数求其后面一个整数,或者对括号中的字符根据ASCII码表中的次序求其后面一个字符 例: SUCC(7)=8 SUCC(2)=3 SUCC(‘A’)=’B’ SUCC(‘Y’)=’Z’ 12 奇函数的判别函数 ODD( ) 其作用是对括号中的整数进行判断,如果为奇数,则结果为真,否则为假 例:ODD(7)=TRUE ODD(4)=FALSE 13 取字符函数 CHR() 其作用是将括号中的整数作为字符的序号,或称字符的ASCII码,并将与序号对应的字符作为结果写出来 例: CHR(65)=’A’ CHR(66)=’B’ CHR(97)=’a’ 14 取序号函数ORD() 该函数是CHR()的逆函数,是根据字母求出其ASCII码 例: ORD(’A’)=65 ORD('B')=66 ORD('a')=97 ORD(CHR(65))=65 CHR(ORD(‘A’))='A' ORD(FALSE)=0 ORD(TRUE)=1 4.杂类函数 Random Random[n] {n是一个整型数，取值范围1～65535} 以上两个是随机函数，前者是产生随机小数，属实数型，产生0≤random<1的随机小数;后者是产生随机整数,属整数型，产生0≤random[n]≤n-1。 Randomize 是个随机化过程，在程序中它常用在随机函数之前，使之产生不同的系列的随机数。如在随机函数之前不使用它，每次运行此程序将产生完全相同的系列的随机数。 *****************************************************************************Pascal常用的算术标准函数有19个: (1) abs(x) 求x的绝对值(|x|)； (2) exp(x) 求ex的值； （e为无理数2.71828…） (3) frac(x)求x的小数部分； (4) int(x) 求x的整数部分(不舍入，函数值为实型)； (5) ln(x) 求以e为底的x的对数（log ex )； (6) odd(x) 判断x的奇偶数(当x为奇数时odd(x)值为true，否则为false)； (7) ord(x) 求x的序号，结果为整型(x为有序类型量)； (8) pi π值(3.1415926535897932…)； (9) pred (x) 求x(有序类型)的前趋值； (10) succ(x) 求x(有序类型)的后继值； (11) random 随机函数，产生0～1的随机值； (12) random(n)产生0～n的随机数(n为word类型，先执行randomize， 才能得到随机整数)； (13) round(x) 求x的四舍五入整数； (14) trunc(x) 求x的整数部分(截掉小数部分，结果为整型)； (15) sqr(x) 求x的平方值(x2 )； (16) sqrt(x) 求x的开平方根值( )； (17) sin(x) 求x的正弦函数(x为弧度)； (18) cox(x) 求x的余弦函数(x为弧度)； (19) arctan(x) 正切的反三角函数(x为数值)； Turbo Pascal过程与函数调用下面是Turbo Pascal的标准过程。
Abs
语法 Function Abs (r：Real)：Real;
Function Abs (r：Integer)：Integer;
Abs返回参数的绝对值。函数结果说明与参数类型（Real或Integer）相同。
Addr
语法 Function Addr(Var Variable)；Pointer；
说明 Addr返回一变量，类型变量或过程的地址。
结果为指针类型
Append
语法 Procedure Append(Var F：Text)；
说明 Append 打开一文本文件以便添加，并将指针定在文件尾
ArcTan
语法 Funtion ArcTan（R：Real）：Real;
说明 ArcTan返回参数的正切值。
Assign
语法 Procedure Assign(Var F：File)；
说明 Assign将文件名Name赋给文件变量F。
BlockRead
语法 Procedure BlockRead（Var F：File;
Var B ：Type;
NumRecs ：Integer;
Var RecsRead ：Integer）；
说明 BlockRead从无类型文件F中读出NumRecs个记录，放在缓冲区B。BlockRead表示了实际读出的记录数。注意，只有PC/MS—DOC版本支持BlockRead
BlockWrite
语法 Procedure BlockWrite （Var F：File;
Var B ：Type;
NumRecs ：Integer）；
说明 BlockWrite从缓冲区B中读出NumRecs个记录写至无类型文件F中。
ChDir
语法 Procedure ChDir（S：string）；
说明 ChDir将当前目录换为S所表示的目录。
Chr
语法 Function Chr（I: Integer）;
说明 Chr返回出I序数值所对应的ASCII字符。
Close
语法 Procedure Close（Var F：File）
说明 Close为文件F清除缓冲区，并关闭该文件。Concat
语法 Function Concat（S1,S2,…Sn）：String;
说明 Concat将任意多个字符串联在一起，返回所有字符串的联接，如果联接后的字符长度大于255，Turbo Pascal出现运行错误。
Copy
语法 Function Copy（S：string;
P,L：integer）：String；
说明 Copy 返回字符串中第P个字符开始的L个字符。
Cos
语法 Function Cos（R：Real）：Real;
说明 Cos返回R的余弦值。
Cseg
语法 Function Cseg：word；
说明 Cseg返回程序代码段的段地址。
Dec
语法 Procedure Dec（Var x：Scalar;
n：LongInt）；
说明 Dec是变量x减去n。若省略n，则x减去1。
Delete
语法 Procedure Delete(S：String;
P,L:Integer);
说明 Delete 删除字符串S中从第P个字符开始的L个字符。
Dispose
语法 Procedure Dispose（P：Pointer）；
说明 释放由指针变量设定的堆存贮区域，Dispose与命令New联合使用。
Dseg
语法 Function Dseg：Word；
说明 Dseg返回程序中数据段的地址。
Eof
语法 Function Eof（F:File）：Boolean；
说明 当F文件指针到达文件尾时，Eof返回TRUE。
Eoln
语法 Function Eoln（F:File）：Boollean;
说明 当F文件指针到达一行的尾（由回车符和换行符表示）或文件尾时，Eoln返回TURE.
Erase
语法 Procedure Erase（F:File）；
说明 Erase删除磁盘文件，并从目录中删该目录项。
Exit
语法 Procedure Exit；
说明 Exit使程序从当前执行的块中退出。Exp
语法 Function Exp（R：Real）：Real；
说明 Exp返回R的以e为底的幂。
FilePos
语法 Function FilePos（F:File）；Integer；
说明 FilePos返回文件F指针所指向的记录号。
FileSize
语法 Function FileSize（F:File）；Integer；
说明 FileSize返回F当前所含记录数。