作者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