Freepascal资料详解.docVIP

Freepascall资料详解 一、TP和 FP的功能区别 1．Free Pascal理论上可以使用4GB（2^32byte）的内存，因此实际上几乎可以使用系统中的所有剩余内存（除非赛题中有内存限制），这是因为Free Pascal使用的是32位的编译器。 但是对于Turbo Pascal来说，由于是16位的编译器，因此不能定义大小超过64KB（2^16byte）的数据类型和变量，并且在DOS实模式下可以使用的内存总数只有640KB。 但这并不是说，你可以随意定义很大的数组了，因为光读入200MB的数据就会让你的程序超时了（因为现在的7200转硬盘和133的系统总线速度决定了读取数据的速度也就100MB/秒）。 2．在Free Pascal中，如果用assign给标准输入输出文件变量input和output指定了文件，在程序结束之前一定要用close关闭input和output，否则输出文件可能不能被正确的写入。这个问题是近几年NOIP竞赛和省队训练、选拔中选手常犯的错误。尤其是程序非正常结束之前（如halt）会忘记。 3．如果用Rewrite打开文件，那么文件就只能被写入了。如果需要读取这个文件，要对文件执行Reset。所以，在Free Pascal中最好不要对一个文件同时进行读写操作。 4．在Free Pascal中，集合中的元素都是4个字节长的。 5．表达式执行的顺序是不确定的。比如对于表达式a:=g(2)+f(3); 不保证g(2)一定在f(3)之前执行。 6．函数和过程在使用时，参数的类型必须和定义时完全一致。原因是在Free Pascal中添加了函数重载功能。 7．PROTECTED，PUBLIC，PUBLISHED，TRY，FINALLY，EXCEPT，RAISE成为了关键字，因此不能作为函数和过程的名字；而FAR，NEAR不再是关键字了，原因是Free Pascal是32位系统，不再需要这些关键字。 二、FP的新增功能 1． 函数可以返回复杂的类型，比如记录和数组。 如： type arrtype=array[1..100] of longint;{必须要先定义数组基类型} var i,j,k,n:longint; a:arrtype; function sort(a:arrtype;n:longint):arrtype; var i,j,k:longint; begin for i:=1 to n-1 do for j:=i+1 to n do if aa[j] then begin k:=a; a:=a[j]; a[j]:=k; end; sort:=a; end; begin read(n); for i:=1 to n do read(a); a:=sort(a,n); for i:=1 to n do write(a, ); writeln; end. 2．在函数中，函数的返回值可以作为一个变量来处理。 比如： function a : longint; begin a:=12; while a4 do begin {...} end; end; 这个例子在Turbo Pascal中，a4会被认为是函数的递归调用，但是在Free Pascal中会认为a只是一个变量。如果想在Free Pascal中实现递归调用，就要写成下面的形式： function a : longint; begin a:=12; if a()4 then { 递归调用 } begin {...} end; end; 3．exit可以接受一个参数作为函数的返回值。 比如： function a : longint; begin a:=12; if a4 then begin exit(a*67); { 函数的返回值就是a*67 } end; end; 4．Free Pascal支持函数重载。可以用相同的名字定义不同的函数，只要这些函数的参数不同，就是不同的函数。比如： procedure DoSomething (a : longint); begin {...} end; procedure DoSomething (a : real); begin {...} end; 可以使用不同的参数类型longint或者real来调用不