作者Odason (odason)
看板Fortran
標題Re: [問題] function的問題
時間Wed May 18 22:55:39 2011
防雷頁
*****************以下內容是從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
1F：推 joe1121111:謝謝，不過這是老師要求的作業 只能照他要求的步驟寫 05/19 00:01
2F：→ charlesdc:防雷頁是哪招~~XD 05/19 22:37