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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 分子模拟 » 其他 » fortran语言汉字乱码
132/2返回列表上一页12
查看: 2498  |  回复: 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
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +3 9skg9htng1 2026-06-20 3/150 2026-06-21 19:18 by q1p9ixelzp
[教师之家] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +3 9skg9htng1 2026-06-20 3/150 2026-06-21 18:58 by q1p9ixelzp
[公派出国] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +3 9skg9htng1 2026-06-20 3/150 2026-06-21 18:00 by q1p9ixelzp
[考研] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +3 9skg9htng1 2026-06-20 4/200 2026-06-21 17:45 by q1p9ixelzp
[论文投稿] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +3 9skg9htng1 2026-06-20 3/150 2026-06-21 17:40 by q1p9ixelzp
[论文投稿] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +3 9skg9htng1 2026-06-20 3/150 2026-06-21 17:37 by q1p9ixelzp
[考博] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +4 vlfdw50o0u 2026-06-20 5/250 2026-06-21 17:20 by ky8v3skvft
[博后之家] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +4 vlfdw50o0u 2026-06-20 6/300 2026-06-21 17:05 by ky8v3skvft
[公派出国] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +4 vlfdw50o0u 2026-06-20 5/250 2026-06-21 17:00 by ky8v3skvft
[教师之家] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +5 vlfdw50o0u 2026-06-20 7/350 2026-06-21 16:57 by ky8v3skvft
[论文投稿] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +3 vlfdw50o0u 2026-06-20 5/250 2026-06-21 16:45 by ky8v3skvft
[教师之家] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +4 vlfdw50o0u 2026-06-20 7/350 2026-06-21 16:40 by ky8v3skvft
[论文投稿] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +4 vlfdw50o0u 2026-06-20 9/450 2026-06-21 16:37 by ky8v3skvft
[基金申请] E0414, 我的本子有没有希望？ +7 布布和一二 2026-06-17 8/400 2026-06-21 15:44 by lwliwei1989
[基金申请] 青A35岁以下通知答辩了吗 +3 暨阳一只柴 2026-06-17 3/150 2026-06-21 09:39 by kudofaye
[考博] 【全奖博士/科研助理/博后招生】新加坡南洋理工大学机械与航空航天学院 +3 robohaha 2026-06-15 4/200 2026-06-21 00:36 by lanbing1
[硕博家园] 一篇论文同时出现在两个期刊，一模一样，这算不算学术不端，请各位老师斧正。 +11 mahl005 2026-06-14 12/600 2026-06-18 17:01 by 770904134
[基金申请] 希望面上有个好结果 +7 碧水00 2026-06-16 7/350 2026-06-18 12:18 by wuke100666
[论文投稿] 三区计算机方向期刊推荐 +5 1457340941 2026-06-15 5/250 2026-06-17 13:16 by 会议编辑
[论文投稿] sci论文二审求助 +5 潘倍倍 2026-06-15 5/250 2026-06-16 10:15 by xs74101122
信息提示
关闭
请填处理意见
关闭