浮点数运算的相关问题

zhourongbiao zhourongbiao 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
procedure TForm1.Button1Click(Sender: TObject);
var
fLevel : double;
iLevelInt, iLevelFra : integer;
begin
{输入222.20,iLevelFra = 19}
fLevel := 222.20;
iLevelInt := Floor( fLevel );
iLevelFra := Floor(( fLevel - iLevelInt ) * 100);
ShowMessage( IntToStr( iLevelFra ) );
end;

怎么输出是19?调试发现iLevelFra = 20!
如果直接使用:
ShowMessage( IntToStr( Floor(20) ) );
输出就是20。
奇怪,请高手指教。
...全文

相关推荐

评论 1
收藏 已收藏
分享
返回顶部