공대생이라 포트란좀 쓸모있을까해서 독학하고있는 뉴비야 ㅜㅜ

문제풀다가 6시간동안 머리싸매고 해봐도 안풀려서

디시형들한테 조언좀구할게 ㅜㅜ

문제는 sin함수의값을 0~360도까지 5도 간격으로 값을 출력하라는데

아래처럼 만들고 돌려봤는데 값이 제대로 안나와ㅜㅜ

잘하는 형들 도움좀 주세요


program exam4
implicit none

real summ, fact, pie, deg, rad
integer i,j

fact=1.0
pie=3.141592

do i = 0,360,5
rad =pie*i/180
summ=rad

do j = 3, 15, 2
fact=j*(j-1)*fact
summ=summ+(rad**j)/fact*((-1)**((j-1)/2))

enddo


write(*,*) \"sin\",i ,\"=\", summ
enddo    


endprogram exam4