- 3 名前：１ mailto:sage [03/07/12 15:20]
- ぼくの組んだプログラム↓
sinx=0
t=1
do 100 x=0.0,3.2,0.2
if(x.gt.3.2) then
go to 999
do 200 n=0,99**99
t=(2n+1)*t
s=(-1)**n*x**(2*n+1)
k=s/float(t)
if(k.lt.10**(-6)) then
write(*,10) x,sinx,n
10 format('sin(x=',f6.2,')=',2x,e12.4
go to 50
else
sinx=sinx+k
200 contenue
50
100 contenue
999 end
