Re: [問題] 雙迴圈
※ 引述《koala4120 (pure)》之銘言：
: write(*,*) 'input x=?'
: read(*,*) x
: sum=sum+x
: a=(x/180.0)*pi
: b=sin(a)
: do n=2, ns, 1
.....
.....
: do while(1.0/(1-x)>0. .and. x/=1)
: y=alog(1.0/(1-x))
: write(*,*) x,y
: write(*,*) 'input x=?'
: read(*,*) x
: enddo
: enddo
: write(*,*) c_err,"=",a,"-",sum
: 以上是我寫的程式
: 想請問一下
: 我原本想寫的是將X值輸入進去以後
: 可以跑出兩個顯示
: 一個是X與Y
: 另一個是sin(X)與sin函數的泰勒展開式的差值
: 但是卻是只有一個顯示出現
: 不是出現X與Y的值就是出現sin(X)與sin函數的泰勒展開式的差值
當只有X Y值時 代表它 write(*,*) x,y
不過write(*,*) x,y後 你又read一個x值
當DoWhile迴圈內的x有特定值(>1) 繼續 write(*,*) x,y
不過這樣就沒有 write(*,*) c_err,"=",a,"-",sum
當有執行到 write(*,*) c_err,"=",a,"-",sum 代表do while迴圈x條件不合
所以沒有 write(*,*) x,y
這樣你應該知道大概如何改了吧XD
--
http://www.wretch.cc/blog/Dolphin0112
裡面只是隨手亂寫~~~XD
http://tinyurl.com/dkmkjo
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.42.208.68
※ 編輯: awer89 來自: 114.42.208.68 (03/26 02:16)
推
03/27 18:25, , 1F
03/27 18:25, 1F
討論串 (同標題文章)
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
