Question

求高手，delphi中真心不明白 实数除（/） 这东西，求解，下面我要输出答案是：10，我要详细讲解，可悬赏

program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a,b,c:integer;
begin
a:= 100;
b:= 10;
c := a/b;
writeln(c);
readln;
end.

Answer 1

你这样写编译都没法通过，a/b的结果是一个实数（或者说你可以认为它是一个小数），不能直接赋给integer型的C的（虽然看起来100/10的结果是10，是个整数，但实际上并不是，它是一个很接近于10的小数，因为浮点数都是近似值，比如它可能就是9.99999999，这种值当然不能直接赋值给int型的变量的。），解决方法很多，比如可以改成 c:=trunc(a/b);或者用整数除法的c:=a div b;
或者在var中，将c由integer改为real型

Answer 2

额

Answer 3

可修改如下：
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a,b:integer;
c:real;
begin
a:= 100;
b:= 10;
c := a/b;
writeln(c);
readln;
end.

对于/ 其实就和我们学的除法是一样的
结果是一个小数

另： div 是取整数部分 如 5 div 3=1
mod 是求余，当不能整除的时候，求余数 如 5 mod 3 =2

追问

改为real，输出的是1.00000000000000E+0001，我要10，我试过再把后面改为writeln(floattostr(c))才行，为什么

追答

1.00000000000000E+0001输出是科学计数法啊
你下面将它转化成字符串而已

你要问的是什么？