- 11 名前：デフォルトの名無しさん [2006/11/24(金) 13:53:55 ]
- 自己解決しました
program report6
implicit none
integer :: i,n
real :: s,a,x
write (*,*) ' n= '
read (*,*) n
do x=0.0, 2.1, 0.1
s=0.0
do i=1,n
a=(-1)**(i-1)*sin(i*x)/real(i)
s=s+a
end do
write (*,*) x, s
end do
stop
end program report6
