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当前所含记录数。
FileChar
语法 Procedure Fillchar（Variable：Type;
I,code：Scalar）;
说明 FileChar在以Variable为起始地址处用code写I个字节。code可以是任意标量类型。
Flush
语法 Procedure Flush（var F：Text）；
说明 Flush刷新用于输出文件F的全部磁盘缓冲区。
Frac
语法 Function Frac（R：Real）：Real；
说明 Frac返回实数R的小数部分。
FreeMem
语法 Procedure FreeMem(Var P：Pointer；
I：Integer)；
说明 FreeMem释放与变量P相关的I个字节长度，并将释放的内存归还给堆，但该内存必须是已由Getmem设置过的。
GetMem
语法 Procedure GetMem（Var P:Pointer;I：Integer）;
说明 GetMem保留堆中I个字节，并贮存起始地址在变量P中。
Halt
语法 Procedure Halt；
说明 Halt中断程序的执行。
Hi
语法 Function Hi（I：Integer）：Byte；
说明 Hi返回整数I的高位字节。
Inc
语法 Procedure Inc（Var x; n：LongInt）；
说明 Inc为变量x加上n的值（x+n）。若参数表中缺省n，则x加1（x+1）。
Insert
语法 Procedure Insert（Source：string）
Var Target:string；
Index：Integer）；
说明 Insert将字符串Source插入到字串Target的Index处。
Int
语法 Function Int（R：Real）：Integer;
说明 Int返回实数R的整数部分。
IOresult
语法 Function Ioresult：word；
说明 IOresult报告执行当前输入输出操作的错误代码。当Ioresult的值不为0时则表示有错误发生。
Length
语法 Function Length（S：String）：Integer;
说明 Length返回字符串S的长度。
Ln
语法 Function Ln（Var R：Real）：Real；
说明 Ln返回实数R的自然对数。
Lo
语法 Lo（I:Integer）：Byte；
说明 Lo返回整数I的低位字节。
Mark
语法 Procedure Mark（P：Pointer）；
说明 Mark 贮存了当前堆顶端地址于指针P中。
MaxAvail
语法 Function MaxAvail：LongInt；
说明 返回堆中自由空间的总长度。
MKDir
语法 Procedure MKDir（S：String）；
说明 MKDir以字符串S命令建立一目录。
Move
语法 Procedure Move（var v1,v2；
I：Integer）；
说明 Move可将变量V1中I个字节复制到变量V2中。
New
语法 Procedure New（Var P：Pointer）；
说明 New为指针P设置内存。设置后，该变量可做为P引用。
Odd
语法 Function Odd（I：Integer）：Boolean；
说明 当I为奇数时Odd返回TRUE，当I为偶数时返回为FALSE。
Ofs
语法 Function Ofs（）：Integer；
说明 Ofs返回任一变量，过程或函数的内存地址偏移量。
Ord
语法 Function Ord（S:Scalar）：Integer；
说明 Ord返回任一有序变量的序值。
ParamCount
语法 Function ParamCount：word；
说明 ParamCount返回命令行的参数个数。
ParamStr
语法 Function ParamStr（I：word）：String；
说明 ParamStr返回命令行所指定的参数。例如：ParamStr（1）返回第一个参数。在DOS3.0以上版本中，ParamStr（0）返回执行文件的路径和文件名。
Pi
语法 Function Pi：Real；
说明 Pi返回数字常量。设数据的精度依赖于是否用了8087。
Pos
语法 Function Pos（Subs,S：String）：Integer;
说明 Pos返回字串SubS在字符串S中的位置。若S中未找到Subs，Pos返回值为0。
Pred
语法 Function Pred（var s：Scalar）：Integer;
说明 Pred返回任一有序变量的前继。
Ptr
语法 Function Ptr（segment,Offset：Integer）：Pointer；
说明 Ptr接受包含有段值和偏移量的一个整数，并将其变为—32位指针变量返回。
Random
语法 Function Random（I:word）：word；
Function Random:Real;
说明 Random返回Turbo Pascal产生的一个随机数。若指定一个整数参数的话，Random返回一个大于或等于0，且小于该参数的整数，若不指定整数，Random返回一个大于或等于0，且小于1的实数。
Randomize
语法 Function Randomize;
说明 Randomize初始化随机数产生程序。其基数存放在长整型变量Randseed中。
Read（Readln）
语法 Procedure Read（{Var F:File,} Parameters）;
Procedure Readln（{Var F:File,} Parameters）;
说明 Read从标准输入设备或F定义的文件中读出数据。Readln只适用于文本文件，其读入形式与Read相同，但读完一次数据后，Readln将文件指针移至下一个回车符/换行符处。
Release
语法 Procedure Release（Var P：Pointer）；
说明 Release释放由Mark命令所设置的内存。用Mark于贮存指针P的堆地址。
Rename
语法 Procedure Rename（Var F：File;
S：String）；
说明 Rename将文件F的文件名变为字符串S。
Reset
语法 Procedure Reset（Var F：File{；I：Integer}）;
说明 Reset打开文件F以便读文件。如果F是无类型文件，可用I值指定记录的大小。
Rewrite
语法 Procedure Rewrite（Var F：File{；I：Integer}）;
说明 Rewrite打开一个文件准备写。若文件不存在，Turbo Pascal创建一个文件。若文件已经存在，则清除文件内容。若是无类型文件，可用整数I说明记录大小。
RmDir
语法 Procedure RmDir（S：String）;
说明 RmDir删除目录S。
Round
语法 Function Round（R：Real）：LongInt;
说明 Round将实数R四舍五入取整并返回。
RunError
语法 Procedure RunError；
Procedure RunError；（ErrorCode：word）；
说明 RunError停止程序执行并产生运行错误。如果包含了ErrorCode，Turbo Pascal将按所出现的运行错误类型中断程序。
Seek
语法 Procedure Seek（Var F:File；P：Integer）；
说明 Seek将文件指针移至文件F的第P个记录的起点。
SeekEof
语法 Function SeekEof(Var F:File)：Boolean;
说明 SeekEof，
SeekEoln
语法 Function SeekEoln(Var F:File)：Boolean;
说明 SeekEoln与Eoln相似，只是在测试文件结束符前前者要跳过空格、制表符和文件结束。结果类型为布尔型。
Seg
语法 Seg（Var Variable）：word；
Function Seg（）：word;
说明 Seg返回变量、过程或函数的段地址。
SetTextBuf
语法 SetTextBuf(Var f: Text; Var Buf)；
Procedure SetTextBuf(Var f: Text; Var Buf；size:word)；
说明 SetTextBuf将文本文件赋以缓冲区buf。若未指定缓冲区大小的话，缓冲区尺寸就是Buf。Size可用做缓冲区尺寸缺省值。
Sin
语法 sin（R:Real）：Real；
说明 Sin返回R的正弦值。
Sizeof
语法 Function Sizeof(var Variable)：word;
说明 Sizeof返回一个变量或一个数据类型所需的字节数。
SPtr
语法 Function SPtr:word
说明 SPtr返回堆栈指针寄存器（sp）的当前值。
Sqr
语法 Function Sqr（R:Real）：Real；
说明 Sqr返回R的平方值。
Sqrt
语法 Function Sqrt（R:Real）：Real；
说明 Sqrt返回R的平方根
Sseg
语法 Function Sseg:word
说明 Sseg返回堆栈段寄存器当前值。
Str
语法 Str(I：Integer；[:Length,]Var S：String)；
Procedure Str（R: Real；[：length：Decimals,]）Var S: String)；
说明 Str将一个实数或一个整数转换为一个字符串。
Succ
语法 Function Succ（S:scalar）：Integer；
说明 Succ将任一标量值后移一个。
Swap
语法 Function Swap（I：Integer）：Integer；
说明 Swap将一个整数的高位字节和低位字节交换，例如：如果I等于00FFh，Swap返回FF00h。
Trunc
语法 Function Trunc（R: Real）：Integer；
说明 Trunc返回R的整数部分，结果必须在合法的整数范围内。
Truncate
语法 Procedure Truncate（Var f）；
说明 Truncate在当前文件指针处强行结束文件，文件指针后的内容丢失。
Upcase
语法 Function Upcase(C:char)：char
说明 如果C为小写字母Upcase返回C的大写值。
Val
语法 Procedure Val （S：String；Var R：Real；Var Code：Integer）；
Procedure Val （S：String；Var I：Integer Var Code：Integer）；
说明 Val将S转换为一个数字值（R或I）。如果转换为成功Turbo Pascal置Code为0，如果失败Code包含一个整数，它表示字符串中发生错误的字符。
Write(Writeln)
语法 Procedure write（{Var F:File,}Parmeters）;
Procedure writeln（{Var F:File,}Parmeters）;
说明 Write接收一个参数表，并将它写入缺省输出设备，当第一个参数为文件变量时，输出指向该文件，Writeln仅用于文本文件，操作与write相同，但在输出结束时加上回车和换行。
PASCAL中,保留字分为6种共36个:
(1)程序、函数、过程符号
program,function,procedure
(2)说明部分专用定义符号
array,const,file,label,of packed,record,set,type,var
（3）语句专用符号
case,do,downto,else,for,forward,goto,if,repeat,then,to until,while,with
(4)运算符号
and,div,in,mod ,not,or
（5）分隔符号
begin，end
(6)空指针常量
nil
标识符分为两大类：
（1）标准标识符（pascal中可直接使用）
标准常量：false,true,maxint.
标准类型：integer,real,char,boolean,text
标准文件：input,output
标准函数：abs绝对值,arctan反正切函数,chr字符,cos余弦,eof不清楚,eoln不清楚,exp指数,ln对数,odd奇数函数,ord序数，pred前趋,sin不用说吧这个,sqr平方,sqrt算术平方根,succ后继,trunc截尾
标准过程：get,new,pack,page,put,read,readln,reset,rewrite,unpack,write,writeln
(2）自定义标识符
自定义标识符是用户按标识符定义的规则自己定义的。
（费了n久，打了上面这些常用的。谢谢也要说声啊）
--意思及用法下面咯
简单的：：：
1、 程序、函数、过程的符号：
（1）program 程序
（2）function 函数
（3）procedure 过程
2、 说明部分的专用定义符号
（4）array 定义数组
例如：type data=array[1..100] of integer;
（5）const 常量说明
例如：const pi=3.1415926；
（6）file 文件类型
例如：type text=file of char;
（7）lable 标号说明
格式：lable 标号1,标号2，……；
（8）packed 指令（记录）
（9）var 变量说明
例如：var a,b,c:integer；
（10）record 记录类型
例如：type studata=record
age:integer;
sex:char;
chinese:real;
maths:real;
english:real;
end;
（11）set 集合类型
例如：type num1=set of 1..10;
（12）type 类型说明
例如：定义“daytype”表示有关日期的数据类型名：
type daytype=(sun,min,tue,wed,thu dri,sat)；
（13）of （见case、array、set、file）
3、语句专用符号
（14）case 分情况语句
格式：case 表达式 of
常数表1：语句1；
常数表2：语句2；
……
常数表n：语句n；
else 语句 n+1
end
（15）do （见for、while）
（16）downto （见for）
（17）else （见if、case）
（18）for 计数循环语句
格式1：for控制变量：=初值 to 终值 do
循环体语句；
格式2：for控制变量：=初值 downto 终值 do
循环体语句；
在for语句中如果使用to，称为递增型计数循环语句；使用downto，称为递减型计数循环语句。
（19）goto 语句
例如：goto 标号
程序不继续执行下一条语句，而转向标号所指的语句执行。
（20）if 条件语句
格式1：if 条件 then语句1；
格式2：if 条件 then语句1 else语句2；
（21）repeat 直到型循环语句
格式：repeat
语句1；
语句2；
语句3；
…
语句n
until 布尔表达式
（22）then （见if）
（23）to （见for）
（24）until （见repeat）
（25）while 当循环语句
格式：While布尔表达式do 语句；
（26）with 语句
（27）forward 函数指令
4、运算符号
（28）and 与
（29）div 整除
（30）in 集体运算符，判断一个元素是否在集合中
（31）mod 求余
（32）not 非
（33）or 或
5、分隔符号
（34）begin 块标记，开始
（35）end 块标记，结束
6、空指针符号
（36）nil 空指针
chr(x) 求编号x对应的字符。例：chr(65)='A' chr(97)='a' chr(48)='0' x为非负整数
ord(x) 求字符x对应的编号。例：ord(‘A')=65 ord(‘a')=97 另外：ord(false)=0 ord(true)=1 x为字符或数字或布尔量
sqr(x) 求x的平方。例：sqr(4)=16 x为整数
sqrt(x) 求x的正根。例：sqrt(16)=4 (ps：负数是不能进行运算的，如果需要就要先取绝对值：sqrt(-4)是错的，应该为sqrt(abs(-4))结果为实数
round(x) 求x的四舍五入。例：round(4.5)=5 x实数
trunc(x) 求x的整数部分。例：trunc(5.6)=5 结果是integer型 x为实数
int(x) 求x的整数部分。例：int(5.6)=5.0 结果是real型 x为实数
frac (x) 求x的小数部分。例：frac(5.6)=0.6 x为实数
pred(x) 求x的前导。例：pred(‘b')='a' pred(5)=4 pred(true)=false x为字符或数字或布尔量 succ(x) 求x的后继。例：succ(‘b')='c' succ(5)=6 succ(false)=true x为字符或数字或布尔量
odd(x) 判断x是否为奇数。如果是值为true，反之值为false。例：odd(2)=false odd(5)=true x为整数
power(a,n) 求a的n次方。例：power(2,3)=8 {只有在开启math库时才可以使用}a,n为整数，但是不能求高精度数
random(n) 取0~n-1之间的随机数(不能取到n) 。n为整数
max(x,y):返回x和y中的较大值。x,y整数 min(x,y):返回x和y中的较小值。x,y整数
ghfgfgh
