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

登錄注冊

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

24小時熱門版塊排行榜

返回列表

zl2013

銅蟲 (正式寫手)

應(yīng)助: 0 (幼兒園)
金幣: 89.2
散金: 506
紅花: 2
帖子: 680
在線: 114.9小時
蟲號: 2193295
注冊: 2012-12-15
性別: GG
專業(yè): 原子和分子物理

[求助] fortran程序求助

本人對fortran是新手，沒有學(xué)習(xí)多久，現(xiàn)在有一個數(shù)據(jù)我想對它進(jìn)行處理選擇一些我想要的數(shù)據(jù)
program dajiahao
real*8 x,y
integer n
open(unit=1,file='e:\mg\2000\data\8dip\one.dat')
open(unit=2,file='e:\mg\2000\data\8dip\two.dat')
do while(.not.eof(1))
read(1,*)x
y=1/x
if0.1<y.and.y<0.2write(2,*)y,x
close(1)
close(2)
end
如上所述，我讀取one.dat文件中數(shù)據(jù)，將大小范圍在0.1和0.2之間的數(shù)取得并且將寫入到two.dat文件中，
現(xiàn)在我想讓這個范圍是一個變化的范圍，比如
改成 if 0.1*(n+1)<y.and.y<0.2*(n+3)write(2,*)y,x
這里的n取整數(shù)，我想應(yīng)該是加一個循環(huán)進(jìn)去，可是加來家去也沒有弄出來，請給為fortran學(xué)習(xí)者指教。
在這里先感謝大家，謝謝。

回復(fù)此樓

» 猜你喜歡

材料學(xué)碩297已過四六級求調(diào)劑推薦已經(jīng)有3人回復(fù)
材料080500調(diào)劑求收留已經(jīng)有5人回復(fù)
295復(fù)試調(diào)劑已經(jīng)有3人回復(fù)
271材料工程求調(diào)劑已經(jīng)有7人回復(fù)
265求調(diào)劑已經(jīng)有8人回復(fù)
085410人工智能專碩317求調(diào)劑（0854都可以）已經(jīng)有4人回復(fù)
一志愿武漢理工材料工程專碩調(diào)劑已經(jīng)有6人回復(fù)
一志愿南京航空航天大學(xué)大學(xué) ，080500材料科學(xué)與工程學(xué)碩已經(jīng)有3人回復(fù)
279分求調(diào)劑一志愿211 已經(jīng)有7人回復(fù)
304求調(diào)劑已經(jīng)有5人回復(fù)

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

求助：用Fortran寫一個關(guān)于晶粒個數(shù)統(tǒng)計和編號的程序�？宋液镁昧恕� 已經(jīng)有4人回復(fù)
求助：intel visual fortran的格式問題已經(jīng)有14人回復(fù)
fortran輸出求助已經(jīng)有6人回復(fù)
急求fortran運行錯誤原因，在線等已經(jīng)有7人回復(fù)
又來求助啦，fortran里使用多文件，其中的子程序文件怎么觀察參數(shù)值��？已經(jīng)有3人回復(fù)
FORTRAN新手求助主程序循環(huán)問題已經(jīng)有10人回復(fù)
Fortran 編譯問題已經(jīng)有9人回復(fù)
關(guān)于Fortran程序運行的求助已經(jīng)有2人回復(fù)
求助Fortran編程已經(jīng)有8人回復(fù)
【求助】fortran求解矩陣已經(jīng)有7人回復(fù)
【求助】如何寫FORTRAN程序?qū)崿F(xiàn)求平均最近鄰距離已經(jīng)有34人回復(fù)
【求助】FORTRAN寫文件時每行開頭都多了一個空格？已經(jīng)有6人回復(fù)
【求助】FORTRAN讀取文本文件已經(jīng)有9人回復(fù)
【求助】用fortran怎么描述下面這樣的情況，我是新手，請大家?guī)兔?/a> 已經(jīng)有8人回復(fù)

【求助】初學(xué)fortran，已經(jīng)有15人回復(fù)
【求助】請問一下fortran的可視化編程已經(jīng)有7人回復(fù)
【求助】用fortran解矩陣問題【已解決】已經(jīng)有5人回復(fù)
【求助】fortran中怎么存儲不確定長度的數(shù)據(jù)【已完結(jié)】已經(jīng)有6人回復(fù)
【求助】Fortran程序，如何讓exe文件可以單獨運行？已經(jīng)有6人回復(fù)
【求助】如何實現(xiàn)編寫的fortran程序讓別人使用，但不讓別人知道源代碼已經(jīng)有6人回復(fù)

涼白開

1樓 2013-11-12 10:42:31

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

tutu6287

銀蟲 (小有名氣)

應(yīng)助: 6 (幼兒園)
金幣: 203.9
散金: 338
帖子: 95
在線: 84.2小時
蟲號: 568457
注冊: 2008-06-03
專業(yè): 結(jié)構(gòu)工程

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

★ ★ ★ ★ ★
zl2013: 金幣+5, ★有幫助, 謝謝 2013-11-22 08:56:11

program dajiahao
real*8 x,y
integer n
open(unit=1,file='e:\mg\2000\data\8dip\one.dat')
open(unit=2,file='e:\mg\2000\data\8dip\two.dat')
do while(.not.eof(1))
read(1,*)x
y=1/x
if0.1<y.and.y<0.2write(2,*)y,x
end
！Files should be closed at the end
close(1)
close(2)

下面的更規(guī)范些:
if 0.1*((Real)n+1.0)<y.and.y<0.2*((Real)n+3.0)write(2,*)y,x

贊一下(1人)

回復(fù)此樓

2樓2013-11-21 16:46:57

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

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主 zl2013 的主題更新