Delphi 四舍五入：使用 Round 函数实现自然算法

Delphi 中的四舍五入自然算法可以使用 'Round' 函数来实现。'Round' 函数会根据小数的小数部分进行四舍五入操作。

以下是一个示例代码：

var
  num: Double;
  roundedNum: Integer;
begin
  num := 3.14;
  roundedNum := Round(num);
  WriteLn(roundedNum); // 输出 3

  num := 3.56;
  roundedNum := Round(num);
  WriteLn(roundedNum); // 输出 4
end.

在上述代码中，我们使用 'Round' 函数将一个 'Double' 类型的数值四舍五入为最接近的整数。对于小数部分大于等于 0.5 的数值，'Round' 函数会向上取整；对于小数部分小于 0.5 的数值，'Round' 函数会向下取整。

注意：'Round' 函数只适用于对整数进行四舍五入，如果要对小数进行指定位数的四舍五入，可以使用 'RoundTo' 函数。