版塊導(dǎo)航: 正在加載中...

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進(jìn)行實(shí)名認(rèn)證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號(hào)能夠正常使用，請(qǐng)盡快對(duì)帳號(hào)進(jìn)行手機(jī)號(hào)驗(yàn)證，感謝您的理解與支持！

24小時(shí)熱門版塊排行榜

北京石油化工學(xué)院2026年研究生招生接收調(diào)劑公告

返回列表

當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖

canny

新蟲 (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 170
帖子: 13
在線: 5.3小時(shí)
蟲號(hào): 1212088
注冊(cè): 2011-02-24

[求助] 文件無法循環(huán)

想做一個(gè)文件循環(huán)操作，但是文件無法循環(huán)讀取，只能讀入第一個(gè)文件，請(qǐng)大家?guī)兔匆幌?br /> program main
implicit none
real::a(2000)
real::b(2000)
real::c(2000)
real::d(2000)
integer i
integer j
integer k
integer p
real sum1,sum2,sum3,sum4
real ave1,ave2,ave3,ave4
character*30 filename(7)  ! 月數(shù)為31天的月份
character*30 output(7)

data filename /'D:/zhao/51467/1.txt','D:/zhao/51467/3.txt','D:\zhao\51467\5.txt','D:\zhao\51467\7.txt','D:\zhao\51467\8.txt','D:\zhao\51467\10.txt','D:\zhao\51467\12.txt'/
data output /'D:\zhao\51467\1out.txt','D:\zhao\51467\3out.txt','D:\zhao\51467\5out.txt','D:\zhao\51467\7out.txt','D:\zhao\51467\8out.txt','D:\zhao\51467\10out.txt','D:\zhao\51467\12out.txt'/

do k=1,7
   p=0
open(10,file=filename,status='old',iostat=p)
print *, "already open"  !打開文件
i=1
do while(.true.)
   read(10,*) a(i),b(i),c(i),d(i) !讀取數(shù)據(jù)
   if(p/=0) exit                !判斷文件是否讀取正常
if(mod(i,31)==0)then       !讀滿一個(gè)月
   sum1=0.0
               sum2=0.0
   sum3=0.0
   sum4=0.0
      do j=i-30,i       !求月平均
                  sum1=sum1+(a(j)*0.1)
   sum2=sum2+(b(j)*0.1)
   sum3=sum3+(c(j)*0.1)
   sum4=sum4+d(j)
         end do
ave1=sum1/31
   ave2=sum2/31
   ave3=sum3/31
   ave4=sum4/31

      open(11,file=output,status='replace')  ！寫入文件
         print *, "writing file"
   write(11,"(4(1XF6.2))"

ave1,ave2,ave3,ave4

      end if
   i=i+1
end do
  rewind(10)
  close(10)
  rewind(11)
close(11)
end do
stop
end

運(yùn)行之后顯示的錯(cuò)誤是 forrt1:severe<24>:end-of-file during read,unit10,file D:\zhao\51467\1.txt

回復(fù)此樓

» 猜你喜歡

284求調(diào)劑已經(jīng)有13人回復(fù)
材料科學(xué)與工程調(diào)劑已經(jīng)有5人回復(fù)
346求調(diào)劑一志愿070303有機(jī)化學(xué) 已經(jīng)有4人回復(fù)
329求調(diào)劑已經(jīng)有8人回復(fù)
一志愿南航 335分 | 0856材料化工 | GPA 4.07 | 有科研經(jīng)歷已經(jīng)有7人回復(fù)
322求調(diào)劑已經(jīng)有8人回復(fù)
考研調(diào)劑已經(jīng)有5人回復(fù)
307求調(diào)劑已經(jīng)有11人回復(fù)
292求調(diào)劑已經(jīng)有9人回復(fù)
本科211生物醫(yī)學(xué)工程085409求調(diào)劑339分已經(jīng)有3人回復(fù)

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

求循環(huán)流化床熱力計(jì)算相關(guān)資料，或者推薦下網(wǎng)站和書籍已經(jīng)有9人回復(fù)
環(huán)境影響評(píng)價(jià)工程師簡介及相關(guān)管理文件已經(jīng)有8人回復(fù)
部分有機(jī)物轉(zhuǎn)COD表，已搜索，之前帖子文件無法下載，我重新上傳一份已經(jīng)有68人回復(fù)
【求助】無法生成環(huán)糊精的psf文件已經(jīng)有4人回復(fù)
【求助】如何循環(huán)打開文件【已完結(jié)】已經(jīng)有5人回復(fù)
【分享】[08-02]綠色免費(fèi)精品軟件下載[清清心整理]【已搜索無重復(fù)】已經(jīng)有3人回復(fù)
【其他】endnote不能在word中連續(xù)插入文獻(xiàn) 已經(jīng)有18人回復(fù)

1樓 2012-03-31 20:22:32

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

canny

新蟲 (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 170
帖子: 13
在線: 5.3小時(shí)
蟲號(hào): 1212088
注冊(cè): 2011-02-24

引用回帖:

2樓: Originally posted by lurencyj at 2012-03-31 22:32:24:
end-of-file during read,unit10,file D:\zhao\51467\1.txt

文件里面沒有東西。
可以增加一個(gè)
do while(.not. eof(10))
end do

這個(gè)是加在哪邊？

贊一下

回復(fù)此樓

3樓2012-04-01 10:00:50

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

查看全部 5 個(gè)回答

lurencyj

木蟲 (著名寫手)

應(yīng)助: 159 (高中生)
金幣: 2869.2
散金: 520
紅花: 8
沙發(fā): 10
帖子: 1244
在線: 148.3小時(shí)
蟲號(hào): 888093
注冊(cè): 2009-10-29
性別: GG
專業(yè): 凝聚態(tài)物性I:結(jié)構(gòu)、力學(xué)和

【答案】應(yīng)助回帖

★ ★
感謝參與，應(yīng)助指數(shù) +1
xzhdty: , 歡迎常來程序語言 2012-03-31 23:11:38
canny: 金幣+2, ★★★很有幫助 2012-04-01 10:39:12

end-of-file during read,unit10,file D:\zhao\51467\1.txt

文件里面沒有東西。
可以增加一個(gè)
do while(.not. eof(10))
end do

贊一下

回復(fù)此樓

很女子很弓雖大

2樓2012-03-31 22:32:24

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

canny

新蟲 (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 170
帖子: 13
在線: 5.3小時(shí)
蟲號(hào): 1212088
注冊(cè): 2011-02-24

引用回帖:

我明白你的意思了修改之后現(xiàn)在是不會(huì)提示那個(gè)錯(cuò)誤了但是文件還是不能循環(huán)處理，只能處理出第一個(gè)文件...這是為什么��？謝謝~

贊一下

回復(fù)此樓

4樓2012-04-01 10:26:56

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

canny

新蟲 (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 170
帖子: 13
在線: 5.3小時(shí)
蟲號(hào): 1212088
注冊(cè): 2011-02-24

引用回帖:

4樓: Originally posted by canny at 2012-04-01 10:26:56:
我明白你的意思了修改之后現(xiàn)在是不會(huì)提示那個(gè)錯(cuò)誤了但是文件還是不能循環(huán)處理，只能處理出第一個(gè)文件...這是為什么��？謝謝~

我找到原因了應(yīng)該寫成filename(k) output(k)....
太粗心了
謝謝你哈

贊一下

回復(fù)此樓

5樓2012-04-01 10:38:43

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

查看全部 5 個(gè)回答

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 070300化學(xué)354求調(diào)劑 +7	101次希望 2026-03-28	7/350	2026-03-30 13:22 by Iveryant
[考研] 085701求調(diào)劑初試286分 +5	secret0328 2026-03-28	5/250	2026-03-30 12:54 by fangnagu
[考研] 材料專碩調(diào)劑 +9	椰椰。 2026-03-29	9/450	2026-03-30 12:02 by syjjj0321
[考研] 南京大學(xué)化學(xué)調(diào)劑 +10	景隨風(fēng) 2026-03-29	15/750	2026-03-30 11:21 by limeifeng
[考研] 322求調(diào)劑：一志愿湖南大學(xué) 材料與化工（085600），已過六級(jí)。 +4	XX小鄧 2026-03-29	4/200	2026-03-29 17:34 by 無際的草原
[考研] 一志愿北京理工大學(xué)本科211材料工程294求調(diào)劑 +8	mikasa的圍巾 2026-03-28	8/400	2026-03-29 12:48 by 無際的草原
[考研] 343求調(diào)劑 +6	愛羈絆 2026-03-29	6/300	2026-03-29 12:00 by 無際的草原
[考研] 調(diào)劑考研 +3	王杰一 2026-03-29	3/150	2026-03-29 08:09 by fmesaito
[考研] 數(shù)一英一271專碩（085401）求調(diào)劑，可跨 +7	前行必有光 2026-03-28	8/400	2026-03-28 23:22 by 小木蟲tim
[考研] 11408軟件工程求調(diào)劑 +3	Qiu學(xué)ing 2026-03-28	3/150	2026-03-28 21:50 by zhq0425
[考研] 315求調(diào)劑 +4	akie... 2026-03-28	5/250	2026-03-28 21:05 by zhq0425
[考研] 343求調(diào)劑 +5	愛羈絆 2026-03-28	5/250	2026-03-28 20:53 by 唐沐兒
[考研] 壓國家一區(qū)線，求導(dǎo)師收留，有恩必謝！ +7	迷人的哈哈 2026-03-28	7/350	2026-03-28 16:47 by 催化大白
[考研] 本科新能源科學(xué)與工程，一志愿華理能動(dòng)285求調(diào)劑 +3	AZMK 2026-03-27	5/250	2026-03-28 16:19 by xxxsssccc
[考研] 070300化學(xué)求調(diào)劑 +4	起個(gè)名咋這么難 2026-03-27	4/200	2026-03-27 21:39 by 83503孫老師
[考研] 341求調(diào)劑 +7	青檸檬1 2026-03-26	7/350	2026-03-27 00:19 by wxiongid
[考研] 321求調(diào)劑 +6	wasdssaa 2026-03-26	6/300	2026-03-26 20:57 by sanrepian
[考研] 321求調(diào)劑 +6	Ymlll 2026-03-24	6/300	2026-03-26 20:50 by 不吃魚的貓
[考研] 總分322求生物學(xué)/生化與分子/生物信息學(xué)相關(guān)調(diào)劑 +5	星沉uu 2026-03-26	6/300	2026-03-26 19:02 by macy2011
[有機(jī)交流] 有機(jī)合成求助 20+3	FENGSHUJEI 2026-03-23	5/250	2026-03-24 19:31 by 88817753

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产 高清 中文字幕,99re热久久亚洲综合精品成人,熟妇 一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

24小時(shí)熱門版塊排行榜

canny

[求助] 文件無法循環(huán)

» 猜你喜歡

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

canny

lurencyj

【答案】應(yīng)助回帖

canny

canny

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产高清中文字幕,99re热久久亚洲综合精品成人,熟妇一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助: