[問題] FORTRAN
老師出的作業
但是我寫好他一直跟我說有一個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
討論串 (同標題文章)
Programming 近期熱門文章
PTT數位生活區 即時熱門文章
