delphi 除法 "/" 与 div 的不同
[size=18px]var s,n:integer;
begin
write('输入变长的条数n');
readln(n);
[color=#FF0000]s:=n*(n-1)*(n-2)div 6; //本行替换为s:=n*(n-1)*(n-2)/ 6;怎么不行？？？[/color]
writeln('组成的三角形个数',s);
readln;[/size]
div 用于整数
/ 不限于整数
详见帮助
/ 就是普通除法， DIV是去整 除法
10/4 =2.5 接可以是real,extended等
10 div 4 =2 结果肯定是整数
参与运算的数据也有要求 / 任意 div 必须是整数
操作数 结果类型
/ 实数除 整数， 实数 实数
div 整数除 整数 整数
div要取整
/是浮点数
/可以是浮点数相除,当然也可以是整型,整型相除结果好像同 div
div只能是整型相除,得整型
相关问答：
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
我在执行Delphi2010的时候，没有出现执行的界面，求高手帮忙，谢谢
End_rbody_65722921//-->
该回复于2010-05-26 08:24:26被版主删除
对我有用[0]
丢个板砖[0]
引用
举报
管理
TO ......
比如 4，6，8，12，16，17，20，28，29，30，31这几个数中取8个数
怎么得出 这组数可以组成哪些组合？
穷举法
引用
比如 4，6，8，12，16，17，20，28，29，30，31这几个数中取8个数
怎么得出 这组数可以组成 ......
小弟是用Delphi7做的一个小软件，想试试如何制作成在没有Delphi环境下安装我做的小软件，最好是制作成可执行的exe文件。谢谢各位高手了啊
如果使用ado的话，一般可以直接发布，如果使用其他dll或ocx的话，需要安� ......
