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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » fortran整数输出格式的问题
北京石油化工学院2026年研究生招生接收调剂公告
51/1返回列表
查看: 1884  |  回复: 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的回帖

zzzzyyyy

铜虫 (初入文坛)
★ ★
余泽成(金币+2): 欢迎新虫，常来程序语言版！ 2011-07-11 20:38:24
引用回帖:
Originally posted by nono2009 at 2011-07-05 18:43:50:
网页的内容：
[quote]
想把一个矩阵存成txt文件，用制表符tab分割的，这样可以用excel打开，每个数据占一个格，而不是整行数据在一个格内。

不知道能不能这样存，怎么存？

高手指点！谢谢！


作者： ...

把矩阵的每一行按照标准格式存一下，比如一个100*100的按照这个来写
        do i = 1 , 100
                write(102,"(100F12.6)" data(i,
        end do
然后用Origin或者Excel导入都可以
如果Excel导入不行得话可以用Origin导入再复制过去...
赞一下(1人) 回复此楼
9楼2011-07-07 22:01:35
已阅   回复此楼   关注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的回帖

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

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的回帖
查看全部 9 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 274求调剂 +4 xiao爱同学 2026-03-30 4/200 2026-03-31 00:04 by jp9609
[考研] 281求调剂 +5 亚克西good 2026-03-26 7/350 2026-03-30 20:42 by dophin1985
[考研] 求收留 +6 1943443204 2026-03-28 6/300 2026-03-30 20:37 by dick_runner
[考研] 一志愿：西北大学，英一数一408-284分求调剂 +5 12.27 2026-03-27 5/250 2026-03-30 19:31 by 源_2020
[考研] 287求调剂 +14 land xuxu 2026-03-26 14/700 2026-03-30 18:38 by 544594351
[考研] 一志愿厦门大学材料工程专硕354找调剂！！！ +5 贝呗钡钡 2026-03-30 5/250 2026-03-30 18:16 by 无际的草原
[考研] 0703 化学 求调剂，一志愿山东大学 342 分 +7 Shern—- 2026-03-28 7/350 2026-03-30 16:31 by nothing投稿中
[考研] 材料专硕调剂 +11 椰椰。 2026-03-29 11/550 2026-03-30 16:21 by wangjy2002
[考研] 284求调剂 +14 junqihahaha 2026-03-26 15/750 2026-03-30 14:12 by 探123
[考研] 一志愿中南大学化学0703总分337求调剂 +6 niko- 2026-03-27 6/300 2026-03-30 10:25 by herarysara
[考研] 340求调剂 +6 Amber00 2026-03-26 6/300 2026-03-29 12:06 by 无际的草原
[考研] 305求调剂 +8 RuiFairyrui 2026-03-28 8/400 2026-03-29 08:22 by fmesaito
[考研] 一志愿太原理工安全工程300分，求调剂 +5 0857求调剂. 2026-03-24 6/300 2026-03-28 22:04 by zhq0425
[考研] 316求调剂 +7 江辞666 2026-03-26 7/350 2026-03-28 21:28 by sanrepian
[考研] 070300化学求调剂 +4 起个名咋这么难 2026-03-27 4/200 2026-03-27 21:39 by 83503孙老师
[考研] 285求调剂 +4 AZMK 2026-03-27 7/350 2026-03-27 20:59 by AZMK
[考研] 调剂推荐 +5 清酒714 2026-03-26 6/300 2026-03-27 11:12 by 不吃魚的貓
[考研] 材料求调剂 +5 .m.. 2026-03-25 5/250 2026-03-27 11:08 by 不吃魚的貓
[考研] 一志愿武理085500机械专业总分300求调剂 +3 an10101 2026-03-24 7/350 2026-03-25 00:00 by 山鬼0-
[考研] 080500求调剂 +3 zzzzfan 2026-03-24 3/150 2026-03-24 16:38 by barlinike
信息提示
关闭
请填处理意见
关闭