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、建议多看课本的基础部分,把基本功练扎实
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、建议多看课本的基础部分,把基本功练扎实