Free Pascal 和 Turbo Pascal 的主要区别 [复制链接]

只看中巨大的空间 换时间~HOHO~~~ 动态规划用着舒服~~

貌似看过此类文

经本人研究发现TP与FP不同的地方好象还有
语句：
　　TP:end;
    FP:end
一个用加分号，一个不用

详细的说
  TP中:program ygczm;
var
r,k:integer;
a,b,c,d:real;
f1,f2:text;
function jc(n:integer):real;
var i:integer;
  t:real;
begin
t:=1;
if n<0 then
  begin
    writeln('n<0,data error');
    t:=-1
  end;
else for i:=2 to n do t:=t*i;
jc:=t;
end;
begin
assign(f1,'jc.in');
reset(f1);
readln(f1,r,k);
close(f1);
assign(f2,'jc.out');
rewrite(f2);
if r<k then
  begin
  a:=jc(k);
  b:=jc(r);
  c:=jc(k-r);
  d:=a/(b*c);
  writeln(f2,'k!/(r!*(k-r)!)=',d:4:2);
end;
else
  writeln(f2,'n<0,data error');
close(f2);
end.
  FP中:program ygczm;
var
r,k:integer;
a,b,c,d:real;
f1,f2:text;
function jc(n:integer):real;
var i:integer;
  t:real;
begin
t:=1;
if n<0 then
  begin
    writeln('n<0,data error');
    t:=-1
  end
else for i:=2 to n do t:=t*i;
jc:=t;
end;
begin
assign(f1,'jc.in');
reset(f1);
readln(f1,r,k);
close(f1);
assign(f2,'jc.out');
rewrite(f2);
if r<k then
  begin
  a:=jc(k);
  b:=jc(r);
  c:=jc(k-r);
  d:=a/(b*c);
  writeln(f2,'k!/(r!*(k-r)!)=',d:4:2);
end
else
  writeln(f2,'n<0,data error');
close(f2);
end.
大家讨论一下

版主是抄的网上的
网上的掉了一点，所以版主也掉了一点。
使用TP时编单元时可以这样
unit a;
interface
function f(a:integer):integer;
implementation
function f;
begin
...
end.

但FreePascal在IMPLEMENTATION段中
不能省略形式参数表！
这一点很讨厌！

FreePascal 的 BUG 太多了！！！！！！！！！！

谢谢了。
真及时呀。。

thank you!

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

怎样定义

找不到pascal的资料，只有C#的。是微软写的……


下面的规则概括了运算符重载指南：

• 在作为逻辑内置语言类型的值类型（如 System.Decimal 结构）上定义运算符。
• 仅在定义方法的类中提供运算符重载方法。C# 编译器强制使用该指南。
• 使用公共语言规范 (CLS) 中描述的名称和签名约定。C# 编译器自动实现此功能。
• 当运算结果将十分明显时使用运算符重载。例如，能够从一个 Time 值减去另一个 Time 值以得到 TimeSpan 是有意义的；而用 or 运算符创建两个数据库查询的联合，或者用 shift 向流写入则是不适当的。
• 以对称方式重载运算符。例如，如果重载相等运算符 (==)，则还应该重载不相等运算符 (!=)。
• 提供替换签名。大多数语言不支持运算符重载。因此，对于所有重载运算符的类型，CLS 都要求包含一个辅助方法（具有相应的特定于域的名称）来提供等价的功能。提供这种辅助方法是公共语言规范 (CLS) 的要求。下面的示例符合 CLS。

  [C#]
  public struct DateTime 
  {
     public static TimeSpan operator -(DateTime t1, DateTime t2) { }
     public static TimeSpan Subtract(DateTime t1, DateTime t2) { }
  }

下表包含运算符符号列表以及相应的替换方法和运算符名称。