应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【已完成】Fortran的一个简单问题
北京石油化工学院2026年研究生招生接收调剂公告
131/2返回列表12下一页
查看: 623  |  回复: 12
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前主题已经存档。

wester

金虫 (著名写手)

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

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

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

[ Last edited by wester on 2009-8-23 at 23:02 ]
回复此楼

» 猜你喜欢
1楼 2009-08-22 13:59:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

mystar

金虫 (文坛精英)
★
wangen994(金币+1,VIP+0):欢迎讨论 8-22 21:21
a  b  用整型

a  b  的余数为0
赞一下(10人) 回复此楼
不要使自己麻木于制度化当中，而抛弃了从前的美好事物和希望。
2楼2009-08-22 14:08:14
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wester

金虫 (著名写手)
是这样写吗？我刚才也想到这个了，试了一下出错了。对fortran基本语句还不太了解，见谅啊！
if(MOD(a/b)=0)then
c=1
帮忙看看怎么错了，还有就是ab必须是整形吗？
赞一下 回复此楼
3楼2009-08-22 14:11:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

mystar

金虫 (文坛精英)
★ ★ ★ ★ ★
wester(金币+5,VIP+0): 8-22 14:19
if (mod(a,b) .eq. 0) then
c=1
endif

先要定义a b是整型
赞一下(2人) 回复此楼
不要使自己麻木于制度化当中，而抛弃了从前的美好事物和希望。
4楼2009-08-22 14:13:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wester

金虫 (著名写手)
弱弱地问一句，整形怎么定义啊？嘿嘿
赞一下 回复此楼
5楼2009-08-22 14:16:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

mystar

金虫 (文坛精英)
integer  a,b
回复此楼
不要使自己麻木于制度化当中，而抛弃了从前的美好事物和希望。
6楼2009-08-22 14:17:06
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wester

金虫 (著名写手)
必须是整形吗？可是我的a不是整形怎么办啊
赞一下 回复此楼
7楼2009-08-22 14:19:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tianlangxingaa

铁杆木虫 (著名写手)
建议看看书，如果经常用还是学学好
赞一下 回复此楼
8楼2009-08-22 14:20:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wester

金虫 (著名写手)
肯定会慢慢看书的啦，可是现在急用，需要改程序，就先求助各位啦
赞一下 回复此楼
9楼2009-08-22 14:21:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

mystar

金虫 (文坛精英)
★ ★ ★ ★ ★ ★ ★ ★ ★ ★
wester(金币+5,VIP+0):谢谢你的热心帮助，以后有问题就请教你了，不要嫌烦哦噢 8-22 14:25
wangen994(金币+5,VIP+0):感谢你参与讨论，欢迎常来 8-22 21:23
引用回帖:
Originally posted by wester at 2009-8-22 14:19:
必须是整形吗？可是我的a不是整形怎么办啊

转场整型，就在mod里转

if (mod (int(a),int(b)) .eq. 0) then
c=1
endif
赞一下(11人) 回复此楼
不要使自己麻木于制度化当中，而抛弃了从前的美好事物和希望。
10楼2009-08-22 14:23:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 wester 的主题更新
131/2返回列表12下一页
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿武汉理工，总分321，英一数二，求老师收留。 +7 nnnnnnn5 2026-03-25 7/350 2026-03-29 00:32 by 我是小康
[考研] 生物学学硕，一志愿湖南大学，初试成绩338 +6 YYYYYNNNNN 2026-03-26 7/350 2026-03-28 20:52 by 唐沐儿
[考研] 311（085601）求调剂 +4 liziyeyeye 2026-03-28 4/200 2026-03-28 18:50 by 535743368
[考研] 0703化学 +10 妮妮ninicgb 2026-03-27 10/500 2026-03-28 14:07 by 哒哒哒呱呱呱
[考研] 一志愿南京航空航天大学材料学硕求调剂 +3 @taotao 2026-03-28 3/150 2026-03-28 10:26 by JourneyLucky
[考研] 材料与化工考研调剂 +17 孅華 2026-03-22 17/850 2026-03-28 08:35 by WYUMater
[考研] 311求调剂 +3 希望上岸阿小杨 2026-03-23 3/150 2026-03-28 07:57 by 热情沙漠
[考研] 求调剂 +4 零八# 2026-03-27 4/200 2026-03-27 18:07 by yu221
[考研] 085600，材料与化工321分，求调剂 +9 大馋小子 2026-03-27 9/450 2026-03-27 14:30 by mmm just
[考研] 085600，材料与化工321分调剂 +4 大馋小子 2026-03-27 6/300 2026-03-27 14:11 by 松花缸1201
[考研] 材料学硕，求调剂 6+5 糖葫芦888ll 2026-03-22 10/500 2026-03-27 08:18 by hypershenger
[考研] 284求调剂 +11 junqihahaha 2026-03-26 12/600 2026-03-27 04:37 by wxiongid
[考研] 325求调剂 +5 李嘉图·S·路 2026-03-23 5/250 2026-03-27 00:42 by wxiongid
[考研] 生物学 296 求调剂 +4 朵朵- 2026-03-26 6/300 2026-03-26 19:01 by 不吃魚的貓
[考研] 271求调剂 +6 生如夏花… 2026-03-22 6/300 2026-03-26 16:48 by 张凯十八号
[考研] 化学调剂一志愿上海交通大学336分-本科上海211 +4 小鱼爱有机 2026-03-25 4/200 2026-03-26 10:19 by aa331100
[考研] 一志愿吉林大学材料与化工303分求调剂 +4 为学666 2026-03-24 4/200 2026-03-25 11:27 by BruceLiu320
[考研] 340求调剂 +5 话梅糖111 2026-03-24 5/250 2026-03-25 06:53 by ilovexiaobin
[考研] 277分求调剂，跨调材料 +3 考研调剂lxh 2026-03-24 3/150 2026-03-24 13:52 by JourneyLucky
[考研] 328求调剂 +4 LHHL66 2026-03-23 4/200 2026-03-23 14:55 by lbsjt
信息提示
关闭
请填处理意见
关闭