※ 引述《crovax (像這樣的生活)》之銘言：
: 嗯....雖然峰哥已經提示過重點了
: 不過我還是來po個一篇吧
: 不過這是我在英文課想的
: 沒實驗過 就作個參考囉
: 反正就大概是這樣吧....
: real a,b,delda,count,x0,x1,unit,judge,error
: read (*,*) a,b
: error=1
: delda=2
: do while (error .lt. .000001)
^^
嚴重錯誤....
應該是gt喔
: unit=(b-a)/delda
: x0=a-unit
: x1=a
: judge=total
: total=0
: do 10 count=1,delda
: x0=x0+unit
: x1=x1+unit
: total=total+(5*sin(x0)+2+5*sin(x1)+2)/2
: 10continue
: total=total*unit
: error=abs(total-judge)
: delda=delda*2
: end do
: print *, total
: end
: 嗯....看不懂的話....再說啦....
我去試了一下....
嗯....不知道答案對不對ㄝ
因為0到1是4.29848623
嗯....好像不是很好積分ㄝ
所以我還是不知道是不是對的....
雖然寫個用定積分的來算就好了
可是....我懶得動手了....
自己試試吧....
ps 不知道會不會對不起那些想自己想的人
因為把解法寫出來了....
pps 嗯....這次的程式大家應該會頗相似吧....
因為我實在想不出除了這類解法外的方法了....
--
請前往吧
前去在此處聽到聲響的地方
請相信吧
你所選擇的事物
那陣風擁抱著我
宛若沉睡的星之祈禱
--
※ 發信站: 批踢踢實業坊(ptt.csie.ntu.edu.tw)
◆ From: 61.224.16.105