版塊導(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í)熱門版塊排行榜

返回列表

zl2013

銅蟲 (正式寫手)

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

[求助] fortran程序求助

本人對(duì)fortran是新手，沒有學(xué)習(xí)多久，現(xiàn)在有一個(gè)數(shù)據(jù)我想對(duì)它進(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)在我想讓這個(gè)范圍是一個(gè)變化的范圍，比如
改成 if 0.1*(n+1)<y.and.y<0.2*(n+3)write(2,*)y,x
這里的n取整數(shù)，我想應(yīng)該是加一個(gè)循環(huán)進(jìn)去，可是加來(lái)家去也沒有弄出來(lái)，請(qǐng)給為fortran學(xué)習(xí)者指教。
在這里先感謝大家，謝謝。

回復(fù)此樓

» 猜你喜歡

0856調(diào)劑，是學(xué)校就去已經(jīng)有6人回復(fù)
288求調(diào)劑已經(jīng)有13人回復(fù)
288求調(diào)劑，一志愿華南理工大學(xué)071005 已經(jīng)有5人回復(fù)
一志愿中國(guó)海洋大學(xué)，生物學(xué)，301分，求調(diào)劑已經(jīng)有5人回復(fù)
294求調(diào)劑材料與化工專碩已經(jīng)有12人回復(fù)
0817 化學(xué)工程 299分求調(diào)劑有科研經(jīng)歷有二區(qū)文章已經(jīng)有13人回復(fù)
梁成偉老師課題組歡迎你的加入已經(jīng)有11人回復(fù)
復(fù)試調(diào)劑已經(jīng)有6人回復(fù)
0703化學(xué)調(diào)劑，六級(jí)已過(guò)，有科研經(jīng)歷已經(jīng)有11人回復(fù)
321求調(diào)劑已經(jīng)有10人回復(fù)

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

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

【求助】初學(xué)fortran，已經(jīng)有15人回復(fù)
【求助】請(qǐng)問(wèn)一下fortran的可視化編程已經(jīng)有7人回復(fù)
【求助】用fortran解矩陣問(wèn)題【已解決】已經(jīng)有5人回復(fù)
【求助】fortran中怎么存儲(chǔ)不確定長(zhǎng)度的數(shù)據(jù)【已完結(jié)】已經(jīng)有6人回復(fù)
【求助】Fortran程序，如何讓exe文件可以單獨(dú)運(yùn)行？已經(jīng)有6人回復(fù)
【求助】如何實(shí)現(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小時(shí)
蟲號(hào): 568457
注冊(cè): 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 的主題更新