turbopascal（free pascal和turbo pascal的区别）

本文目录

• free pascal和turbo pascal的区别
• Free Pascal 和Turbo Pascal有什么区别
• 集合的定义（turbo pascal）
• 请问Free Pascal与Turbo Pascal的区别它们能通用吗
• turbo pascal的数据类型

free pascal和turbo pascal的区别

[转载]虽然Free Pascal尽量设计得和Turbo Pascal接近，但是由于以下的两个原因，两者之间还是有一些区别的：

1．Free Pascal是一个32位的编译器，而Turbo Pascal只是16位编译器；

2．Free Pascal是一个跨平台的编译器，而Turbo Pascal只在windows上使用。

如果你的代码是遵守ANSI Pascal的，那么代码从Turbo Pascal移植到Free Pascal是没有问题的。

下面是在Turbo Pascal上可以使用，但是在Free Pascal就不能使用的一些语言特性：

1．函数和过程在使用时，参数的类型必须和定义时完全一致。原因是在Free Pascal中添加了函数重载功能。

2．PROTECTED，PUBLIC，PUBLISHED，TRY，FINALLY，EXCEPT，RAISE成为了关键字，因此不能作为函数和过程的名字。

3．FAR，NEAR不再是关键字了。原因是Free Pascal是32位系统，不再需要这些关键字。

4．布尔表达式不一定要全部进行计算。只要最终结果已经能够确定，就不再计算其它还没有计算的部分了。比如布尔表达式exp1 AND exp2 AND exp3，如果已知exp1的结果是false，那么怎么表达式的结果肯定是false，exp2和exp3就不用进行计算了。

5．在Free Pascal中，集合中的元素都是4个字节长的。

6．表达式执行的顺序是不确定的。比如对于表达式a:=g(2)+f(3); 不保证g(2)一定在f(3)之前执行。

7．如果用Rewrite打开文件，那么文件就只能被写入了。如果需要读取这个文件，要对文件执行Reset。

8．Free Pascal在程序结束之前一定要关闭输出文件，否则输出文件可能不能被正确的写入。

9．Free Pascal理论上可以使用4GB的内存，因此实际上几乎可以使用系统中的所有剩余内存（除非赛题中有内存限制）。这是Free Pascal由于32位的编译器。但是对于Turbo Pascal来说，由于是16位的编译器，因此不能定义大小超过64KB的数据类型和变量，并且在DOS实模式下可以使用的内存总数只有640KB。

下面是Free Pascal相对于Turbo Pascal扩充的一些功能：

1．函数可以返回复杂的类型，比如记录和数组。

2．在函数中，函数的返回值可以作为一个变量来处理。比如：

function a : longint;

begin

a:=12;

while a》4 do

begin

{...}

end;

end;

这个例子在Turbo Pascal中，a》4会被认为是函数的递归调用，但是在Free Pascal中会认为a只是一个变量。如果想在Free Pascal中实现递归调用，就要写成下面的形式：

function a : longint;

begin

a:=12;

{ this is the recursive call }

if a()》4 then

begin

{...}

end;

end;

3．exit可以接受一个参数作为函数的返回值。比如：

function a : longint;

begin

a:=12;

if a》4 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来调用不同的DoSomething过程。

由于这个功能，函数的提前声明必须有完整的参数声明：

procedure x (v : longint); forward;

{...}

procedure x;{ 这里定义的过程x重载了前面声明的过程x。因此这里的两个x是不同的}

begin

{...}

end;

5．Free Pascal容许运算符重载。比如，可以自己为矩阵运算定义一个“+”运算。

6．Free Pascal在windows 95及其以上的windows版本上支持长文件名。对于文件名，由于windows系统对大小写不敏感，因此在程序中，文件名的大小写是无关的。但是对于其它大小写敏感的系统，比如linux，程序中用到的文件名必须和系统中的文件名完全一致。但是由于信息学竞赛的评测系统一般是linux，因此要求程序中的文件名和系统中的文件名一样。

Free Pascal 和Turbo Pascal有什么区别

freepascal
的功能比Turbo
Pascal强大很多，freepascal中增多了许多函数，
在部分函数、过程及运行效率上它们略有不同。
Turbo
Pascal能用的Free
Pascal肯定能用，但Free
Pascal能用的Turbo
Pascal不一定能用。
freepascal的内存空间可开辟的较大，且freepascal用的是32位子系统，而Turbopascal是16位的。

集合的定义（turbo pascal）

Pascal系统把具有共同特征的同一有序类型的对象汇集在一起，形成一个集合，可将集合类型的所有元素作为一个整体进行集合运算。
[例5.11]用随机函数产生20个互不相同的40到100的随机整数，然后按从小到大顺序打印。
解：按以下步骤处理：
①为使产生的随机整数互不相同。因此，每产生一个数，都要判断集合中已否包含，如果没有包含，就放到集合中，并统计个数，直到20个。
②将集合中的数移到数组中，此题利用下标序号从小到大的特征进行映射排序打印。
Pascal程序：
Program Exam511;
Uses Crt ;
Var a: Array[40..100] Of boolean;
dd: set Of 40..100; {定义集合dd}
n: Integer;
Procedure Init; ｛定义产生并处理随机数的过程｝
Var i,m: Integer;
Begin
n:=0;dd:=[ ]; {集合dd初值为空}
repeat
begin
Randomize; ｛将随机发生器作初始化处理｝
m:=Random(100); {产生随机整数m}
if not (m in dd) and (m 》 40 ) then
begin
dd:=dd+[m]; inc(n) {把m放入集合dd中}
end;
end
until n=20;
End;
Procedure Print; ｛定义打印过程｝
Var i,j,k:Integer;
Begin
fillchar(a,sizeof(a),false); {将数组a的各元素置false值}
For i:=40 To 100 Do
if i in dd then a[ i ]:=true; {以集合元素值为下标的数组元素赋真值}
For i:=40 To 100 Do {以下标号为序(从小到大)输出}
If a[ i ] Then Write(i:4); {输出a数组中元素值为真的下标号}
End;
Begin ｛主程序｝
Clrscr;
init; {产生随机数，并存入集合中}
print; {打印}
Repeat Until KeyPressed;
End.
程序中定义了集合类型DD，集合的元素为子界类型。
Var 集合变量名:set of 元素的类型；
定义集合类型的一般格式是：
集合的值放在一对方括号中，各元素用逗号隔开，与排列的顺序无关，因此，[9,2,5]和[2，5，9]的值相等，没有任何元素的集合是空集合，用[ ]表示。如果集合的元素是连续的，可用子界表示，如[5,6,7,8,9]可表示为[5 .. 9] 。
集合变量名:= 集合表达式；
集合的赋值格式为：
集合有以下几种运算：
1.集合的交、并、差运算：（设两个集合 a:=[1,2,4,6] 和 b:=[4,6,7,8] )
①集合的并: a+b即组合成新的集合(为[1,2,4,6,7,8])；
②集合的交: a*b即将a,b集合中的公共元素组合成新的集合(为[4,6,])；
③集合的差: a-b即在a中的元素去掉在b中出现的之后，所剩下的集合(为[1,2])。
2.集合的比较：
①相等：a=b，若两个集合中的元素个数相等，每个元素相同，则两个集合相等，比较结果为真（ture)，否则为假（false)；
②不等：a 《 》 b表示两个集合不相等；
③包含：a 》 = b表示a集合包含b集合中的所有元素；
a 《 = b表示a集合是b集合的子集。
3.集合的测试运算：检查某个数据在集合中，测试结果为ture；不在集合中，测试结果为false；例如：
6 in [8,6,9,4] 结果为ture； { 6在集合[8,6,9,4]中为真 }
2 in [8,6,9,4] 结果为false; { 2在集合[8,6,9,4]中为假 }
从程序Exam511的输出部分可看到，集合类型的值不能直接输出,要用测试方法进行输出或转换成数组元素的值。
[例5.12]用集合进行筛法求200以内的素数。
解：①将[2..200]放入集合S中；
②取S中的第一个元素值nxt,放入集合P中，同时将S中的凡是nxt的倍数的元素全部“划”去；
③重复步骤②，直至S集合为空；
④用测试运算打印P集合中全部元素值。
Pascal程序：
Program Exam512;
Uses crt;
const n=200;
var s,p: set of 2..n; { s,p为集合类型}
nxt,j,t: byte;
begin
clrscr;
s:=[2..n]; {将[2..n]赋给s}
p:=[ ];
nxt:=2; t:=0;
repeat
while not(nxt in s) do
nxt:=succ(nxt); {后继函数}
p:=p+[nxt]; j:=nxt; {将nxt放入P中}
while j《=n do
begin
s:=s-[j]; inc(j,nxt) {筛掉S中的处理过的元素}
end;
if nxt in p then {用测试运算进行输出}
begin
inc(t); write(nxt :6);
if t mod 6=0 then writeln
end;
until s = [ ];
readln
end.
集合内的元素个数不能超过255个，如果要用超过255个成员的集合类型求素数，必须用小集合的数组来表示大集合，即把大集合分成若干个小集合，每个小集合只是数组的元素，（数组元素为一个小集合）整个数组就是一个大集合。筛法运用在每个数组元素（小集合）中进行。
[例5.13]将自然数1--9这九个数分成三组，将每组的三个数字拼成为三位数，每个数字不能重复，且每个三位数都是完全平分数。请找出这样的三个三位数。
解：①自定义函数yes，用集合判定九个数字是否有重复，采用逆向思维，假设做邓了三个三位完全平方数：
将三个三位完全平方数分离成单个数字放入集合dd中，检查集合dd，如果自然数1～9每个数恰好都在集合dd中，函数yes赋真（ture） ；只要有一个不在集合中，九个数字没有占完集合中的九个位置，则必有重复，函数值为假（false)，因为集合中对相同数字视为同一成员，如果有重复，则集合中不足9个成员（用测试运算）。
②程序用1131平方产生三位的完全平方数。用循环方式每次取三个数为一组，存入a数组。
③对a数组的三位数调用自定义函数yes处理；
④如果函数yes值为真，就打印a数组中的三个数。
Pascal程序：
Program exam513;
Uses Crt;
Var a: Array[1..3] Of Integer;
i, j, k, x: Integer;
Function yes: Boolean; {处理是否有重复数字}
Var i: Integer;
d: Set Of 0 .. 9; {集合元素为子界类型}
Begin
d:=[ ]; {集合的初值为空集合}
For i:=1 To 3 Do {将a数组中三个数分离成单个数并放入集合d}
d:=d+[a[ i ] Div 100, (a[ i ] Mod 100) Div 10, a[ i ] Mod 10];
yes:=true;
For i:=1 To 9 Do
If Not ( i In d ) Then yes:=false; {只要有一个不在集合中即为假}
End;
Begin
writeln;
or i:=11 to 29 do {在三位完全平方数范围内循环推出三个数}
Begin
a:=i*i; {第一个三位的完全平方数}
for j:=i+1 to 30 do
begin
a:=j*j; {第一个三位的完全平方数}
for k:=j+1 to 31 do
begin
a:=k*k; {第一个三位的完全平方数}
If yes Then {调用自定义yes函数结果为真就输出}
For x:=1 To 3 Do Writeln( x:8, ’:’, a[x]:8 );
end
end
end;
Repeat Until KeyPressed;
End.

请问Free Pascal与Turbo Pascal的区别它们能通用吗

turbo pascal:
Pascal是一门编程语言，而Turbo Pascal/Free Pascal是Pascal程序的编译系统.。
　　Pascal只是一门语言，而Turbo Pascal/Free Pascal是编译器，这两个是不能比较的 。
　　你可以把两个语言放在一起比较，或者两个编译器放在一起比较 。
　　 在中国的信息学奥林匹克竞赛中，过去比较常用的Pascal编程工具是Turbo Pascal。Turbo Pascal是DOS下的一种16位编程工具，在Delphi出现之前，它是世界上最多人使用的Pascal编程工具，拥有编译速度极快的先进编译器和功能强大而又简便易用的集成开发环境（IDE），在微机程序员中广为流行，正是它的出现奠定了Pascal在DOS/Windows平台上不可动摇的根基，现在常见的版本有Turbo Pascal 5.5、Turbo Pascal 6.0和Borland Turbo Pascal with Objects 7.0。Turbo Pascal 6.0与Turbo Pascal 5.5相比，主要是IDE更为强大，而其程序设计功能改变不大，只是增加了一些新的功能，例如可以内嵌asm汇编语句等。而Borland Turbo Pascal with Objects 7.0（简称Borland Pascal 7.0）则有了新的飞跃，首先是IDE进一步加强，提供了程序浏览器，然后是程序设计功能有了很大的提升，新增了一些十分有用的标准子程序，支持比较完善的面向对象程序设计功能，并提供了DOS实模式、DOS保护模式和Windows模式三种程序编译模式，能够编写出可以使用扩充内存（XMS）的保护模式应用程序或者在Windows 3.x下运行的Windows程序，另外还提供了一个对象窗口库（OWL），使用它可以快速的开发出具有一致的视窗界面（DOS或Windows 3.x）的应用程序。Borland Pascal 7.0在1992年推出，是Turbo Pascal系列在DOS下的最后版本。
Free Pascal
　　现在，随着Turbo Pascal逐渐被淘汰，全国信息学奥林匹克竞赛决赛（NOI）和国际信息学奥林匹克竞赛（IOI）已经指定Free Pascal为比赛使用的Pascal编程工具。Free Pascal是由一个国际组织开发的32/64位Pascal编程工具，属于自由软件，可用于各种操作系统。根据编译选项的不同，它可以使用Turbo Pascal兼容语法、Delphi 语法或者其它语法进行编写程序。由于它拥有32/64位的编译器，而且一直在更新发展中，因此它的功能比Borland Pascal更加强大，拥有许多现代程序设计的特征。但它对程序员的吸引力比不上拥有VCL和CLX的Delphi和Kylix。
　　Free Pascal是一个在多种版本Pascal和Delphi下的产物，目前比较成熟的版本是由FreePascal. org发布的2.2.4版本（最新版本为2.4.4，但在使用的时候，2.4.4经常会莫名其妙的中止编译），由于是Pascal上的改版，在FP里加入了很多以前没有的东西，例如：FillChar系列内存块赋值语句，用Power代替了**（乘方），但是**还是可以使用。
　　另外FP加强了与内存的互容性，增大对内存的支持，FP里的内存限制是TP和BP里的将近上万倍。
　　FP还进一步加强了单元支持、面向对象程序设计的支持、显卡（声卡）的支持、图形高级覆盖的支持、Windows\Linux\OS/2\..等众多系统的支持。在FP的较稳定版本中，可以方便的利用Win32编译模式，编译出Windows应用程序，与Delphi的功能相当。同时对动态连接库、控件、数据库、文件、网络、OpenGL的深入支持，使得 FP 在各种 Pascal 编译系统中脱颖而出。
　　更值得提出的是，FP支持Delphi及C++的部分语言，例如：A+=2这样的C Style语言，在FP里完美支持。
　　FP中支持单目、双目操作符，即所有版本的Pascal的符号和“@”等特殊符号。
　　FP 支持运算符重载。
　　FP现为竞赛推荐工具。
　　最新发布版本为 2011 年 5月 22 日发布的 2.4.4。
　　最新 bugfix 版本为 svn repo 里的 2.4.3。

turbo pascal的数据类型

shortint -128..128 1 带符号8位
inteter -32768..32767 2 带符号16位
longint -2147483648..2147483647 4 带符号32位
byte 0..255 1 带符号8位
word 0..65535 2 带符号16位

类型 数值范围 占字节数 有效位数
real 2.9e-39..1.7e38 6 11..12
single 1.5e-45..3.4e38 4 7..8
double 5.0e-324..1.7e308 8 15..16
extended 3.4e-4932..1.1e4932 10 19..20
comp -2**63+1..2**63-1 8 19..20