[問題] 雙迴圈
program test
real :: x, y, a, b, c_err, fac=1.0, sum=0.0, pi=3.1415926
integer :: n, ns=10, n2m1, n2m2
write(*,*) 'input x=?'
read(*,*) x
sum=sum+x
a=(x/180.0)*pi
b=sin(a)
do n=2, ns, 1
n2m1=2*n-1
n2m2=2*n-2
fac=fac*n2m1*n2m2
sum=sum+(-1)**(n-1)*x**n2m1/fac
c_err=b-sum
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
stop
end
以上是我寫的程式
想請問一下
我原本想寫的是將X值輸入進去以後
可以跑出兩個顯示
一個是X與Y
另一個是sin(X)與sin函數的泰勒展開式的差值
但是卻是只有一個顯示出現
不是出現X與Y的值就是出現sin(X)與sin函數的泰勒展開式的差值
都沒有辦法兩個一起出現
想請教一下
是我哪裡有寫錯嗎
不然為什麼何我當初所想的不一樣
謝謝各位!
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 125.231.96.167
※ 編輯: koala4120 來自: 125.231.96.167 (03/26 00:46)
討論串 (同標題文章)
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
