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

24小时热门版块排行榜    

CyRhmU.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » fortran如何消除实数小数点后无意义的零
132/2返回列表上一页12
查看: 1478  |  回复: 12
只看楼主@他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

zsy011210804

新虫 (初入文坛)
引用回帖:
9楼: Originally posted by weiwei43 at 2016-05-05 08:20:36
如果不取整，这样处理：
write(6,100)t1,t2,t3,t4,t5,t6
100 format(1x,6(f5.0,1x))

如果取整，按下面方法处理：
write(6,100)t1,t2,t3,t4,t5,t6
100 format(1x,6(I5,1x))

非常感谢，这个方法可以取整后把小数点后面的零消去，但是没有懂为什么我用write(6,'(6f)')t11,t22,t33,t44,t55,t66，就是0.0000，
赞一下 回复此楼
11楼2016-05-05 15:45:04
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

qchem

铁杆木虫 (著名写手)

【答案】应助回帖

为什么不把变量直接定义为整型

非要实型，那取整后格式输出

发自小木虫IOS客户端
赞一下 回复此楼
12楼2016-05-07 06:11:42
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

挖坑埋仪器

新虫 (正式写手)
int取整

发自小木虫Android客户端
回复此楼
13楼2016-05-11 02:51:15
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 zsy011210804 的主题更新
132/2返回列表上一页12
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭