作者awer89 (Dolphin)
站内Fortran
标题Re: [问题] 双回圈
时间Thu Mar 26 02:09:38 2009
※ 引述《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)
1F:推 koala4120:谢谢你的回答!我已经做出来了~ 03/27 18:25