decimal - 计算帕斯卡中的小数位数

Question

我刚开始学习 pascal，我必须做一个 pascal 程序作为家庭作业。我做到了，但我不知道如何计算实数的小数位数(“.”后面的数字)。

我只需要它来格式化一个实数(比如 write(real:0:dec) 其中 dec 是我不知道的小数位数怎么知道)。我想这样做是因为我不想用科学记数法或许多不必要的零来表示它。

例如，如果一个实数是 1.51 (x)，我写 writeln(x:0:4);或 WriteLn(Format('%*.*f', [0, 4, x]));它会显示 1.5100，但我希望它只是 1.51；如果数字是 1.513436，它只会显示 1.5134。所以我会把它写成 writeln(x:0:dec);使 dec 成为 x 的小数位数。

Answer 1

Format() 函数通常在这种情况下使用。

WriteLn(Format('%*.*f', [0, dec, your_real_number]));

*.* 被解释为 total_characters.decimal_digits。第一个传递零意味着宽度会根据您的实际大小进行调整。小数位数可以是变量 (dec)，您可以根据自己的规范进行调整。

---

更新:

您提到您想要一个关于小数位数的 float 的精确表示。

正如我在评论中提到的，大多数浮点值的小数位数都没有限制。而且大多数小数不能用二进制类型表示。

有一些库可以处理任意大小的浮点值。参见 TBigFloat例如。有一个格式化例程可以从十进制 float 中去除多余的零。

---

仍然可以使用通用格式说明符删除尾随零:

WriteLn(Format('%g',[your_real_number]));

您也可以指定宽度和有效数字的个数。