| 查看: 2574 | 回复: 23 | |||
| 当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖 | |||
[交流]
【求助】如何实现数字紧贴字母输入
|
|||
|
H 1 H 2 H 3 H 4 H 5 H 6 H 7 H 8 H 9 H 10 H 11 H 12 请教前辈,如何让后面的数字紧贴着字母输入呢后面还有几百行 |
» 猜你喜欢
大佬帮着分析今年的评审意见?该课题连续申请了三年了,明年要不要换个方向。
已经有11人回复
两块石头
已经有10人回复
广西大学-广州大学招聘博士后 欢迎广大优秀人才!!!
已经有8人回复
科研人应该花精力去思考如何解决问题,而不是去凝练问题
已经有19人回复
售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急
已经有9人回复
售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急
已经有15人回复
面上没中,邀请各位路过的虫友分析一下分数
已经有13人回复
初秋的晨风
已经有6人回复
学科评审组评审是指会评吗?
已经有9人回复
Ei源刊怎么投
已经有4人回复
» 本主题相关价值贴推荐,对您同样有帮助:
【求助】光栅重构DLP(Discrete Layer Peeling)模型
已经有2人回复
【资源】催化剂制备中浸渍(等体积浸渍)不断改进
已经有151人回复
【求助】帮忙看一段程序
已经有9人回复
【讨论】80后”创业者何以前仆后继
已经有0人回复
【分享】巨牛总结:搞有机必须学会的合成检索方法
已经有169人回复
8楼2011-01-13 09:44:55
★ ★ ★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
xk6891(金币+5):谢谢前辈,问题解决了。用了第二种方法 2011-01-12 10:32:06
余泽成(金币+3):谢谢参与应助! 2011-01-13 19:47:34
小木虫(金币+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楼2011-01-12 09:17:49
3楼2011-01-12 10:37:14
4楼2011-01-12 13:49:20










回复此楼