Felix804665 发表于 2014-2-19 17:18:25

实型转换成字符型显示

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:38

不错

fcode 发表于 2014-2-19 19:27:46

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

jason388 发表于 2014-2-20 14:19:09

本帖最后由 jason388 于 2014-2-21 08:28 编辑

fcode 发表于 2014-2-19 19:27
第16行也是不标准的，删掉这一行
第4行，第22和第23行都应该遵循2003标准，而不应该再采用F77的习惯。

!real*8
real(kind=8)

!pause
read(*,*)

!end
end program main

Felix804665 发表于 2014-2-21 16:02:51

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

!real* ...

好的，多谢啦

Felix804665 发表于 2014-2-21 16:03:24

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

好哒！:lol

yeoman 发表于 2014-2-28 16:31:31

我喜欢直接强暴的手段直接write(a,'(a)')B,这样就强制把实型向字符转化了。
页: [1]
查看完整版本: 实型转换成字符型显示