UC知道关于delphi 小问题
来源：百度知道 编辑：UC知道 时间：2024/05/30 05:43:04
var
a,b,c, e :integer;
begin
begin
if e =1 then
c :=a+b
else if e=2 then
c :=a-b
else if e=3 then
c:=a*b
else if e=4 then
c:=a/b
else
begin
writeln('您的操作有误，按Enter退出');
readln;
end;
writeln('答案为：',c);
end;
end.
为什么总是在else处显示:[Error] Project2.dpr(19): Incompatible types: 'Integer' and 'Extended'解释一下
a,b,c, e :integer;
begin
begin
if e =1 then
c :=a+b
else if e=2 then
c :=a-b
else if e=3 then
c:=a*b
else if e=4 then
c:=a/b
else
begin
writeln('您的操作有误，按Enter退出');
readln;
end;
writeln('答案为：',c);
end;
end.
为什么总是在else处显示:[Error] Project2.dpr(19): Incompatible types: 'Integer' and 'Extended'解释一下
c:=a/b
这样会出现小数，而integer是整数，所以这样就会出错啊。呵呵。最好将C设置成Extended类型
再就是你前面好像多了一个begin
帮你小改一下：
var
a,b,e:integer;
c:Extended;
begin
if e =1 then
c :=a+b
else if e=2 then
c :=a-b
else if e=3 then
c:=a*b
else if e=4 then
c:=a/b
else
begin
writeln('您的操作有误，按Enter退出');
readln;
end;
writeln('答案为：',c);
end.
是滴楼上说对了，delphi里面整数/整数会是小数，如果非要整数 就用div来表示整除