作者koala4120 (pure)
看板Fortran
标题[问题] 双回圈
时间Thu Mar 26 00:05:51 2009
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)