应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 分子模拟 » 其他 » fortran语言汉字乱码
132/2返回列表上一页12
查看: 2255  |  回复: 12
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

一秋之雨

木虫 (正式写手)
★
月只蓝: 金币+1, 鼓励交流！ 2013-11-19 08:39:19
看看这个程序：

module typedef
  type student
    integer Chinese,English,Math
  end type
end module

program ex0907
  use typedef
  implicit none
  type(student) :: s
  character(len=80) :: filename = "data.txt"
  integer, parameter :: fileid = 10
  logical alive
  integer :: error
  integer :: no

  inquire(file=filename, exist=alive)
  if ( .not. alive ) then
    write(*,*) trim(filename)," doesn't exist."
        stop
  end if

  open(fileid, file=filename)
  do while(.true.)
        read(fileid,"(5X,I2,/,5XI3,6XI3,6XI3)",iostat=error) no,s
        if ( error/=0 ) exit
        write(*,"(I2'号 中文:'I3' 英文:'I3' 数学:'I3)" no,s
  end do
  close(fileid)

  stop
end


DATA.txtr中数据如下：

1号 中文：80 英文：90 数学：95
2 号 中文：90 英文：85 数学：88
3 号 中文：75 英文：90 数学：95
赞一下 回复此楼
11楼2013-11-18 22:57:48
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

optunity

金虫 (小有名气)
引用回帖:
11楼: Originally posted by 一秋之雨 at 2013-11-18 22:57:48
看看这个程序：

module typedef
  type student
    integer Chinese,English,Math
  end type
end module

program ex0907
  use typedef
  implicit none
  type(student) :: s
  character(len=80) ...

不好意思，看不到程序啊。我不懂fortran语言，只是想办法给别人解决，他程序不显示汉字的问题啊。他很久之前编辑的程序，在那个时候程序是可以运算的。可能个别语句有错，但是整体程序能运行。您试试别的，看看能不能显示汉字就好了，程序的问题不管了呗。谢了啊
赞一下 回复此楼
12楼2013-11-19 18:17:07
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

optunity

金虫 (小有名气)
引用回帖:
11楼: Originally posted by 一秋之雨 at 2013-11-18 22:57:48
看看这个程序：

module typedef
  type student
    integer Chinese,English,Math
  end type
end module

program ex0907
  use typedef
  implicit none
  type(student) :: s
  character(len=80) ...

我在ucdos下面运行了一下，几个程序还是可以显示汉字啊。就是把ucdos安装在u盘里面，貌似比较麻烦，您还有简单点的办法？
程序语言的问题我是空白啊，嘿嘿，你跟我说也不懂。如果有需要再咨询你了啊。
赞一下 回复此楼
13楼2013-11-21 09:21:40
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 optunity 的主题更新
132/2返回列表上一页12
信息提示
关闭
请填处理意见
关闭