两个整数相除怎么解决？ — 编程爱好者社区

您所在位置：社区首页 — Fortran讨论区 — 两个整数相除怎么解决？

回帖发新帖刷新版面

主题：两个整数相除怎么解决？

tianhy2010 [专家分：60] 发布于 2012-02-24 18:08:00

integer i2,m
if(mod(i2,2)==1) then
m=(i2+1)/2
else
m=i2/2
end

上面这条语句是错误的，怎么修改呢？
好像是数据类型上的问题，不知道该怎么解决啊。
求教了

本帖地址： http://bbs.pfan.cn/post/381847.html

回复列表（共1个回复）

沙发

那兰1220 [专家分：50] 发布于 2012-02-24 18:26:00

把最后 end 改成   endif  就可以了。
验证：

program main
    IMPLICIT NONE
    integer i2,m
    write(*,*)'please put in i2'
    read(*,*)i2
if(mod(i2,2)==1) then
  m=(i2+1)/2
else
  m=i2/2
endif
write(*,*)m
END program
是对的，你参考一下吧

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：两个整数相除怎么解决？

回复列表（共1个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：两个整数相除怎么解决？

回复列表 （共1个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共1个回复）