※ 引述《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)