实型转换成字符型显示

Felix804665

[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值相同。
!****************************************************************!********************************************************************

珊瑚虫

不错

fcode

第16行也是不标准的，删掉这一行

jason388

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

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

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

好的，多谢啦

Felix804665

fcode 发表于 2014-2-19 19:27
第16行也是不标准的，删掉这一行

好哒！:lol

yeoman

我喜欢直接强暴的手段直接write(a,'(a)')B,这样就强制把实型向字符转化了。