Re: [問題] FORTRAN
※ 引述《wind19890909 (我這個笨蛋...)》之銘言：
: 老師出的作業
: 但是我寫好他一直跟我說有一個ERROR
: 但是我都找不到
: 有大大們可以幫我嗎ORZ
: program HW2_3
: open(unit=9,file='out2_3')
: real*4 pi,i,j,d,k,a
// open 要擺在 real*4 的下一行
fortran 是屬於比較古老的一種電腦語言，
1954年 誕生的，為了 維持 後向相容的精神，
fortran 有很多不合理的 規定，
可執行的敘述，要放在 所有的變數宣告的敘述之後
: 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: 211.77.241.1
推
11/06 19:25, , 1F
11/06 19:25, 1F
討論串 (同標題文章)
Programming 近期熱門文章
PTT數位生活區 即時熱門文章
