24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

allenjobsf853

铜虫 (小有名气)

应助: 1 (幼儿园)
金币: 74.6
散金: 207
帖子: 300
在线: 39.6小时
虫号: 497378
注册: 2008-02-02
性别: GG
专业: 水环境与生态水利

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

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

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

1       ab
456 ab
125 ab

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

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

回复此楼

1楼 2011-07-04 16:55:19

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

allenjobsf853

铜虫 (小有名气)

应助: 1 (幼儿园)
金币: 74.6
散金: 207
帖子: 300
在线: 39.6小时
虫号: 497378
注册: 2008-02-02
性别: GG
专业: 水环境与生态水利

★
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 个回答

snoopyzhao

至尊木虫 (职业作家)

程序强帖: 16
应助: 157 (高中生)
贵宾: 0.02
金币: 18844.7
红花: 29
帖子: 3803
在线: 1422.4小时
虫号: 183750
注册: 2006-02-13
专业: 污染生态化学

【答案】应助回帖

★
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的回帖

snoopyzhao

至尊木虫 (职业作家)

程序强帖: 16
应助: 157 (高中生)
贵宾: 0.02
金币: 18844.7
红花: 29
帖子: 3803
在线: 1422.4小时
虫号: 183750
注册: 2006-02-13
专业: 污染生态化学

【答案】应助回帖

★ ★ ★
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