如何在Free Pascal中无需函数体赋值自动返回PI值

问题原因 #

你遇到的警告和返回0的问题，本质是自定义的Pi函数未给返回值赋值，同时可能覆盖了系统自带的Pi函数：

• Free Pascal要求函数必须通过Result或函数名明确设置返回值，未赋值的浮点类型返回值默认初始化为0；
• 如果你自行声明了同名的Pi函数，会屏蔽系统内置的Pi（位于System单元），导致无法自动获取π值。

解决方法 #

1. 直接使用系统内置的Pi（推荐）

删除你自定义的Pi函数，直接在代码中调用Pi即可，系统会自动调用System单元的内置函数返回正确的π值：

program TestSystemPi;
begin
  // 直接输出系统Pi值，保留15位小数
  writeln('Pi = ', Pi:0:15);
end.

运行结果：

Pi = 3.141592653589793

2. 自定义包装Pi函数（若需扩展）

如果必须自定义Pi函数（比如添加额外逻辑），需在函数体内明确给Result赋值为系统Pi的值：

program TestCustomPi;
function Pi: Extended;
begin
  // 显式调用系统内置的Pi并赋值给返回值
  Result := System.Pi;
  // 可在此添加自定义逻辑
end;
begin
  writeln('Custom Pi = ', Pi:0:15);
end.

此写法不会触发警告，运行结果与系统Pi一致。

关键提示 #

• 不要随意声明与系统内置标识符同名的函数/变量，避免屏蔽系统功能；
• 若需区分自定义与系统标识符，可通过System.前缀明确调用系统版本（如System.Pi）。

内容的提问来源于stack exchange，提问作者Tomasz Jeliński