| 发表于:2007-02-20 03:24:581楼 得分:20 |
1、假设i,n,m全是整型 var i,n,m : integer; begin i := 10; n := 4; m := i mod n; //i整除n,结果是 2 //... m := i * n; //i乘以n,结果是 40 //... end; 2、假设i,n是实型 var i,n : double; m : integer; begin i := 10.8; n := 4.2; m := trunc(i / n); //如果要得到四舍五入的值,可以用round函数,下同 //.... m := trunc(i * n); //.... end; 3、建议多看课本的基础部分,把基本功练扎实 | | |
|