作者wind19890909 (我这个笨蛋...)
站内Programming
标题[问题] FORTRAN
时间Tue Nov 6 16:50:12 2007
老师出的作业
但是我写好他一直跟我说有一个ERROR
但是我都找不到
有大大们可以帮我吗ORZ
program HW2_3
open(unit=9,file='out2_3')
real*4 pi,i,j,d,k,a
write(*,*) '这是一个让人求出三角形第三边长以及面积的程式!'
write(9,*) '这是一个让人求出三角形第三边长以及面积的程式!'
write(*,*) '请输入第一边长，i=??'
read(*,*) i
write(*,*) '请输入第二边长，j=??'
read(*,*) j
write(*,*) '请输入夹角d=??(0<d<180)'
read(*,*) d
write(9,*) '三角形第一边长i=',i
write(9,*) '三角形第二边长j=',j
write(9,*) '三角形两边夹角d=',d
pi=atan(1.0)*4.0
k=(i**2+j**2-2*i*j*cos(d*pi/180))**0.5
a=0.5*i*j*sin(d*pi/180)
write(*,*) '计算得三角形第三边长k=',k
write(9,*) '三角形第三边长k=',k
write(*,*) '计算得三角形面积a=',a
write(9,*) '三角形面积a=',a
stop
end
感谢了ORZ
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.116.115.52