delphi – 正确格式化石头和磅？

pounds := Round(100*Frac(weight));

对于宝石而言,它只是Trunc：

stones := Trunc(weight);

在另一个方向你做：

weight := stones + pounds/100.0;

有了这些功能,您可以轻松完成剩下的工作.磅值大于14的有效性检查很容易处理.例如：

stones := Trunc(weight);
pounds := Round(100*Frac(weight));
stones := stones + pounds div 14;
pounds := pounds mod 14;

如果您在通用库中的任何地方找到此代码,我会感到非常惊讶.那是因为它是一种非常差的储存重量的方法.如果您打算使用浮点格式,您应该这样做：

weight := stones + pounds/14.0;

在另一个方向,你会这样做：

stones := Trunc(weight);
pounds := Round(14*Frac(weight));
stones := stones + pounds div 14;
pounds := pounds mod 14;

不幸的是你仍然需要做div / mod shuffle.想象一下,当重量= 9.99时会发生什么.

这样做可以使浮点值的算术更加合理.例如,假设您已经测量了10个人的权重,并想知道总数.使用真正的浮点表示来实现它是有意义的,但不能用你的表示.

要看到这一点,假设这10个人,他们都是零石头,10磅.我认识的人很小.但你会称之为0.1.加10批,你的重量为1.0.但很明显,实际值是100磅,或7石两磅.

但如果你服用10磅并喂它：

weight := stones + pounds/14.0;

然后你会发现重量值为10/14.添加10个,以获得100/14,好吧,我相信你会得到我的漂移！

存储此类数据的另一种显而易见的方法是磅.整数或浮点都有意义.