在Pascalzim中实现计算器动态去除多余小数零的问题

在Pascalzim中，要实现动态去除计算结果末尾的多余小数零，可以通过以下两种常用方法实现：

方法一：使用Format函数自动格式化 #

利用Pascal的Format函数，通过%g格式说明符可以自动省略末尾的零和不必要的小数点，同时保留有效小数位：

var
  resultNum: Double;
  outputStr: string;
begin
  // 假设resultNum是计算得到的结果
  resultNum := 4.12;
  outputStr := Format('%g', [resultNum]);
  write(outputStr); // 输出4.12

  resultNum := 15.0;
  outputStr := Format('%g', [resultNum]);
  write(outputStr); // 输出15
end;

%g格式会根据数字的实际情况自动选择最合适的显示方式，既不会保留多余的零，也不会丢失必要的小数位。

方法二：手动字符串处理 #

如果需要更自定义的控制，可以将数字转为字符串后，手动去除末尾的零和小数点：

var
  resultNum: Double;
  numStr: string;
begin
  resultNum := 4.1200;
  numStr := FloatToStr(resultNum);

  // 循环删除末尾的零
  while (Length(numStr) > 0) and (numStr[Length(numStr)] = '0') do
    Delete(numStr, Length(numStr), 1);
  
  // 如果最后一位是小数点，也删除
  if (Length(numStr) > 0) and (numStr[Length(numStr)] = '.') then
    Delete(numStr, Length(numStr), 1);

  write(numStr); // 输出4.12
end;

这种方法适合需要对输出格式做更精细调整的场景，比如限制最大小数位数等。

内容的提问来源于stack exchange，提问作者user20733481