포트란, sine 0~180도 값 구하기

[경제운]

포트란 내장함수를 이용하여 sine 0도부터 180도까지 구하기

        program calcuate_sine_of_degree

        write(6,11)

    11 format('output'/1x,t5,'degree',7x,'sin')

        do 10 i=10,180,10

        pi=3.141592 h=i*pi/180

    10 write(6,12) i, sin(h)

    12 format(7x, i3, f10.4)

        end program calcuate_sine_of_degree

https://youtu.be/Bgk5o-fwDdM