PTT數位生活區 / Fortran

Re: [問題] function的問題

看板Fortran作者 (odason)時間13年前 (2011/05/18 22:55), 編輯推噓1(1推 0噓 1→)
留言2則, 2人參與, 最新討論串2/2 (看更多)
防雷頁 *****************以下內容是從Fortran90/95 黃逸萍/黃小萍節錄出來的********* program Taylor_series IMPLICIT NONE REAL X, CONV, RESULT, ACCUM, XX INTEGER N_COUNT, N READ(*,*)X, N !輸入一X值及欲計算的項次 RESULT=1.0 !到目前項次（第一項）的累加結果 N_COUNT=1 !目前的項次 ACCUM=1.0 !目前項次的分母 XX=1.0 !目前項次的分子 100 IF(N.GT.N_COUNT)THEN !是否要計算下一個項次 XX=XX*X !目前項次的分子 ACCUM=ACCUM*N_COUNT !目前項次的分母 RESULT=RESULT+XX/ACCUM !累加的結果 N_COUNT=N_COUNT+1 !下一個項次 GO TO 100 END IF WRITE(*,*)'X-COUNT-RESULT ->',X,N_COUNT,RESULT END -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 118.171.175.76
推
05/19 00:01, , 1F
謝謝，不過這是老師要求的作業 只能照他要求的步驟寫
05/19 00:01, 1F
→
05/19 22:37, , 2F
防雷頁是哪招~~XD
05/19 22:37, 2F
‣ 更多 Odason 的文章
文章代碼(AID): #1DqztkWS (Fortran)
討論串 (同標題文章)
完整討論串 (本文為第 2 之 2 篇)：
排序： 最舊先 | 最新先 | 留言數
在新視窗開啟完整討論串 (共2篇)
Fortran 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 Odason 的文章
文章代碼(AID): #1DqztkWS (Fortran)