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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 4行的程序，结果应该是1.3和0.7，为啥算不对啊
北京石油化工学院2026年研究生招生接收调剂公告
21/1返回列表
查看: 430  |  回复: 1
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

szcfxxx

银虫 (小有名气)

[求助] 4行的程序，结果应该是1.3和0.7，为啥算不对啊 已有1人参与

PROGRAM HAHA
              
              EMOD=1
              ENU=0.3
              LAMEI1=EMOD+ENU
              LAMEI2=EMOD-ENU
11            FORMAT(001X,'LAMEI1=' ,E15.6)
12            FORMAT(001X,'LAMEI2=',E15.6)

              WRITE(*,11) LAMEI1
              WRITE(*,12) LAMEI2
              END

4行的程序，结果应该是1.3和0.7，为啥算不对啊
0000.png
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
心亦阑珊
1楼 2015-05-12 17:39:00
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

virtualzx

木虫 (著名写手)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
szcfxxx: 金币+10, ★★★★★最佳答案, 一语道破啊 2015-05-12 21:15:13
请用implicit none和明确类型定义。缺省任何L开头的变量是整数型，结构就是0了

[ 发自手机版 http://muchong.com/3g ]
赞一下(1人) 回复此楼
2楼2015-05-12 18:39:48
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 szcfxxx 的主题更新
21/1返回列表
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 085601一志愿中山大学深圳材料工程330求调剂 +7 pipiver 2026-03-30 7/350 2026-04-02 07:58 by 尚水阁主
[考研] 336求调剂 +5 kiyy 2026-04-01 5/250 2026-04-02 07:14 by chixmc
[考研] 生物学308分求调剂（一志愿华东师大） +4 相信必会光芒万� 2026-03-31 4/200 2026-04-02 06:52 by ilovexiaobin
[考研] 一志愿南昌大学324求调剂 +12 hanamiko 2026-03-27 12/600 2026-04-01 22:34 by 运气yunqi
[考研] 江苏科技大学招材料研究生 +4 Su032713. 2026-04-01 5/250 2026-04-01 22:03 by cccchenso
[考研] 266分求材料化工冶金矿业等专业的调剂 +7 哇呼哼呼哼 2026-03-26 7/350 2026-04-01 20:47 by cqupH
[考研] 一志愿郑大材料工程290求调剂 +18 Youth_ 2026-03-30 18/900 2026-04-01 19:23 by 无际的草原
[考研] 英一数二生物信息学287分，本科生物科学，求调剂 +3 碧水xyz 2026-03-29 4/200 2026-04-01 15:35 by plum
[考研] 08工科275求调剂，可跨考。 +5 AaAa7420 2026-03-31 5/250 2026-04-01 15:21 by 159357hjz
[考研] 一志愿郑大085600，310分求调剂 +6 李潇可 2026-03-26 6/300 2026-04-01 14:44 by chenqifeng666
[考研] 生物学296求调剂 +10 汤圆包 2026-03-29 14/700 2026-04-01 10:44 by 求调剂zz
[考研] 土木304求调剂 +3 兔突突突， 2026-03-31 3/150 2026-04-01 09:42 by JourneyLucky
[考博] 26申博 +4 加油冲啊！ 2026-03-26 4/200 2026-03-31 22:42 by greychen00
[考研] 085601英二数二求调剂 总分325 +4 余航航 2026-03-31 4/200 2026-03-31 17:38 by 唐沐儿
[考研] 315求调剂 +6 akie... 2026-03-28 7/350 2026-03-31 16:48 by asdfzly
[考研] 085600，专业课化工原理，321分求调剂 +5 大馋小子 2026-03-28 5/250 2026-03-29 08:56 by qingfeng258
[考研] 药学105500求调剂 +3 Ssun。。 2026-03-28 3/150 2026-03-28 11:24 by lxf170613
[考研] 266求调剂 +11 阳阳哇塞 2026-03-27 12/600 2026-03-27 17:56 by yu221
[考研] 0856调剂 +5 求求让我有书读� 2026-03-26 6/300 2026-03-27 15:12 by caszguilin
[考研] 292求调剂 +4 求求了收下我吧� 2026-03-26 4/200 2026-03-27 10:37 by zhshch
信息提示
关闭
请填处理意见
关闭