Integer型除法(/)计算出错,请求高手帮助!

fs_zxyang 2007-09-07 10:17:39
var
a : Integer;
b : Inetger;
C : Integer;

begin
b := 100;
c := 8;
a := b / c;
end;

运行时报错:[Error] Unit1.pas(33):Incompatible types:'Integer'and'Extended'

目的:想要得到b/c的结果,带小数。

应该怎么写?
谢谢
...全文
542 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
hushu02 2007-09-14
  • 打赏
  • 举报
回复
var
a : real;
b : Inetger;
C : integer;

begin
b := 100;
c := 8;
a := b / c;
end;
喝口水 2007-09-13
  • 打赏
  • 举报
回复
var
a : double;
b : Inetger;
C : integer;

begin
b := 100;
c := 8;
a := b / c;
end;
goldli 2007-09-12
  • 打赏
  • 举报
回复
var
a : Extended;
b : Inetger;
C : Integer;

begin
b := 100;
c := 8;
a := b / c;
end;
fs_zxyang 2007-09-07
  • 打赏
  • 举报
回复
非常感谢!
jwpl190 2007-09-07
  • 打赏
  • 举报
回复
var
a : float;
b : Inetger;
C : Integer;

begin
b := 100;
c := 8;
a := b / c;
end;
hongqi162 2007-09-07
  • 打赏
  • 举报
回复
var
a : double;
b : Inetger;
C : Integer;

begin
b := 100;
c := 8;
a := b / c;
end;

16,748

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧