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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 分子模拟 » 其他 » fortran语言汉字乱码
北京石油化工学院2026年研究生招生接收调剂公告
132/2返回列表上一页12
查看: 2382  |  回复: 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
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 081700化学工程与技术 一志愿中海洋 323 求调剂学校 +17 披星河 2026-04-03 17/850 2026-04-06 12:27 by 考研学校招点人
[考研] 085600材料与化工301分求调剂院校 +14 刺痛jk 2026-04-06 15/750 2026-04-06 11:57 by lijunpoly
[考研] 求助071001调剂！！！ +4 黄守松 2026-04-05 5/250 2026-04-06 10:55 by 1028907439
[考研] 0703求调剂383分 +9 W55j 2026-04-03 9/450 2026-04-06 06:50 by houyaoxu
[考研] 生物与医药调剂 +4 十七sa 2026-04-05 4/200 2026-04-05 20:05 by lys0704
[考研] 308求调剂 +4 maverick^_^ 2026-04-03 4/200 2026-04-05 19:08 by 蓝云思雨
[考研] 282求调剂 +3 aaa车辆 2026-04-01 3/150 2026-04-05 17:03 by yulian1987
[考研] 材料调剂 +9 革微桂 2026-04-04 9/450 2026-04-05 08:27 by 544594351
[考研] 一志愿北京2，材料与化工308求调剂 +10 熊二想上岸 2026-04-04 10/500 2026-04-05 05:20 by houyaoxu
[考研] 材料专硕306英一数二 +8 z1z2z3879 2026-03-31 8/400 2026-04-04 22:08 by hemengdong
[考研] 320求调剂 +5 振—TZ 2026-04-02 5/250 2026-04-03 14:42 by fxue1114
[考研] 085801 总分275 本科新能源 求调剂 +19 bradoner 2026-04-01 23/1150 2026-04-03 10:07 by linyelide
[考研] 生物学308分求调剂（一志愿华东师大） +6 相信必会光芒万� 2026-03-31 7/350 2026-04-02 23:16 by JourneyLucky
[考研] 302求调剂一志愿北航070300，本科郑大化学 +8 圣日耳曼条 2026-04-01 11/550 2026-04-02 07:40 by chemdavid
[考研] 353求调剂 +4 拉钩不许变 2026-04-01 4/200 2026-04-01 18:10 by 记事本2026
[考研] 省双一流重点一本大学招收调剂 +4 wwwwffffff 2026-03-31 7/350 2026-04-01 15:23 by wwwwffffff
[考研] 0855机械初试280求调剂 +3 kazenotori 2026-03-31 3/150 2026-04-01 10:08 by JourneyLucky
[考研] 吉大生物学326分求调剂 +3 sunnyupup 2026-03-31 3/150 2026-03-31 09:28 by longlotian
[考研] 一志愿中海洋320化学工程与技术学硕求调剂 +8 披星河 2026-03-30 8/400 2026-03-31 08:53 by lbsjt
[考研] 083000环境科学与工程调剂，总分281 +4 橙子（胜意） 2026-03-30 4/200 2026-03-31 00:44 by Linzejun
信息提示
关闭
请填处理意见
关闭