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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】帮忙看下这个小程序【已完结】
北京石油化工学院2026年研究生招生接收调剂公告
51/1返回列表
查看: 192  |  回复: 2
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前主题已经存档。
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

奥迪A6

金虫 (小有名气)

[交流] 【求助】帮忙看下这个小程序【已完结】

说明：
txt里存有三个数：3，3，4，想读取之后显示在屏幕上，可是只能显示一个3，请大侠帮忙看下咋回事，谢谢

代码：
program main
  implicit none
  integer a
  open(3,file="E:\1.txt"
  read(3,*)a
  write(*,"(i3)"a
end

[ Last edited by nono2009 on 2009-10-10 at 11:28 ]
回复此楼

» 猜你喜欢
为什么我的眼里满含泪水？因为我对这土地爱的深沉。
1楼 2009-10-10 10:30:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

奥迪A6

金虫 (小有名气)
引用回帖:
Originally posted by woshilsh at 2009-10-10 10:38:
fortran的这部分偶没弄过，

不过感觉应该是有个循环来读取，根据字符结束条件每次读取一个，
你这好像只读取了一次，是不是？
个人意见，仅供参考，期待高手

我修改了下，成功了
program main
  implicit none
  integer a(3)
  integer i
  open(3,file="E:\1.txt"
  do i=1,3
  read(3,*)a(i)
  write(*,*)a(i)
  end do
end
赞一下 回复此楼
为什么我的眼里满含泪水？因为我对这土地爱的深沉。
3楼2009-10-10 10:49:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 3 个回答

woshilsh

荣誉版主 (职业作家)

优秀版主
★ ★
奥迪A6(金币+2,VIP+0):谢谢你给我灵感 10-10 10:49
fortran的这部分偶没弄过，

不过感觉应该是有个循环来读取，根据字符结束条件每次读取一个，
你这好像只读取了一次，是不是？
个人意见，仅供参考，期待高手
赞一下 回复此楼
[center][url=http://www.91cool.net/][img]http://id.91cool.net/sign/?name=小木虫印&say=各位版主辛苦了！[/img][/url][/center]
2楼2009-10-10 10:38:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 3 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 085600，专业课化工原理，321分求调剂 +4 大馋小子 2026-03-28 4/200 2026-03-29 00:32 by 544594351
[考研] 11408软件工程求调剂 +3 Qiu学ing 2026-03-28 3/150 2026-03-28 21:50 by zhq0425
[考研] 学硕274求调剂 +9 Li李鱼 2026-03-26 9/450 2026-03-28 21:42 by bymhappy
[考研] 本科双非材料，跨考一志愿华电085801电气，283求调剂，任何专业都可以 +6 芝士雪baoo 2026-03-28 7/350 2026-03-28 21:40 by zhq0425
[考研] 求调剂一志愿海大，0703化学学硕304分，有大创项目，四级已过 +7 幸运哩哩 2026-03-22 11/550 2026-03-28 20:27 by 唐沐儿
[考研] 一志愿华北电力大学能动专硕，293，求调剂 +3 15537177284 2026-03-23 5/250 2026-03-28 16:11 by xxxsssccc
[考研] 调剂 +3 好好读书。 2026-03-28 3/150 2026-03-28 12:04 by 王保杰33
[考研] 药学105500求调剂 +3 Ssun。。 2026-03-28 3/150 2026-03-28 11:24 by lxf170613
[考研] 一志愿南昌大学324求调剂 +7 hanamiko 2026-03-27 7/350 2026-03-28 09:56 by 李上岸0921
[考研] 340求调剂 +5 jhx777 2026-03-27 5/250 2026-03-28 04:18 by fmesaito
[考研] 求调剂 +3 刘柯@ 2026-03-24 4/200 2026-03-27 11:28 by shangxh
[考研] 317求调剂 +7 蛋黄咸肉粽 2026-03-26 7/350 2026-03-27 02:29 by fmesaito
[考研] 材料科学与工程 317求调剂 +4 JKSOIID 2026-03-26 4/200 2026-03-26 15:58 by 不吃魚的貓
[考研] 081700 调剂 267分 +11 迷人的哈哈 2026-03-23 11/550 2026-03-26 15:41 by zzll406
[考研] 290分调剂求助 +3 吉祥止止陈 2026-03-25 3/150 2026-03-25 19:58 by barlinike
[考研] 296求调剂 +4 汪！？！ 2026-03-25 7/350 2026-03-25 16:41 by 汪！？！
[考研] 【2026考研调剂】制药工程 284分 求相关专业调剂名额 +4 袁奂奂 2026-03-25 8/400 2026-03-25 14:32 by lbsjt
[考研] 一志愿吉林大学材料与化工303分求调剂 +4 为学666 2026-03-24 4/200 2026-03-25 11:27 by BruceLiu320
[考研] 求调剂 +6 研研，接电话 2026-03-24 7/350 2026-03-24 17:01 by barlinike
[考研] 085404电子信息284分求调剂 +4 13659058978 2026-03-24 4/200 2026-03-24 12:15 by syl20081243
信息提示
关闭
请填处理意见
关闭