WindowsAPI: MulDiv

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了WindowsAPI: MulDiv，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1066字，纯文字阅读大概需要2分钟。

内容图文

WindowsAPI: MulDiv

MulDiv(a, b, c) 中的 a、b、c 是三个 Integer, 同时返回一个 Integer.

其计算方式类似于: a * b / c 或 a * b div c, 但也有区别.

---

//例一: 相同处
var
  a,b,c,n1,n2: Integer;
begin
  a := 4;
  b := 3;
  c := 2;
  n1 := a * b div c;
  n2 := MulDiv(a, b, c);
  ShowMessageFmt('%d : %d', [n1, n2]); {6 : 6}
end;

//例二: MulDiv 中前两个 32 位整数 a 和 b 相乘后会先得出一个 64 位整数, 这可以尽量使运算不会溢出.
var
  a,b,c,n1,n2: Integer;
begin
  a := MaxInt div 2;
  b := 3;
  c := 2;
  n1 := a * b div c;     {这个运算会溢出}
  n2 := MulDiv(a, b, c); {MulDiv 会算出正确的结果}
  ShowMessageFmt('%d : %d', [n1, n2]); {-536870913 : 1610612735}
end;

//例三: MulDiv 会自动四舍五入.
var
  a,b,c,n1,n2: Integer;
begin
  a := 1;
  b := 7;
  c := 4;
  n1 := a * b div c;     {这个结果只是截取了整数部分}
  n2 := MulDiv(a, b, c); {MulDiv 会四舍五入}
  ShowMessageFmt('%d : %d', [n1, n2]); {1 : 2}
end;

//例四: 也有 MulDiv 算不了的, 算不了就返回 -1
var
  n1,n2: Integer;
begin
  n1 := MulDiv(MaxInt, MaxInt, 2);
  n2 := MulDiv(1, 2, 0);
  ShowMessageFmt('%d : %d', [n1, n2]); {-1 : -1}
end;

posted on 2009-10-09 11:51? 万一? 阅读(8088)? 评论(8)? 编辑? 收藏

内容总结

以上是互联网集市为您收集整理的WindowsAPI: MulDiv全部内容，希望文章能够帮你解决WindowsAPI: MulDiv所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---