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只能是整型相除,得整型
相关问答：
程序使用的是Orcal数据库，想定期（每季度）对数据库进行备份，没啥头绪，请问应该怎么弄？
有什么特殊要求吗，比如要前端界面？
一般用数据库自带的“计划任务”配置一下就够了
没有什么特殊要求。例如，只要� ......
如何使新增的sheet在前一个sheet后，excel默认有3个sheet,如我新增一个sheet4,怎样使它是插在sheet3后呢，而不是插在sheet1前？
右键不行吗？
Worksheets.Add 方法
该方法用于新建工作表。
Function Ad ......
function ReadTime(intDevno: Integer; var strGet: Pchar): Integer; stdcall; external 'ast.dll'; //读取日期时
bcb调用delphi 的dll这句在bcb中如何转化。
应该是C/C++ code:
int __stdcall ReadTime(int in ......
delphi代码变成bcb后太闪,都是在 FormPaint 方法中
delphi代码:::
var
i: integer;
rgn: HRGN;
r: TRect;
begin
with Canvas do begin
//利� ......
//adoquery1.SQL.add('insert into 学生书费历史库(班级名,书费,领书书费,结余书费,经办人,操作员,最后修改时间,说明,班级人数) values (:classname,:s0,0,:s1,:s2,:s3,date(),:s4,:s5)');
adoquery1.SQ ......
