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

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

2024-11-04 19:39:40

推荐回答（3个）

回答（1）：

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

回答（2）：

额

回答（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

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

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