24小时热门版块排行榜    

查看: 1866  |  回复: 8
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

allenjobsf853

铜虫 (小有名气)

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

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

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

1        ab
456    ab
125    ab

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

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

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

硕博精华

» 猜你喜欢

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

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

allenjobsf853

铜虫 (小有名气)


dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-31 13:31:40
引用回帖:
Originally posted by nono2009 at 2011-07-04 20:25:53:
http://www.programfan.com/club/showtxt.asp?id=230012

谢谢斑竹啊 能不能帮忙把网页复制到word一下发给我啊,

我打开后都是乱码 不知道是什么东西 谢谢了啊 发到ff@nus.edu.sg 多谢多谢
7楼2011-07-05 18:21:14
已阅   回复此楼   关注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'

2楼2011-07-04 20:12:40
已阅   回复此楼   关注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

3楼2011-07-04 20:25:16
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

nono2009

超级版主 (文学泰斗)

No gains, no pains.

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

【答案】应助回帖

★ ★
余泽成(金币+2): 谢谢参与应助! 2011-07-05 20:19:06
4楼2011-07-04 20:25:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 303求调剂 +5 安忆灵 2026-03-22 6/300 2026-03-22 12:46 by 素颜倾城1988
[考研] 306求调剂 +4 来好运来来来 2026-03-22 4/200 2026-03-22 12:43 by 素颜倾城1988
[考研] 求调剂 +5 十三加油 2026-03-21 5/250 2026-03-21 18:48 by 学员8dgXkO
[考研] 296求调剂 +4 www_q 2026-03-20 4/200 2026-03-21 17:26 by 学员8dgXkO
[考研] 336求调剂 +5 rmc8866 2026-03-21 5/250 2026-03-21 17:24 by 学员8dgXkO
[考研] 22 350 本科985求调剂,求老登收留 +3 李轶男003 2026-03-20 3/150 2026-03-21 13:28 by 搏击518
[考研] 332求调剂 +3 凤凰院丁真 2026-03-20 3/150 2026-03-21 10:27 by luoyongfeng
[考研] 一志愿山大07化学 332分 四六级已过 本科山东双非 求调剂! +3 不想理你 2026-03-16 3/150 2026-03-21 03:59 by JourneyLucky
[考研] 化学求调剂 +4 临泽境llllll 2026-03-17 5/250 2026-03-21 02:23 by JourneyLucky
[考研] 材料 336 求调剂 +3 An@. 2026-03-18 4/200 2026-03-21 01:39 by JourneyLucky
[考研] 华东师范大学-071000生物学-293分-求调剂 +3 研究生何瑶明 2026-03-18 3/150 2026-03-21 01:30 by JourneyLucky
[考研] 南京大学化学376求调剂 +3 hisfailed 2026-03-19 6/300 2026-03-20 23:43 by hisfailed
[考研] 一志愿西安交通大学 学硕 354求调剂211或者双一流 +3 我想要读研究生 2026-03-20 3/150 2026-03-20 20:13 by JourneyLucky
[考研] 086500 325 求调剂 +3 领带小熊 2026-03-19 3/150 2026-03-20 18:38 by 尽舜尧1
[考研] 328求调剂,英语六级551,有科研经历 +4 生物工程调剂 2026-03-16 12/600 2026-03-19 11:10 by 生物工程调剂
[考研] 本科郑州大学物理学院,一志愿华科070200学硕,346求调剂 +4 我不是一根葱 2026-03-18 4/200 2026-03-19 09:11 by 浮云166
[考研] 344求调剂 +6 knight344 2026-03-16 7/350 2026-03-18 20:13 by walc
[考研] 0854,计算机类招收调剂 +3 胡辣汤放糖 2026-03-15 6/300 2026-03-18 12:09 by 上岸上岸……..
[考研] 283求调剂 +3 听风就是雨; 2026-03-16 3/150 2026-03-17 07:41 by 热情沙漠
[考研] 070300化学学硕求调剂 +6 太想进步了0608 2026-03-16 6/300 2026-03-16 16:13 by kykm678
信息提示
请填处理意见