[输入输出] 输出为1750254-6这种格式，求助

1967 帖子	12 主题	5 精华

论坛跑堂

臭石头雪球

F 币: 1370 元
贡献: 581 点

发消息

楼主

发表于 2014-10-10 11:44:14 | 显示全部楼层

[Fortran] 纯文本查看 复制代码

Program www_fcode_cn
  Implicit none
  write( * , * ) W( 1.750254E+00 )

contains
  Character(len=9) Function W( r )
    real :: r
    character(len=11) :: t
    write( t , '(es11.6e1)' ) r*1e-6
    W = t(1:1) // t(3:8) // t(10:11)
  End Function W
End Program www_fcode_cn