[交流] 【求助】如何实现数字紧贴字母输入

H  1
H  2
H  3
H  4
H  5
H  6
H  7
H  8
H  9
H 10
H 11
H 12
请教前辈，如何让后面的数字紧贴着字母输入呢后面还有几百行

回复此楼

» 猜你喜欢

存款400万可以在学校里躺平吗已经有36人回复
英文综述是否需要润色及查重已经有5人回复
救命帖已经有5人回复
限项规定已经有5人回复
为什么nbs上溴没有产物点出现呢已经有9人回复
招博士已经有3人回复
最失望的一年已经有18人回复

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

【求助】光栅重构DLP(Discrete Layer Peeling)模型已经有2人回复
【资源】催化剂制备中浸渍（等体积浸渍）不断改进已经有151人回复
【求助】帮忙看一段程序已经有9人回复
【讨论】80后”创业者何以前仆后继已经有0人回复
【分享】巨牛总结：搞有机必须学会的合成检索方法已经有169人回复

» 抢金币啦！回帖就可以得到:

查看全部散金贴

1楼 2011-01-12 00:16:30

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

xk6891

至尊木虫 (著名写手)

应助: 0 (幼儿园)
金币: 13735.8
帖子: 1514
在线: 546小时
虫号: 890342

引用回帖:

Originally posted by snoopyzhao at 2011-01-13 13:27:

谢谢专家了，感激不尽，问题得到解决，fortran会读数据了。
这种页面插入代码如何做到的
能请您介绍一些shell或perl方面的入门资料么，貌似在shell语言中的awk和sed处理数据文本更强大，还请前辈指导。

赞一下

回复此楼

17楼2011-01-13 13:43:30

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

查看全部 24 个回答

uiui

新虫 (小有名气)

应助: 0 (幼儿园)
金币: 7.1
帖子: 252
在线: 59.1小时
虫号: 380027

★ ★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
xk6891(金币+5):谢谢前辈，问题解决了。用了第二种方法 2011-01-12 10:32:06
余泽成(金币+3):谢谢参与应助！ 2011-01-13 19:47:34

program align_left_output_1

do i=1,200
   L=int(log10(i*1.0))+1
   write(*,100) i
enddo
100 format('H'I

end program

program align_left_output_2
character*8 tmpchar

do i=1,200
   write(tmpchar,'(I8)') i
   write(*,*) 'H'//adjustl(tmpchar)
enddo

end program

第一种方法形式简单，容易理解。但变宽度输出依赖于编译器，可移植性不好；而且用到了对数运算，在数据量很大时效率较低。
第二种方法借用了临时字符串做内部文件，效率可能更高一些。

赞一下(2人)

回复此楼

2楼2011-01-12 09:17:49

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

xk6891

至尊木虫 (著名写手)

应助: 0 (幼儿园)
金币: 13735.8
帖子: 1514
在线: 546小时
虫号: 890342

引用回帖:

Originally posted by uiui at 2011-01-12 09:17:49:
program align_left_output_1

do i=1,200
   L=int(log10(i*1.0))+1
   write(*,100) i
enddo
100 format('H'I

end program

program align_left_output_2
charact ...

请教前辈一个问题，call random_seed产生随机数的时候，网上说的会根据系统的日期和时间提供种子，但是我每次编译都没有改变，求教一下这是为何，如何使它能生成不同的随机数列。

赞一下

回复此楼

3楼2011-01-12 10:37:14

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