24小时热门版块排行榜

返回列表

当前主题已经存档。

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

wester

金虫 (著名写手)

应助: 4 (幼儿园)
金币: 1101.9
散金: 400
帖子: 1481
在线: 111.4小时
虫号: 117751
注册: 2005-11-26
专业: 等离子体物理

[交流] 【已完成】Fortran的一个简单问题

本文刚刚接触fortran,有个简单的问题想请教内行人。
要设置一个判断条件，如果一个数a是b的整数倍，则执行下面的条件。
就这个a是b的整数倍如何表示，

先在此谢谢路过的各位兄弟姐妹们了！！！

[ Last edited by wester on 2009-8-23 at 23:02 ]

回复此楼

» 猜你喜欢

请问哪里可以有青B申请的本子可以借鉴一下。已经有4人回复
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗已经有6人回复
孩子确诊有中度注意力缺陷已经有14人回复
三甲基碘化亚砜的氧化反应已经有4人回复
请问下大家为什么这个铃木偶联几乎不反应呢已经有5人回复
请问有评职称，把科研教学业绩算分排序的高校吗已经有5人回复
2025冷门绝学什么时候出结果已经有3人回复
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入已经有4人回复
康复大学泰山学者周祺惠团队招收博士研究生已经有6人回复
AI论文写作工具：是科研加速器还是学术作弊器？已经有3人回复

1楼2009-08-22 13:59:11

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

程序强帖: 16
应助: 157 (高中生)
贵宾: 0.02
金币: 18844.7
红花: 29
帖子: 3803
在线: 1422.4小时
虫号: 183750
注册: 2006-02-13
专业: 污染生态化学

★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
loovfnd(金币+1,VIP+0):谢谢讨论 8-22 21:13

引用回帖:

Originally posted by mystar at 2009-8-22 14:08:
a b 用整型

a b 的余数为0

这个可行吗？

假如，a = 2.5， b =0.4，你的这种方法肯定会倒致程序异常限出。如果 b=1.4，这种方法又会给出肯定的结果，但实际上不是，呵呵……

a/b = c，然后用 c / int(c) 或 c - init(c) 来判断？

CODE:

C234567

      program test

      real a, b, c, d, e

C     integer f

      a = 2.5

      b = 0.4

      c = a / b

      d = c / int(c)

      e = c - int(c)

C     f = mod(int(a), int(b))

      if (d > 1.) write(*,*) d

      if (e > 0.) write(*,*) e

C     write(*,*) f

      end

当然，这个程序中存在对实数大小进行比较的句子，不是很好，但一时想不到如何改了……

[ Last edited by snoopyzhao on 2009-8-22 at 16:16 ]