24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 1010  |  回复: 10

RwingRWING

新虫 (初入文坛)

[求助] FORTRAN的结果字符长度是多?程序没有错误,但是得到的结果一直是0,请前辈们赐教。 已有4人参与

程序和运行结果都已经截图了,请大家指点迷津。

FORTRAN的结果字符长度是多?程序没有错误,但是得到的结果一直是0,请前辈们赐教。
360截图20150420192153249.jpg
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
回帖支持 ( 显示支持度最高的前 50 名 )

未岸亡灵

铁杆木虫 (著名写手)

暂时离开小木虫


【答案】应助回帖

★ ★ ★
感谢参与,应助指数 +1
RwingRWING: 金币+3, ★★★很有帮助 2015-04-23 14:37:39
添加IMPLICIT NONE
正确定义浮点数,整数

不要整这种既有整数又有浮点数的混合运算,算前统一一下
2楼2015-04-20 20:36:52
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

seanbsd

木虫 (小有名气)

【答案】应助回帖

感谢参与,应助指数 +1
即使LZ的程序不声明取消所有的默认设置,也会按照缺省的运算操作来执行。还是请LZ看下表达式上是不是从公式翻译过来的时候出现了运算符的差异。希望能帮到你。
3楼2015-04-21 09:48:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

bb_polarlight

金虫 (小有名气)

【答案】应助回帖

★ ★
感谢参与,应助指数 +1
RwingRWING: 金币+2 2015-04-23 14:38:00
在第二行加上语句implicit none
然后对每个变量明确的定义类型,整型(int)或者实型(double).
Q定义为double
5楼2015-04-22 09:02:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

seanbsd

木虫 (小有名气)

【答案】应助回帖

同意4楼的说法,我看了下你的输入的数据,M=0,带入公式中0her任何数相乘结果肯定是0而不可能是其他的数值。
8楼2015-04-22 14:15:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

seanbsd

木虫 (小有名气)

您需要检查您的输入,M是否为零。如果为零,结果肯定为零;如果不为零,则需要加入一个说明,就是定义所有的变量均是实数,否则会因为从整形到实型的转变引起结果为0.
9楼2015-04-22 14:51:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通回帖

qchem

铁杆木虫 (著名写手)


【答案】应助回帖

感谢参与,应助指数 +1
m输入的是0,那结果乘出来当然也就是0了

[ 发自小木虫客户端 ]
4楼2015-04-22 07:16:16
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

RwingRWING

新虫 (初入文坛)

引用回帖:
2楼: Originally posted by 未岸亡灵 at 2015-04-20 20:36:52
添加IMPLICIT NONE
正确定义浮点数,整数

不要整这种既有整数又有浮点数的混合运算,算前统一一下

重新定义了,输入数据以后,没有反应
6楼2015-04-22 10:06:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

RwingRWING

新虫 (初入文坛)

引用回帖:
3楼: Originally posted by seanbsd at 2015-04-21 09:48:17
即使LZ的程序不声明取消所有的默认设置,也会按照缺省的运算操作来执行。还是请LZ看下表达式上是不是从公式翻译过来的时候出现了运算符的差异。希望能帮到你。

重新检查了公式,没有错误。
7楼2015-04-22 10:13:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

RwingRWING

新虫 (初入文坛)

引用回帖:
9楼: Originally posted by seanbsd at 2015-04-22 14:51:33
您需要检查您的输入,M是否为零。如果为零,结果肯定为零;如果不为零,则需要加入一个说明,就是定义所有的变量均是实数,否则会因为从整形到实型的转变引起结果为0.

m值为零是手误输错了,按照各位前辈的指点,已经把程序调试好,可以运行了。谢谢
10楼2015-04-22 17:38:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 RwingRWING 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 273求调剂 +19 李芷新1 2026-03-31 19/950 2026-04-01 21:49 by chyhaha
[考研] 324求调剂 +10 hanamiko 2026-03-26 12/600 2026-04-01 16:59 by oooqiao
[考研] 一志愿厦门大学化学学硕307求调剂 +11 y7czhao 2026-03-26 11/550 2026-04-01 16:18 by oooqiao
[考研] 0703一志愿南师大334求调剂 +4 seven7yu 2026-03-30 4/200 2026-04-01 16:10 by oooqiao
[考研] 267求调剂 +13 uiybh 2026-03-31 13/650 2026-04-01 10:25 by 探123
[考研] 282求调剂 +6 呼吸都是减肥 2026-04-01 6/300 2026-04-01 08:58 by laoshidan
[考研] 322求调剂 +4 熹僖XX 2026-03-31 4/200 2026-04-01 08:21 by JourneyLucky
[考研] 254材料与化工求调剂 +3 翰冬林楠 2026-03-30 4/200 2026-03-31 17:53 by yishunmin
[考研] 315求调剂 +6 akie... 2026-03-28 7/350 2026-03-31 16:48 by asdfzly
[考研] 085404 22408 315分 +5 zhuangyan123 2026-03-31 6/300 2026-03-31 13:48 by limeifeng
[考研] 085600材料与化工调剂 +16 kikiki7 2026-03-30 16/800 2026-03-31 10:03 by 氯化亚硝酰
[考研] 085601一志愿西北工业大学初试346 +4 085601初试346 2026-03-30 4/200 2026-03-31 07:47 by jp9609
[考研] 一志愿华中师范化学332分求调剂 +3 Lyy930824@ 2026-03-29 3/150 2026-03-30 20:15 by DHUSHUAI
[考研] 334分 一志愿武理 材料求调剂 +16 李李不服输 2026-03-26 16/800 2026-03-30 17:47 by wangjy2002
[考研] 279求调剂 +4 蝶舞轻绕 2026-03-29 4/200 2026-03-29 09:45 by laoshidan
[考研] 356求调剂 +3 gysy?s?a 2026-03-28 3/150 2026-03-29 00:33 by 544594351
[考研] 283求调剂 +3 A child 2026-03-28 3/150 2026-03-28 15:41 by ms629
[考研] 275求调剂 +10 jjjjjjjjjjl 2026-03-27 10/500 2026-03-27 23:47 by barnett0632
[考研] 调剂求收留 +7 果然有我 2026-03-26 7/350 2026-03-27 00:26 by wxiongid
[考研] 中国科学院深圳先进技术研究院-光纤传感课题组招生-中国科学院大学、深圳理工大学联培 +5 YangTyu1 2026-03-26 5/250 2026-03-26 18:27 by 猫咪猫咪呀
信息提示
请填处理意见