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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 分子模拟 » 其他 » fortran语言汉字乱码
132/2返回列表上一页12
查看: 2353  |  回复: 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
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 机械专硕325，寻找调剂院校 +3 y9999 2026-03-15 5/250 2026-03-16 19:58 by y9999
[考研] 一志愿985，本科211，0817化学工程与技术319求调剂 +5 Liwangman 2026-03-15 5/250 2026-03-16 17:10 by 我的船我的海
[考研] 0703化学调剂 ，六级已过，有科研经历 +7 曦熙兮 2026-03-15 7/350 2026-03-16 16:34 by houyaoxu
[考研] 0856求调剂 +3 刘梦微 2026-03-15 3/150 2026-03-16 10:00 by houyaoxu
[考研] 311求调剂 +6 冬十三 2026-03-15 6/300 2026-03-16 08:00 by wang_dand
[考研] 求老师收留调剂 +4 jiang姜66 2026-03-14 5/250 2026-03-15 20:11 by Winj1e
[考研] 289求调剂 +5 步川酷紫123 2026-03-11 5/250 2026-03-15 00:45 by kruisytel
[考研] 288求调剂 +4 奇点0314 2026-03-14 4/200 2026-03-14 23:04 by JourneyLucky
[考研] 312求调剂 +6 陌宸希 2026-03-10 6/300 2026-03-14 00:40 by JourneyLucky
[考研] 308求调剂 +3 是Lupa啊 2026-03-10 3/150 2026-03-14 00:30 by JourneyLucky
[考研] ［0860］321分求调剂，ab区皆可 +4 宝贵热 2026-03-13 4/200 2026-03-13 22:01 by 星空星月
[考研] 26调剂/材料/英一数二/总分289/已过A区线 +6 步川酷紫123 2026-03-13 6/300 2026-03-13 21:59 by 星空星月
[考研] 293求调剂 +3 世界首富 2026-03-11 3/150 2026-03-13 16:27 by JourneyLucky
[考研] 求b区学校调剂 +3 周56 2026-03-11 3/150 2026-03-13 16:20 by JourneyLucky
[考研] 0856化学工程280分求调剂 +4 shenzxsn 2026-03-11 4/200 2026-03-13 11:55 by ymwdoctor
[考研] 求调剂 资源与环境 285 +3 未名考生 2026-03-10 3/150 2026-03-13 10:31 by houyaoxu
[考研] 290求调剂 +3 柯淮然 2026-03-10 8/400 2026-03-11 13:48 by 柯淮然
[考研] 0857环境调剂 +5 熠熠_11 2026-03-10 5/250 2026-03-11 10:59 by wang_dand
[考研] 化工0817调剂 +8 灿若星晨 2026-03-10 8/400 2026-03-10 22:44 by 星空星月
[考博] 26申博求助 +3 跳跃饼干 2026-03-10 4/200 2026-03-10 21:15 by Tntcnn
信息提示
关闭
请填处理意见
关闭