Fortran Coder

标题: 实型转换成字符型显示 [打印本页]
作者: Felix804665    时间: 2014-2-19 17:18
标题: 实型转换成字符型显示
[Fortran] 纯文本查看 复制代码
program main

implicit none



    real*8 :: a

    character(len=100) :: b !一定要给字符型变量指定长度



    write(*,*) "A="

    read(*,*) a



    write(*,*) "After Transformation"

    write(*,*) "A="



    write(*,'(A)') a  !非标准写法，应该尽量避免

    write(*,*) a      !检验a值



    write(b,'(A)') a  !本句为将a值转换成字符型后传给b储存，但并不显示

    write(b, *) a     !本句为将a的真实值传给b储存



    write(*,*) "B="

    write(*,*) b      !检验b值



pause

end



!****************************************************************!********************************************************************

! a和b的类型自始至终都没有发生过改变。a的值自始至终没有发生过改变，

! b的值发生变化，最后和a值相同。

!****************************************************************!********************************************************************


作者: 珊瑚虫    时间: 2014-2-19 17:47
不错
作者: fcode    时间: 2014-2-19 19:27
第16行也是不标准的，删掉这一行
作者: jason388    时间: 2014-2-20 14:19
本帖最后由 jason388 于 2014-2-21 08:28 编辑
fcode 发表于 2014-2-19 19:27
第16行也是不标准的，删掉这一行

第4行，第22和第23行都应该遵循2003标准，而不应该再采用F77的习惯。

[Fortran] 纯文本查看 复制代码
!real*8

real(kind=8)



!pause

read(*,*)



!end

end program main


作者: Felix804665    时间: 2014-2-21 16:02
jason388 发表于 2014-2-20 14:19
第4行，第22和第23行都应该遵循2003标准，而不应该再采用F77的习惯。

[mw_shl_code=fortran,false]!real* ...

好的，多谢啦
作者: Felix804665    时间: 2014-2-21 16:03
fcode 发表于 2014-2-19 19:27
第16行也是不标准的，删掉这一行

好哒！:lol
作者: yeoman    时间: 2014-2-28 16:31
我喜欢直接强暴的手段直接write(a,'(a)')B,这样就强制把实型向字符转化了。



欢迎光临 Fortran Coder (http://bbs.fcode.cn/) Powered by Discuz! X3.2