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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » fortran整数输出格式的问题
51/1返回列表
查看: 2223  |  回复: 8
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

allenjobsf853

铜虫 (小有名气)

[求助] fortran整数输出格式的问题

编了一个fortran程序，但是格式不会弄 具体如下

想要第一段为7列宽度，输出整数， 第二输出字母 ，比如

1        ab
456    ab
125    ab

结果现在都是右顶格输出  撑了下面的样子：
        1ab
    456ab
    125ab

怎么才能弄成第一种的？？？  不尽感激啊
回复此楼

» 收录本帖的淘帖专辑推荐

硕博精华

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2011-07-04 16:55:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★ ★ ★
jjdg(金币+3): 感谢参与 2011-07-05 12:40:16
另外一种方法，可能更简便一些：
CODE:
program i2s

character(len=10) :: ci

write(ci,'(i0)') 1234567890
write(*,'(a,a)') ci,'ab'

write(ci,'(i0)') 123456
write(*,'(a,a)') ci,'ab'

end program i2s
赞一下(1人) 回复此楼
3楼2011-07-04 20:25:16
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 9 个回答

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★
jjdg(金币+1): 感谢参与 2011-07-05 12:40:27
allenjobsf853(金币+10): 这个肯定不行，上万行的文本，数字是不一样的 2011-07-05 18:13:06
这个似乎没有什么好办法，你需要知道你的整数的长度是多少，然后人为控制，比如
CODE:
write(*,'(i0,5x,a)') 1, 'ab'
write(*,'(i0,3x,a)') 456, 'ab'
write(*,'(i0,3x,a)') 456, 'ab'
赞一下(1人) 回复此楼
2楼2011-07-04 20:12:40
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

nono2009

超级版主 (文学泰斗)

No gains, no pains.

优秀区长优秀区长优秀区长优秀区长优秀版主

【答案】应助回帖

★ ★
余泽成(金币+2): 谢谢参与应助！ 2011-07-05 20:19:06
http://www.programfan.com/club/showtxt.asp?id=230012
赞一下(1人) 回复此楼
4楼2011-07-04 20:25:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

allenjobsf853

铜虫 (小有名气)
★
dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-31 13:31:30
引用回帖:
Originally posted by snoopyzhao at 2011-07-04 20:25:16:
另外一种方法，可能更简便一些：

[code]
program i2s

character(len=10) :: ci

write(ci,'(i0)') 1234567890
write(*,'(a,a)') ci,'ab'

write(ci,'(i0)') 123456
write(*,'(a,a)') ci,'ab'

end ...

这个方法不错 受教了 不过我找到了更方便的做法 在帖子最下面
赞一下(1人) 回复此楼
5楼2011-07-05 18:13:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 9 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[硕博家园] 上海工程技术大学 激光智能制造课题组 2027级博士研究生招生 +5 oxidpl 2026-09-20 7/350 2026-09-27 10:43 by Equinoxhua
[博后之家] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +3 ViqFlLSxHDGt 2026-09-26 3/150 2026-09-27 10:42 by 4IW0sJvtEqX8
[博后之家] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +3 ViqFlLSxHDGt 2026-09-26 3/150 2026-09-27 10:21 by 4IW0sJvtEqX8
[公派出国] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +3 ViqFlLSxHDGt 2026-09-26 3/150 2026-09-27 10:15 by 4IW0sJvtEqX8
[考博] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 +3 ViqFlLSxHDGt 2026-09-26 3/150 2026-09-27 10:03 by 4IW0sJvtEqX8
[考博] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +3 oeyPlfmMUpOC 2026-09-26 3/150 2026-09-27 09:13 by 4IW0sJvtEqX8
[公派出国] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 +3 GxESXJmptOtQ 2026-09-25 4/200 2026-09-27 06:44 by XgCC8uTcwILl
[论文投稿] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +3 GxESXJmptOtQ 2026-09-25 4/200 2026-09-27 06:39 by XgCC8uTcwILl
[找工作] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +3 GxESXJmptOtQ 2026-09-25 3/150 2026-09-27 06:32 by XgCC8uTcwILl
[公派出国] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +3 vQZoDrrm7mUF 2026-09-25 3/150 2026-09-27 06:05 by XgCC8uTcwILl
[考研] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +3 vQZoDrrm7mUF 2026-09-25 3/150 2026-09-27 05:56 by XgCC8uTcwILl
[论文投稿] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +4 vQZoDrrm7mUF 2026-09-25 4/200 2026-09-27 05:56 by XgCC8uTcwILl
[找工作] 售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急 +5 vQZoDrrm7mUF 2026-09-25 5/250 2026-09-27 05:53 by XgCC8uTcwILl
[博后之家] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +4 vQZoDrrm7mUF 2026-09-25 4/200 2026-09-27 05:50 by XgCC8uTcwILl
[公派出国] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 +4 vQZoDrrm7mUF 2026-09-25 4/200 2026-09-27 05:44 by XgCC8uTcwILl
[考博] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +3 vQZoDrrm7mUF 2026-09-25 3/150 2026-09-27 05:44 by XgCC8uTcwILl
[考研] 售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急 +3 vQZoDrrm7mUF 2026-09-25 5/250 2026-09-27 05:44 by XgCC8uTcwILl
[论文投稿] 售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急 +3 vQZoDrrm7mUF 2026-09-25 6/300 2026-09-27 05:42 by XgCC8uTcwILl
[教师之家] 课题组招2027级博士 上海工程技术大学 激光智能制造方向 +4 oxidpl 2026-09-20 6/300 2026-09-24 20:37 by oxidpl
[基金申请] 师弟论文见刊大半年才想起来申请专利，还能抢救一下吗？ +4 13108017953 2026-09-21 4/200 2026-09-24 10:06 by kudofaye
信息提示
关闭
请填处理意见
关闭