- 22 名前：１ [03/07/13 00:48]
- sinx=0
t=1
do 100 x=0.0,3.2,0.2
if(x.gt.3.2) then
go to 999
end if
do 200 n=0,100
t=(2*n+1)*t
s=(-1)**n*x**(2*n+1)
k=s/float(t)
if(k.lt.10**(-6)) then
write(*,10) x,sinx
10 format('sin(x=',f6.2,')=',2x,e12.4)
go to 50
else
sinx=sinx+k
end if
200 continue
50 continue
100 continue
999 end
