古老语音fortran的问题求解

Question

Answer 1

转化代码供参考

program main
implicit none
real(8), parameter:: pi = dacos(-1d0) ! define the pi value
real(8):: polar(2) ! polar coordinate
real(8):: rect(2)  ! cartisian coordinate
write(*,*)'请输入极坐标(幅值和幅角°)'
read(*,*) polar
rect(1) = polar(1)*dcos(polar(2)*pi/180)
rect(2) = polar(1)*dsin(polar(2)*pi/180)
write(*,101) rect
101 format(T1,'直角坐标：x=',f8.4,', y=',f8.4)
end

算例示例：
示例1

 请输入极坐标(幅值和幅角°)
5 -36.87
直角坐标：x=  4.0000, y= -3.0000

示例2

 请输入极坐标(幅值和幅角°)
10 45
直角坐标：x=  7.0711, y=  7.0711

示例3

 请输入极坐标(幅值和幅角°)
25 233.13
直角坐标：x=-15.0000, y=-20.0000