pascal过程与函数【DOC精选】.doc

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(var 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）； 说明